четверг, 28 октября 2010 г.

Лабораторная работиа №1.

Код программы.
procedure TForm1.Button1Click(Sender: TObject);
  var
a,b, c:integer;
begin
  val (edit1.Text,a);
  val (edit2.text,b);
 c:=a+b;
 Edit3.Text:=Inttostr (C);
end;     

Интерфейс.


Комментариев нет:

Отправить комментарий