Delphi da Begin bo`yicha misollar

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2015-11-08

Delphi da Begin bo`yicha misollar

Begin1. Kvadratningtomoni a berilgan. Uning perimetri aniqlansin. P=4*a

procedure TForm1.Button1Click(Sender: TObject);
var a,p:real;
begin
a:=strTofloat(Edit1.text);
p:=a*4;
edit2.Text:=floatTostr(p);
end;

Begin2. Kvadratningtomoni a berilgan. Uning yuzasi aniqiansin. S=a²

procedure TForm1.Button1Click(Sender: TObject);
var a,s:real;
begin
a:=strTofloat(Edit1.text);
s:=a*a;
edit2.Text:=floatTostr(s);
end;

Begin3. To'g'ri to'rtburchakning tomonlari a va b berilgan. Uning yuzasi S = a * b; va P = 2 * (a + b) perimetri aniqiansin.

procedure TForm1.Button1Click(Sender: TObject);
var a,b,S,P:real;
begin
a:=strTofloat(edit1.text);
b:=strTofloat(edit2.text);
P:=2*(a+b);
S:=a*b;
edit3.text:=floattostr(p);
edit4.text:=floattostr(S);
end;

Begin4. Aylananing diametri d berilgan. Uning uzunligi aniqiansin L=pi*d. pi = 3.14

procedure TForm1.Button1Click(Sender: TObject);
var d,L:real;
begin
d:=strTofloat(Edit1.text);
L:=pi*d;
edit2.Text:=floatTostr(L);
end;

Begin5. Kubning yon tomoni a berilgan. Uning hajmini V = a³ va to`la sirti S=6*a² aniqiansin.

procedure TForm1.Button1Click(Sender: TObject);
var v,s,a:real;
begin
a:=strtofloat(edit1.text);
s:=6*sqr(a);
v:=sqr(a)*a;
edit2.text:=floattostr(s);
edit3.text:=floattostr(v);
end;

Begin6. Paralelepepidning tomonlari a, b, с berilgan. Uning hajmini V = a*b*c va to’la sirti S = 2*(a*b+b*c+a*c) aniqlansin.

procedure TForm1.Button1Click(Sender: TObject);
var v,s,a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
s:=2*(a*b+b*c+a*c);
v:=a*b*c;
edit4.text:=floattostr(s);
edit5.text:=floattostr(v);
end;

Begin7. Doiraning radiusi R berilgan. Uning uzunligi L va yuzasi S aniqiansin. L = 2*pi*R . S = pi *R²

procedure TForm1.Button1Click(Sender: TObject);
var L,s,r:real;
begin
r:=strtofloat(edit1.text);
L:=2*pi*r;
s:=pi*sqr(r);
edit2.text:=floattostr(L);
edit3.text:=floattostr(s);
end;

Begin8. Ikkita son a va b berilgan. Ularning o’rta arifmetigi aniqiansin. n=(a+b)/2

procedure TForm1.Button1Click(Sender: TObject);
var a,b,n:real;
begin
a:=strTofloat(edit1.text);
b:=strTofloat(edit2.text);
n:=(a+b)/2;
edit3.text:=floattostr(n);
end;

Begin9. Ikkita manfiy bo'Imagan son a va b berilgan. Ularning o'rta geometrigi aniqiansin n=sqrt(a*b).

procedure TForm1.Button1Click(Sender: TObject);
var a,b,n:real;
begin
a:=strTofloat(edit1.text);
b:=strTofloat(edit2.text);
n:=sqrt(a+b);
edit3.text:=floattostr(n);
end;

Begin10. Nolga teng bo'Imagan ikkita son berilgan. Ularning yig'indisini, ko’paytmasini va har birining kvadrati aniqiansin.

procedure TForm1.Button1Click(Sender: TObject);
var a,b,s,d:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
s:=a*b;
d:= a+b;
edit3.text:= floattostr (s);
edit4.text:= floattostr (d);
end;

Begin11. Nolga teng bo'Imagan ikkita son berilgan. Ularning yig'indisini, ko’paytmasini va har birining moduli aniqiansin.

procedure TForm1.Button1Click(Sender: TObject);
var a,b,s,d:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
s:=abs(a*b);
d:= abs(a+b);
edit3.text:= floattostr (s);
edit4.text:= floattostr (d);
end;

Begin12. To'gri uchburchakning katetlari a va b berilgan. Uning gipotenuzasi с=sqrt(sqr(a)+sqr(b)) va perimetri P=a+b+c aniqiansin.

procedure TForm1.Button1Click(Sender: TObject);
var v,s,a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
p:=a+b+c;
c:=sqrt((sqr(a)+sqr(b));
edit4.text:=floattostr(p);
edit5.text:=floattostr(c);
end;

Begin13. Umumiy markazga ega bo'lgan ikkita aylana radiusi berilgan. R1,R2 (R1>R2).Ularnig yuzalari S1 va S2, ularning ayirmasi S3 aniqiansin. S1=pi*R₁², S2=pi*R₂², S3 =pi*(R₁²- R₂²).

procedure TForm1.Button1Click(Sender: TObject);
var r1,r2,s1,s2,s3:real;
begin
r1:=StrToFloat(Edit1.Text);
r2:=StrToFloat(Edit2.Text);
s1:=pi*(r1*r1);
s2:=pi*(r2*r2);
s3:=s1-s2;
Edit3.Text:=FloatToStr(s1);
Edit4.Text:=FloatToStr(s2);
Edit5.Text:=FloatToStr(s3);
end;

Begin14. Aylananing uzunligi L berilgan. Uning radiusi R va yuzasi S aniqiansin L = 2*pi *R*S = pi*R² pi = 3.14

procedure TForm1.Button1Click(Sender: TObject);
var s,l,r:real;
begin
r:=StrToFloat(Edit1.Text);
l:=2*pi*r;
s:=pi*sqr(r);
Edit2.Text:=FloatToStr(l);
Edit3.Text:=FloatToStr(s);
end;

3323 marta o`qildi.