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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

78
2. Программа на основе алгоритма рис.5.5:
Program Kvadrant;
Uses crt;
Label 1;
Var x,y:Real;
n:Integer;
Begin
Clrscr;
{Ввод исходных данных}
Writeln(‘Введите координаты точки: x, y’);
Readln(x,y);
{Анализ расположения точки и определение квадранта}
n:=1;
If (x>0) and (y<0) Then
Begin n:=4;Goto 1 End
Else If (x<0) and (y<0) Then
Begin n:=3;Goto 1 End
Else If (x<0) and (y>0) Then
Begin n:=2;Goto 1 End;
{Вывод результата расчета}
1:Writeln(‘Номер квадранта = ’, n)
End.
3. Наберите, откомпилируйте и исправьте возможные ошибки. Затем
запустите программу на счет.
4. Проведите тестовые расчеты так, чтобы проработали все разветвления
программы. Проанализируйте полученные результаты.
Задание № 2. Разработать алгоритм, имитирующий работу калькулятора.
После ввода двух чисел и символа арифметической операции над числами
должно производиться соответствующее действие и результат выводиться на
экран. Признаком конца работы является ввод любого символа, отличного от
‘+’, ‘-‘, ‘*’ или ’/’.
Разработать, набрать и отладить программу, реализующую этот алгоритм.
Методика выполнения работы
1. Алгоритм в виде блок-схемы:

Страницы