Delphi dasturlash muhitida to‘g‘ri burchakli uchburchakning gipotenuzasining qiymatini hisoblovchi dastur tuzing.

2 ta edit, 3 ta label va 1 ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer; c:real; begin
a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); c:=sqrt(a*a+b*b);
label3.Caption:='c='+floattostr(c); end;

Решение №1

Другие задачи с этого варианта

1 2 3

Книга: Informatika fanidan imtixon savollariga javoblar 10 sinf
Билет/вопрос: №5

"Test-Uz.Ru" © 2014-2024. Информационный портал для школьников, абитуриентов, студентов и учителей

О сайте | Обратная связь