Перевести этот код в delphi vcl application?

Question

[varhamer12]

Перевести этот код в delphi vcl application? Нужно,чтобы работал с кнопками. Через cosol application работает.

program vozrast ;
Var d,m,n: Integer;
BEGIN

Writeln('Чтобы подобрать пару мужчине введите 1');
Writeln('Чтобы подобрать пару девушке введите 2');
Readln(n);
If n=1 Then
begin
Writeln('Введите возраст мужчины: '); Readln(m);
Writeln('Подходящий возраст девушки: ',m/2+7:0:0);
end;
If n=2 Then
begin
Writeln('Введите возраст девушки: '); Readln(d);
Writeln('Подходящий возраст мужчины: ',d*2-14);
end;
Readln
END.

Comments

[d'Ivan]

Начни изучать Delphi. Задача то простецкая.

Answer 1

[Александр]

Чтобы работал с кнопками - надо вначале сделать эти самые кнопки...
Вместо ReadLn - рисуете EditText
Вместо WriteLn - рисуете Label
Чтобы выполнить расчет - рисуете кнопку и в ее подпрограмме получаете значения из EditText, считаете и заносите полученные значения в Label