небольшой калькулятор

[Shevali]

Здравствуйте. Тут такая задачка (для Вас простая, но я новичок, так что будьте снисходительны):
Ввести с клавиатуры число, символ арифметического действия (+, -, *, /) и еще одно число. Компьютер должен напечатать результат.
Я пробовал так:

var x, y: integer; z: char;
begin
writeln ('введите числа и символ');
readln (x,y); case z of
+ : writeln (x+y);
- : writeln (x-y);
* : writeln (x*y);
/ : writeln (x/y);
end;

Желательно обойтись словами: case, of, if, else, then
end.

Коряво конечно, ну вот так получилось.
Спасибо, если поможите.

[spring]

+: begin writeln(x+y);readln end;

[Sazary]

readln (x,y); case z of

Так а где вы z вводите? Правильно, нигде.
И '+','-' и прочее - это символы. А значит должны быть заключены в одинарные кавычки.
Например:

'+' : writeln (x+y);

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

+: begin writeln(x+y);readln end;

Это работать не будет. Причина выше.

[spring]

esli ona xocet videt rezultat to doljna napisat readln pered poslednem 'end'om i luchse vseqo napisat kod znakov

[Shevali]

Ну вот сделал я как Вы советовали:

var x, y: integer; z: char;
begin
writeln ('введите числа и символ');
readln (x,z,y); case z of
'+' : writeln (x+y);
'-' : writeln (x-y);
'*' : writeln (x*y);
'/' : writeln (x/y);
end;
readln;
end.

Но только не подсчитывает (не выдаёт результат). Может ещё что не так?

[Sazary]

Тогда уж так:

uses crt;
var x, y: integer; z: char;
begin
clrscr;
writeln ('введите числа и символ');
readln (x);
readln(z);
readln(y);
case z of
'+' : writeln (x+y);
'-' : writeln (x-y);
'*' : writeln (x*y);
'/' : writeln (x/y);
end;
readln;
end.

[Shevali]

В таком варианте работает. Спасибо. Хотя в учебнике (по которому я занимаюсь) в этой главе ни про uses crt, ни про clrscr ничего не сказано, а задачку вложили. Видимо или ошибочно, или есть другой вариант решения. Всё равно спасибо.

[Sazary]

Shevali Не беспокойтесь ) Это можно безболезненно удалить:

var x, y: integer; z: char;
begin
writeln ('введите числа и символ');
readln (x);
readln(z);
readln(y);
case z of
'+' : writeln (x+y);
'-' : writeln (x-y);
'*' : writeln (x*y);
'/' : writeln (x/y);
end;
readln;
end.

uses crt;

Этим мы подключаем модуль CRT.
В нем содержится функция очистки экрана clrscr.

[Shevali]

Спасибо Sazary. С Вами приятно работать.