Информатика. Шевелев Г.Е. - 79 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

79
Рис. 5.6. Блок схема алгоритма работы калькулятора
2. Программа на основе алгоритма рис.5.6:
Program Kalculator;
Uses crt;
Var x,y,z:Real;
oper:Char;
stop:Boolean;{Признак конца работы}
Begin
Clrscr;
stop:=False;
Repeat {Оператор цикла}
Writeln; {Пустая строка - разделитель}
Write(‘Введите x и y ’);
Readln(x,y);
Write(‘Операция:’);
Readln(oper);
Case oper Of {Переключатель – оператор выбора Case}
‘+’:z:=x+y;
‘-’:z:=x-y;
‘*’:z:=x*y;
‘/’:z:=x/y;
Else stop:=True;
End; { Конец оператора Case}
If Not stop Then Writeln(x:5:2,oper,y:5:2,’=’,z:5:2);
Until stop; { Конец оператора Repeat}
Writeln(‘Конец работы’)
End.
3. Наберите, откомпилируйте и исправьте возможные ошибки. Затем
запустите программу на счет.
4. Проведите тестовые расчеты так, чтобы проработали все разветвления
программы. Убедитесь в правильности работы программы. В противном случае
исправьте ошибки в алгоритме.
a,b,oper
oper
x=a+b
x=a-b
x=a*b
x=a/b
x
Конец
работы
+
-
*
/

Страницы