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

Zhovtyi · 18.12.2012, 11:27

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

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

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

Vladimir_S · 18.12.2012, 12:22

Цитата:

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

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

18.12.2012, 11:27	#1 (permalink)
Zhovtyi Member Регистрация: 05.11.2012 Сообщений: 1,495 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1106	Две небольшие программы на Free Pascal Привет технари! Прошу помощи в написании 2х программ, вот задания: Составить программу, которая для введенного с клавиатуры десятичного кода печатает сам символ. Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат. первое задание на символьные и строчные данные, второе оператор выбора.

18.12.2012, 11:27
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего тут можно найти ответ Free Pascal, помогите сделать задачу Динамические переменные. Free Pascal Использование библиотеки модуля GRAPH. Free Pascal Помогите решить три задачи в Free Pascal

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070