КУПИТЬ ДИПЛОМ В НОВОСИБИРСКЕ

Информатика

Информатика — КУПИТЬ ДИПЛОМ ВУЗа в НОВОСИБИРСКЕ

Удостоверения о проф.подготовке, дипломы, аттестаты, свидетельства о рождении в Новосибирске и Новосибирской обл. и мн. других документов быстро и очень недорого. Всё это и еще много другой полезной и важной информации об экспресс-получении документов в Новосибирске на www.54rusdiplom.com


ON-Line курс по ИКТ для поступающих в Вуз




Бертик Алла Абрамовна, преп. в.к.к. ИСР НГТУ


СЛОВАРЬ ТЕРМИНОВ


Материалы для изучения




ЗАДАЧИ


В качестве примера:
РЕШЕНИЕ ЗАДАЧИ №4



Задача:

Написать программу, в которой вводятся два операнда Х и Y и знак операции (+, –, /, *). Вычислить результат Z в зависимости от знака. Предусмотреть реакции на возможный неверный знак операции, а также на ввод Y=0 при делении. Организовать возможность многократных вычислений без перезагрузки программа (т.е. построить цикл). В качестве символа прекращения вычислений принять ‘0’.

Алгоритм решения задачи:

Вводим знак. Если он является символом ‘0’, то прерываем цикл.

Если введенный символ принадлежит к перечисленным, то запрашиваем два числа и выполняем вычисления в зависимости от введенного знака.

Иначе сообщаем о некорректном вводе знака.




Программа на языке Паскаль:



var

x,y,z: real;

operation: char;

begin

while True do begin

write(‘operation: ‘); readln(operation);

if operation = ‘0’ then break;

if operation in [‘+’,’-‘,’*’,’/’] then begin

write(‘x=’); readln(x);

write(‘y=’); readln(y);

case operation of

‘+’: begin z := x + y; writeln(z:5:2) end;

‘-‘: begin z := x — y; writeln(z:5:2); end;

‘*’: begin z := x * y; writeln(z:5:2); end;

‘/’: if y 0 then begin

z := x / y;

writeln(z:5:2)

end

else

writeln(‘Division by zero!’);

end;

end

else writeln(‘Bad operation!’)

end;

end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

три − 2 =

Звонок бесплатный, для абонентов РФ
заказ диплома по телефону
Заказать документ

Бонус !