46-dars.

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’rtburchaklarni mos ravishda qizil, sariq va yashil ranglarda chizish dasturini tuzing.

uses graph; var gd,gm:integer;

procedure nom(x1,y1,x2,y2,rang:integer);

begin  setcolor(rang);

rectangle(x1,y1,x2,y2); end;

begin

gd:=0; initgraph(gd,gm,»);

nom(20,20,80,200,4);

nom(200,97,500,156,14);

nom(300,120,400,420,2);

readln; closegraph; end.

2. Berilgan n natural son uchun S=1∙5+2∙6+3∙7+…+n∙(n+4) yig’indini hisoblash dasturini protsedura yordamida tuzing.

var n,i:integer; s:longint;

procedure daraja(n:integer);

begin

for i:=1 to n do s:=s+i*(i+4); write(‘Yig`indi:’,s); end;

begin

write(‘n=’); readln(n); daraja(n);

readln;

end.

 

3. Uchta sondan kattasini topish dasturini tuzing. Buning uchun ikkita sondan kattasini topish funksiyasini tuzib, undan foydalaning.

var i,a,b,c,max:integer;

function katta(a,b:integer):integer;

var c:integer;

begin if a>b then c:=a else c:=b; katta:=c; end;

begin

write(‘a=’); readln(a);

write(‘b=’); readln(b);

write(‘c=’); readln(c);

a:=katta(a,b); b:=c;

max:=katta(a,b);

writeln(‘Eng kattasi: ‘,max); readln; end.