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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

88
II. Использование пользовательской подпрограммы-процедуры
Процедуры используются в тех случаях, когда необходимо в
подпрограмме получить несколько результатов. Описание процедуры включает
в себя заголовок процедуры, разделы описаний, тело процедуры. В заголовке
после ключевого слова Procedure указывается имя процедуры, в скобках –
список формальных параметров со своими описаниями, причем перед
выходными параметрами должен стоять описатель var. Обращение к процедуре
осуществляется оператором процедуры, в котором записываются имя
процедуры и ее фактические параметры.
Задание. Составить программу для вычисления полярных координат
x
y
fyxr arctan и
22
по прямоугольным координатам (x,y), x>0.
Перевод координат из прямоугольных в полярные оформить в виде
процедуры Polar.
Набрать и отладить программу для перевода координат n точек.
Методика выполнения работы
1. Программа:
Program PrPol;
Uses crt;
Var xi,yi,ri,fi:Real;
n,i:Integer;
Procedure Polar(x,y:Real;Var r,f:Real);{Заголовок подпрограммы-
процедуры}
Begin {Начало тела подпрограммы-процедуры}
r:=Sqrt(x*x+y*y)
f:=Arctan(y/x);
End; {Конец тела подпрограммы-процедуры}
Begin
Clrscr;
Writeln(‘Введите количество точек’);
Readln(n);
For i:=1 To n Do
Begin
Writeln(‘Введите координаты x и y’,i:3,’-й точки’);
Readln(xi,yi);
Polar(xi,yi,ri,fi); {Обращение к процедуре Polar}
Write(ri:8:2,fi:8:2);
Writeln
End;
End.

Страницы