** вход даются 2 числа. Далее, выводится меню с перечнем: 1) +' 2) - 3) * 4) / Программа...

Question

На вход даются 2 числа. Далее, выводится меню с перечнем:
1) +'
2) -
3) *
4) /
Программа должна ожидать ввода выбранного пункта, и выполнять соответствующее действие

Answer 1

Const cr=chr(13)+chr(10);
var a,b:integer; c:char;
begin
writeln('Введите 2 числа:');
readln(a,b);
writeln('Введите операцию:');
writeln('1) +',cr,'2) -',cr,'3) *',cr,'4) /');
readln(c);
case c of
 '+': writeln(a,' + ',b,' = ',a+b);
 '-': writeln(a,' - ',b,' = ',a-b);
 '*': writeln(a,' * ',b,' = ',a*b);
 '/': writeln(a,' / ',b,' = ',a/b);
 else writeln('Ошибка ввода');
end;
end.

Пример:
Введите 2 числа:
5 8
Введите операцию:
1) +
2) -
3) *
4) /
*
5 * 8 = 40

Comments

Можно вопрос, что за команда Pconst

---

const*

---

const cr=chr(13)+chr(10); определяет строковую константу для перевода курсора в начало следующей строки. Команда writeln('1) +',cr,'2) -',cr,'3) *',cr,'4) /'); выполняется также как последовательность команд writeln('1) +');
writeln('2) -');
writeln('3) *');
writeln('4) /');

---

т.е я могу эту константу убрвть, записать вместо этой команды writeln('1) +',cr,'2) -',cr,'3) *',cr,'4) /'); вот это

---

writeln('1) +');
writeln('2) -');
writeln('3) *');
writeln('4) /');

---

и будет работать?

---

уже попробовал, работает, спасибо

---

Пожалуйста