Uchta sondan kattasini topish dasturini tuzing. Buning uchun ikkita sondan kattasini topish funksiyasini tuzib, undan foydalaning.
uses crt; var i,max,a,b,c: integer; function IKT(a,b: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(a,b); b:=c; max:=IKT(a,b); writeln(‘Kattasi=’,max); readln; end.
a,b,c sonlar berilgan. Ularning eng kattasi max(a,b,c) ni toping.
var a,b,c,nax: real; begin write(‘a sonni kiriting: ‘) readln(a); write(‘b sonni kiriting: ‘) readln(b); write(‘c sonni kiriting: ‘) readln(c); if a>b then max:=a else max:=b if c>max then max:=c writeln(‘Berilgan uchta sondan kattasi = ‘,max); readln; end.
Ekranning to’rtta burchagida sariq rangli nuqta hosil qiluvchi dastur tuzing.
Uses graph; Var gd,gm: integer; Begin gd:=0; InitGraph(gd,gm,»); PutPixel(1,1,14); PutPixel(1,getmaxY,14); PutPixel(getmaxX,1,14);PutPixel(getmaxX,getmaxY,14); readln;
closegraph; end.
Uchburchakning berilgan tomonlari bo’yicha uning balandliklarini aniqlovchi dastur tuzing.
Var a,b,c,ha,hb,hc:real; function h_ub(a,b,c:real); var yp,s:real; begin yp:=(a+b+c)/2;
s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); H_UB:=2*s/a; end; begin write(‘Uchburchak tomonlari (a,b,c) kiriting: ‘); readln(a,b,c); ha:=h_ub(a,b,c); hb:=h_ub(b,a,c); hc:=h_ub(c,b,a); writeln(‘uchburchakning balandliklari: ‘); writeln(‘ha=’,ha,’hb=’,hb,’hc=’,hc); readln; end.
Ekranning o’rtasida radiusi 100 ga teng sariq rangli aylana chizing.
Uses wincrt, graph; label 1; Var gd,gm,i: integer; y: char; Begin gd:=0; InitGraph(gd,gm,»);
Setcolor(14); Circle(500,350,100); readln; closegraph; end.