Компьютерная графика в Паскале abc

• Название: Компьютерная графика в Паскале abc
• Дата: 16.11.2019
• Размер: 0.51 Mb.
• Имя файла: grafika_v_paskale-abc.docx
• Тип: Документы; #95500
• страница: 2 из 2

Задача 2:построить график функции y:=cos(x);

Program cosinus;

uses GraphABC;

var

x,y:real;

Begin

SetWindowSize(400,400);

Line (200,0,200,400);

Line (0,200,400,200);

x:= -10;

while x<=10 do

begin

y:=-cos(x);

circle (trunc(x*20+200),trunc(y*20+200),2);

x:=x+0.01

end

End.

ПРИМЕР ПРОГРАММЫ: