29.11.2020, 13:33 [+3 UTC]
в нашей команде: 4 903 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
8.0.4
28.11.2020

Общие новости:
27.11.2020, 13:43

Форум:
29.11.2020, 09:56

Последний вопрос:
29.11.2020, 10:24
Всего: 153396

Последний ответ:
29.11.2020, 09:50
Всего: 260696

Последняя рассылка:
29.11.2020, 10:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

 

Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

 
 

Лучшие эксперты в этом разделе

mklokov
Статус: 10-й класс
Рейтинг: 272
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 194
puporev
Статус: Профессор
Рейтинг: 85
 

Перейти к консультации №:
 

Консультация онлайн # 189095
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Alenka (Посетитель)
Дата: 05.04.2016, 15:06
Поступило ответов: 1

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Мне необходимо написать программу в паскале, результатом которой является график параболы на координатной прямой,где Оси должны быть со стрелками и подписаны, минимум одна из осей разбита на един.отрезки и подписаны числа, График нарисован красным цветом и жирной линией, Подписана функция. ОЧЕНЬ СРОЧНО НАДО!

Состояние: Консультация закрыта

Здравствуйте, Alenka!

Смотрите приложение:

Код (Pascal) :: выделить код
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.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 06.04.2016, 14:57

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 189095

Зенченко Константин Николаевич

Старший модератор

ID: 31795

1

= общий = |  05.04.2016, 18:23 |  цитировать |  профиль |  личное сообщение
Alenka:

Паскаль какой?
Формула параболы?

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

Alenka

Посетитель

ID: 400104

2

= общий = |  05.04.2016, 18:26 |  цитировать |  профиль |  личное сообщение
Зенченко Константин Николаевич:

Турбо паскаль. формула y=x^2

Alenka

Посетитель

ID: 400104

3

= общий = |  05.04.2016, 18:27 |  цитировать |  профиль |  личное сообщение
Зенченко Константин Николаевич:

Извините,перепутала. фри паскаль

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.


главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.19875 сек.

2001-2020, Портал RFPRO.RU
Калашников О.А.  |  Гладенюк А.Г.
8.0.4    28.11.2020
JS 2.0.12 | CSS 4.0.9