18.12.2012, 11:27 | #1 (permalink) |
Member
Регистрация: 05.11.2012
Сообщений: 1,495
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1106
|
Две небольшие программы на Free Pascal
|
18.12.2012, 11:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего тут можно найти ответ Free Pascal, помогите сделать задачу Динамические переменные. Free Pascal Использование библиотеки модуля GRAPH. Free Pascal Помогите решить три задачи в Free Pascal |
18.12.2012, 12:22 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да уж... задачи века! Что, детинушка, совсем по нулям? А тут сессия, как на зло... Понимаю. Ну что же - ловите:
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|