Переделать с консольного в оконное приложение

@Kode Red · Регистрация: 10.06.2017

Author24 — интернет-сервис помощи студентам

Добрый день, помогите сделать код под форму

Pascal

var
  r1, r2, rs : real;
begin
  writeln('введите величину первого сопротивления, Ом');
  readln(r1);
  writeln('введите величину второго сопротивления, Ом');
  readln(r2);
  rs := r1 + r2;  
  writeln('значение первого сопротивления: ', r1, ' Ом');
  writeln('значение второго сопротивления: ', r2, ' Ом');
  writeln('значение общего сопротивления: ', rs, ' Ом');
  readln
end.

@volvo · 23.12.2017, 19:57

Чего тут конвертировать? Этот код и так Лазарусом откомпилируется.

@Puporev · 23.12.2017, 19:59

Положите на форму 3 Эдита и кнопку, например Button.
В событии OnClick кнопки напишите этот код.

Pascal

r1:=strtofloat(Edit1.Text);
r2:=strtofloat(Edit2.Text);
rs := r1 + r2;  
Edit3.Text:=formatfloat('0.00',rs);

@Kode Red · 23.12.2017, 20:13 **[ТС]**

Не работает

@D1973 · 23.12.2017, 20:29

Сообщение от Kode Red

Не работает

Бездоказательно!
Покажите Ваш код, сообщите, что за ошибка, скрин прикрепите, наконец!!!
А если Вы просто так заявляете "Не работает" - то я в ответ отвечу "Все работает" и что?

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	23.12.2017, 19:57	2
	Чего тут конвертировать? Этот код и так Лазарусом откомпилируется. 0

@Kode Red 0 / 0 / 0 Регистрация: 10.06.2017 Сообщений: 43
	23.12.2017, 20:13 [ТС]	4
	Не работает 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	23.12.2017, 20:29	5
	Сообщение от Kode Red Не работает Бездоказательно! Покажите Ваш код, сообщите, что за ошибка, скрин прикрепите, наконец!!! А если Вы просто так заявляете "Не работает" - то я в ответ отвечу "Все работает" и что? 1