Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189095
05.04.2016, 15:06
0.00 руб.
0 4 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Мне необходимо написать программу в паскале, результатом которой является график параболы на координатной прямой,где Оси должны быть со стрелками и подписаны, минимум одна из осей разбита на един.отрезки и подписаны числа, График нарисован красным цветом и жирной линией, Подписана функция. ОЧЕНЬ СРОЧНО НАДО!

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
05.04.2016, 18:23
общий
Адресаты:
Паскаль какой?
Формула параболы?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Alenka
Посетитель
400104
2
05.04.2016, 18:26
общий
Адресаты:
Турбо паскаль. формула y=x^2
давно
Alenka
Посетитель
400104
2
05.04.2016, 18:27
общий
Адресаты:
Извините,перепутала. фри паскаль
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
06.04.2016, 14:57
общий
это ответ
Здравствуйте, Alenka!

Смотрите приложение:
[code lang=pascal h=200]uses crt,graph;
const
c1=10;
var
x,y,z,xm,ym:integer;
begin
x:=detect;
InitGraph(x,y,'');{запускаем графику}
x:=GraphResult;
if x=grOk then{графика запустилась}
begin
xm:=GetMaxX div 2;{средина экрана}
ym:=GetMaxY div 2;
Line(xm,ym-400,xm,ym+400);{оси}
Line(xm-400,ym,xm+400,ym);
for x:=0 to 38 do{засечки на осях}
begin
if (x mod c1)=0 then z:=10
else z:= 5;
Line(xm+c1*x,ym-z,xm+c1*x,ym+z);
Line(xm-c1*x,ym-z,xm-c1*x,ym+z);
Line(xm-z,ym+c1*x,xm+z,ym+c1*x);
Line(xm-z,ym-c1*x,xm+z,ym-c1*x);
end;
Line(xm-10,ym-390,xm,ym-400);{стрелки}
Line(xm+10,ym-390,xm,ym-400);
Line(xm+390,ym-10,xm+400,ym);
Line(xm+390,ym+10,xm+400,ym);
{надписи на осях}
OutTextXY(xm+20,ym+20,'0 10 20 30 X');
SetTextStyle(DefaultFont,VertDir,1);
OutTextXY(xm-20,100, '10 20 30');
{устанавливаем параметры для графика}
SetColor(12);
MoveTo(xm-c1*19,ym-361);
SetLineStyle(SolidLn,0,ThickWidth);
for x:=-19 to 19 do{рисуем график}
LineTo(xm+c1*x,ym-x*x);
readln;
CloseGraph;
end
else
begin
write('Error:',GraphErrorMsg(x));{сообщение об ошибке запуска графики}
readln;
end
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа