расчет площади прямоугольника онлайн
Автор Анастасия зеф задал вопрос в разделе Другие языки и технологии
Язык программирования Delphi. Программа для расчета площади и периметра прямоугольника. и получил лучший ответ
Ответ от Александр Осипов[гуру]
procedure TForm1.CalcButtonClick(Sender: TObject); var a,b,c,d: real; code: integer; begin val(Edit1.Text,a,code); val(Edit2.Text,b,code); c:=a*b; d:=(a+b)*2; Label5.Caption:=FloatToStr(c); Label7.Caption:=FloatToStr(d); end;
Ответ от 1_and_0[гуру]
Program p1; Var a,b,S,P : Real; Begin Writeln('Введите a,b'); Readln(a,b); S:=a*b; P:=(a+b)*2; Writeln('Площадь прямоугольника равна: ',S, ' а его периметр равен: ', P ); End.
Program p1; Var a,b,S,P : Real; Begin Writeln('Введите a,b'); Readln(a,b); S:=a*b; P:=(a+b)*2; Writeln('Площадь прямоугольника равна: ',S, ' а его периметр равен: ', P ); End.
Ответ от GambiT[гуру]
label1.Caption:= 'Площадь ='+ inttostr(strtoint(Edit1.Text) * strtoint(Edit2.Text)); label2.Caption:= 'Периметр ='+ inttostr(strtoint(Edit1.Text) * 2 + strtoint(Edit2.Text) * 2);
label1.Caption:= 'Площадь ='+ inttostr(strtoint(Edit1.Text) * strtoint(Edit2.Text)); label2.Caption:= 'Периметр ='+ inttostr(strtoint(Edit1.Text) * 2 + strtoint(Edit2.Text) * 2);
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Язык программирования Delphi. Программа для расчета площади и периметра прямоугольника.