Есть ответ 👍

Нужна по лазарусу/делфи. делаю калькулятор и хочу, чтобы в memo выводились все мои действия например 4+3=7-чтобы это выводилось в не ответы,а !

254
495
Посмотреть ответы 3

Ответы на вопрос:


Трудно сказать не видя структуры твоего калькулятора. если у тебя два поля для ввода чисел (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.

Пример работы:


 Найти минимальный элемент массива, состоящего из 8 элементов, вводимых с клавиатуры. Обращаю ваше в

Популярно: Информатика