| III. Yangi mavzu bayoni.
1.Uchta to'g'ri to'rtburchakning har birining bittadan diagonali uchlarining koordinatalari berilgan: 1) 20,20 va 80,200; 2) 200,97 va 500,156; 3) 300,120 va 400,420. Shu to'g'ri to'rtburchaWarni mos ravishda qizil, sariq va yashil ranglarda chizish dasturini tuzing.
Program masala_1;
Uses Graph;
var gd, gm: Integer;
Procedure to’rtburchak(xl,yl,x2,y2,col:Integer); begin
SetColor(col);
Rectangle(xl,yl,x2,y2)
End;
Begin
Gd:=0; initgraph(gd,gm,’’);
To’rtburchak(20,20,80,200,4);
To’rtburchak(200,97,500,156,14);
To’rtburchak(300,12,400,420,2);
Readln; closegraph;
end;
2.Berilgan n natural son uchun S=15+26+37+...+n(n+4) yig'indini hisoblash dasturini protsedura yordamida tuzing.
3.Uchta sondan kattasini topish dasturini tuzing. Buning uchun ikkita sondan kattasini topish funksiyasini tuzib, undan foydalaning.
Programmisol_3 ;
Var I, max,a,b,c: integer;
Function IKT(a, b, c: integer): integer; Var c: integer;
Begin
If a>b then c:=a else c:=b;
IKT:=c;
End; Begin
Write(‘1-sonni kiriting='); Readln(a);
Write(‘2-sonni kiriting='); Readln(b);
Write(‘3-sonni kiriting='); Readln(c);
a:=IKT(ab); b:=c; max:=IKT(a,b);
Writeln('kattasi= ',max );
Readln
End.
1.Berilgan matndagi 'a' belgini 'g' belgiga, 'm' belgini 's' belgiga, T belgini 'h' belgiga almashtiruvchi dasturni protsedura yordamida tuzing.
2.y = x5 + 3x funksiya qiymatini x ning —9, —5, —2, 2, 5, 7 qiymatlarida hisoblash dasturini tuzing. Darajani ko'paytirish orqali hisoblash uchun funksiya tuzib oling.
3. Protsedura yordamida ekranning o'rtasida ichma-ich joylashgan har xil rangli 15 ta aylana chizuvchi dastur tuzing.
Yangi mavzuni mustaxkamlash.
4. Protsedura yordamida ekranning o'rtasida ichma-ich joylashgan har xil rangli 15 ta aylana chizuvchi dastur tuzing.
|
