SHPORA.net :: PDA | |
Main FAQ гуманитарные науки естественные науки математические науки технические науки ПРОЦЕДУРА «=» 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; |