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

[Zhovtyi]

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

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

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

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

 

[Vladimir_S]

Привет технари! Прошу помощи в написании 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.