В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
Var s1, s2, t1, t2 :real;
begin
writeln('Введите s1, t1, t2');
readln(s1);
readln(t1);
readln(t2);
s2 := s1/t1 * t2;
writeln('s2: ',s2)
end.
12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc