калькулятор

[Sparky]

вот, когда-то писала. Все вроде бы считает.

[pickasso]

Сообщение от nexzis

помгите найти и справить ошибку плз у меня не получается

При нажатии на кнопку равно должен выводиться результат, а он у тебя не выводиться, потому что недописал код.

[pickasso]

Сообщение от Sparky

вот, когда-то писала. Все вроде бы считает.

За код спасибо, но есть небольшие недоработки

[nexzis]

pickasso ты знаешь что дописать надо..я просто не шарю делал по книжке
по идее она у меня есть но быть может стоит не там...если я выношу в отдельную процедуру то у меня выполняет действие и выводит 1ое число которое вводил

[pickasso]

Сообщение от nexzis

pickasso ты знаешь что дописать надо..я просто не шарю делал по книжке
по идее она у меня есть но быть может стоит не там...если я выношу в отдельную процедуру то у меня выполняет действие и выводит 1ое число которое вводил

к сожеленью нет, я сам постигаю азы и разбираю все по порядку, я до равно еще не дошел. Выше тоже выставили калькулятора, скачай и посмотри на сам принцып кода, когда нажимаеться кнопка "=".

[nexzis]

я попробовал так сделать выводит первое число которое водил...
вся проблема в том что в том калькуляторе на каждую кнопку процедура , а нам задали на 1 процедуре все 10 кнопок

[pickasso]

Хотел спросить: что за переменные accum; oper; ch: char; btn: Tbutton; ? точнее что они означают?
f - я так понимаю ввел переменную с которой выполняешь вычисления ?

[nexzis]

если б я знал как это объяснить
посмотри на 1 странице этой темы там выложили код из книжки по которой я делал

[nexzis]

если я всё правильно понимаю эта процедура включает в себя и вычисление и вывод результата
вот только не понятно куда её вставлять и с чем связывать
procedure TForm1.DoOper;
var numb :real;
begin
numb := strtofloat(form1.Edit1.Text);
case oper of
0: accum:= numb;
1: accum:= accum + numb;
2: accum := accum - numb;
3: accum := accum * numb;
4: accum := accum / numb;
end;
form1.Edit1.Text:=floattostr(accum) ;
end;

[pickasso]

Сообщение от pickasso

Хотел спросить: что за переменные accum; oper; ch: char; btn: Tbutton; ? точнее что они означают?
f - я так понимаю ввел переменную с которой выполняешь вычисления ?

Может кто-то из Гуру знает что это за переменные и зачем они нужны? Объясните пожайлуста. Заранее спасибо.