Технический форум - Две небольшие программы на Free Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Две небольшие программы на Free Pascal

Привет технари! Прошу помощи в написании 2х программ, вот задания:

Составить программу, которая для введенного с клавиатуры десятичного кода печатает сам символ.
Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат.

первое задание на символьные и строчные данные, второе оператор выбора.

Цитата:

Сообщение от Zhovtyi (Сообщение 835253)

Привет технари! Прошу помощи в написании 2х программ, вот задания:

Да уж... задачи века! Что, детинушка, совсем по нулям? А тут сессия, как на зло... Понимаю. Ну что же - ловите:

Код:

Var

 Code:Byte;

Begin

 Write('Code = ');

 Readln(Code);

 Writeln('Symbol: ',Chr(Code));

 Readln;

End.

Код:

Var

 A,B,R:real;

 Op:byte;

Begin

 Write('A= ');

 Readln(A);

 Write('B= ');

 Readln(B);

 Write('Operation? (1 - "+", 2 - "-", 3 - "*", 4 - "/") ');

 Readln(Op);

 Case Op of

  1: R:=A+B;

  2: R:=A-B;

  3: R:=A*B;

  4: R:=A/B;

 end;

 Writeln('Result = ',R:0:5);

 Readln;

End.