Методические указания по программированию на языке Pascal. Юшков С.А - 15 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

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

Рубрика: 

Текст программы.
Program Grafic;
{Автор }
Uses Graph, Crt; {подключение графического модуля}
Const
GraphDriver:Integer=1;
GraphMode:Integer=1;
Var
c, d, RN, Ab, mg, mv, shag:Real;
Procedure VVOD (Var Z,Y:Real);
Begin
WriteLn (‘Введи начало и конец отрезка’);
ReadLn (Z,Y);
If Z>Y then VVOD (Z,Y);
End;
Function f(k:Real):real;
Begin
f:=k*abs(Sin(k));
End;
Begin
VVOD (c,d);
shag:=(d-c)/20;
writeln (‘Ab ‘,’RN’);
Ab:=c;
while Ab<=d do
Begin
RN:=f(Ab);
writeln (Ab:5:2,RN:6:2);
Ab:=Ab+shag;
End;
write (‘Введи mg,mv’);
readln (mg,mv);
InitGraph (GraphDriver,GraphMode,’ ‘);
Line (10,10,10,190); {рисует линию между точками (10,10) и (10,190)}
Line (10,190,310,190);
Ab:=c;
RN:=f(c);
MoveTo (10+round(c*mg), 190-round(RN*mv));{устанавливает курсор в точку с
координатами(10+round(c*mg),190-round(RN*mv)}
while Ab<= do
Begin
Ab:=Ab+shag;
RN:=f(Ab);
LineTo (10+round(Ab*mg), 190-round(RN*mv)); {рисует линию от текущего положения
курсора до точки с координатами{10+round(Ab*mg),190-round(RN*mv)}
End;
if KeyPressed then CloseGraph; {если нажата клавиша, то закрыть графический режим}

Страницы