Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о проекте и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Тогда я, увы, - пас!
Если попробовать в Borland - то без проблем:
Uses Graph, CRT;
VAR
i,j:INTEGER;
S:String;
x,y:Real;
BEGIN
InitGraph([COLOR=Red]<параметры задайте сами>[/COLOR]);
Line(40,420,640,420);
Line(40,420,40,20);
SetTextStyle(DefaultFont,HorizDir,1);
SetTextJustify(CenterText,TopText);
OutTextXY(40,430,'0');
FOR i:=1 TO 5 DO
begin
Line(40+i*100,420,40+i*100,410);
Str(i/2:3:1,S);
OutTextXY(40+i*100,430,S+'*Pi');
end;
SetTextJustify(RightText,CenterText);
FOR i:=0 TO 10 DO
begin
Line(40,420-i*40,50,420-i*40);
Str(0.1*i:3:1,S);
OutTextXY(35,420-i*40,S);
end;
SetLineStyle(SolidLn,0,ThickWidth);
MoveTo(40,420);
x:=0;
For i:=1 to 600 do
begin
x:=x+Pi/200;
y:=SQR(Sin(x));
LineTo(40+Round(x*200/Pi),Round(420-y*400));
end;
ReadKey;
CloseGraph;
END.