Нужна по лазарусу/делфи. делаю калькулятор и хочу, чтобы в memo выводились все мои действия например 4+3=7-чтобы это выводилось в не ответы,а !
254
495
Ответы на вопрос:
Трудно сказать не видя структуры твоего калькулятора. если у тебя два поля для ввода чисел (edit1 и edit2), а результат записываешь в memo1 (кстати, а зачем именно тип то можно сделать следующим образом (пример для кнопок "+" и "-") procedure tform1.plusclick(sender: tobject); var x,y: real; r: string; begin val(edit1.text,x); val(edit2.text,y); str(x+y,r); memo1.lines[0]: =edit1.text+'+'+edit2.text+'='+r; end; procedure tform1.minusclick(sender: tobject); var x,y: real; r: string; begin val(edit1.text,x); val(edit2.text,y); str(x-y,r); memo1.lines[0]: =edit1.text+'-'+edit2.text+'='+r; end;
Введи переменную строкового типа и добавь в процедуры кнопок, чтобы в эту строку при нажатии на "4" добавлялась четвёрка, нажатие на "+" - плюс, а при нажатии на "=" - знак равенства и, собственно, ответ, после чего эта строка выводилась в memo и переменная очищалась
program LRSM; begin println('Минимальный:', ReadArrInteger(8).Min); end.
Пример работы:
Популярно: Информатика
-
Kamarir25.11.2022 11:58
-
crankbait16.08.2021 14:32
-
Маргарита202104.01.2022 22:32
-
zaycevakatyany28.07.2022 18:40
-
KRAUSE101.12.2020 00:39
-
vikatormash0903.02.2020 03:48
-
Мэйбл12345678901.04.2021 03:19
-
mariamadaeva09.12.2021 18:58
-
whitesquirrelp06pc021.02.2023 15:46
-
danifoxyforevep08iko26.07.2021 12:03