SHPORA.NET

Login:
Pass:

Регистрация

[ Назад ]

procedure TForm1.Button12Click(Sender: TObject);

begin

if Edit1.Text<>'' then begin если не пусто берём значение с Эдит1

c:=strtofloat(Edit1.Text);

case ch of Выбираем код операции

'+':b:=a+c; Если код операции + выполняем сложение

'-':b:=a-c; Если – выполняем деление

'*':b:=a*c; Если * выполняем умножение

'/':if c<>0 then b:=x/c else ShowMessage('На 0 делить нельзя !'); если «с» не равно 0 то делим. В случае если равно выводим сообщение

'n': begin x:=strtoint(Edit1.Text); b:=1;

for y:=1 to x do b:=b*a; end;

end;

Edit1.Text:=floattostr(b);

end else

ShowMessage('Нет значения!');

end;