| Yangi mavzuni mustahkamlash:
1. Quyidagi dastur natijasida ekran rangi, matn foni rangi va matn ranglari qanday bo'lishini hamda matnlar joyini aniqlang.
Uses crt;
Begin
textbackground(yellow); writeln('O'zbekiston');
clrscr;
textcolor(4); write('kelajagi ');
textbackground(blue); writeln('buyuk');
textcolor(2); write('DAVLAT!'); readln;
end.
2. «O`zbekiston konstitutsiyasi — erkinlik posboni» matniga qizil, matn foniga ko'k rangni tanlab ekranga chiqaring.
Uses crt;
Begin
clrscr;
textbackground(blue);
textcolor(4);
write(' O`zbekiston konstitutsiyasi — erkinlik posboni '); readln;
end.
Uyga vazifa: Mavzuni o’rganib kelish.3-mashqni bajarish.
3.Quyidagi dasturga shunday protseduralar qo'shingki, barcha matn ko'k rangda, matn fonlari sariq rangda ekranga chiqsin. Dastur ishlashini izohlang.
Var a,b: string; m, s : real;
Begin
a:=`kvadratning tomonini kiriting:`; b:=`kvadratning yuzi:`;
write (a); readln(m);
S:=sqr(m);
Write(b,s:8:2,` kvadrat birlik`);
Readln;
end.
Sana :_________________
Sinf :___________________
| 