Даны два действительных положительных числа x и y. Арифметические действия над…

Question

38

Даны два действительных положительных числа x и y. Арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 –деление). Составьте программу, которая по введенному номеру выполняет то или иное действие над числами

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

svetik50 · Accepted Answer

72

svetik50

28 февраля 2023

procedure TForm1.Button1Click (Sender: TObject); beginx: =strtoint (edit1.Text); y: =strtoint (edit2.Text); b: =strtoint (edit3.text); if b=1 then begin z: =x+y; edit4.Text: =floattostr (z); end; if b=2 then begin z: =x-y; edit4.Text: =floattostr (z); end; if b=3 then begin z: =x*y; edit4.Text: =floattostr (z); end; if b=4 then begin z: =x/y; edit4.Text: =floattostr (z); end; end; end. Вроде

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: