Название: | Лабораторная работа №2 по Delphi |
Просмотров: | 53 |
Раздел: | Информатика, программирование |
Ссылка: | none(0 KB) |
Описание: | procedure TForm1.Button1Click(Sender: TObject); VAR T0,TK,Q,W,Y1,Y2,Y3 :REAL; i,H :real; begin Q:=StrToFloat(Edit1.Text); W:=strToFloat(Edit2.Text); H:=StrToFloat(Edit3.Text); T0:=StrToFloat |
|