Как построить такой график (что бы точки были соеденены)

[DesignFootball.Ru]

Не знал, как объяснить задание, поэтому прилагаю рисунок.



т.е. от пользователя требуется ввести лишь оценки по предметам, а компьютер должен нарисовать график, как на рисунке.

Если такое задание уже было, дайте, пожалуйста, ссылку. Я не нашёл.

Средний бал сам нашёл, а с графиком не знаю как.

[Serge_Bliznykov]

Переключайтесь в графический режим ( см. InitGraph(...) )
рисуйте линии...

Если предметов (и оценок по ним) будет фиксированное число, то задача просто элементарная!! Четыре линии нарисовать!!
я бы ещё и горизонтальной линией среднюю оценку провёл на графике - это просто и выглядело бы хорошо!

Гораздно интереснее вопрос с выводом кирилицы через векторные CHR шрифты. Если с этим будут проблемы - обращайтесь. Есть у меня такие шрифты...

[DesignFootball.Ru]

названия предметов врятли буду делать, а как сделать вывод средней оценки?

[Serge_Bliznykov]

через LINE
установить другой цвет (можно и другой тип линии) и нарисовать горизонтальную линию..

Получился график?

[DesignFootball.Ru]

Нет, мне нужно сделать через Pascal ABC, а такого модуля (InitGraph) в нём нет

[Serge_Bliznykov]

ну, так сразу бы и написал!

там есть:

uses GraphABC;

вот готовая программа.

uses GraphABC;
const
  CountOfSubject = 5;
  Marks : array[1..CountOfSubject] of integer = (8,9,6,10,7);
  SubjectName : array[1..CountOfSubject] of string[10] =
    ('МАТ', 'АНГЛ', 'ХИМ','ИНФ','БИО');

  X0 = 120;
  stepMarks = 25;
  stepSubject = 70;
  CircleRadius = 3;
  CircleColor = clRed;
  ColorLine = clOlive;
  

var
   i : integer;
   Y0 : integer;
begin
  Y0 := (WindowHeight div 2)+100;
  Line(X0, 0, X0, Y0);
  Line(X0, Y0, WindowWidth, Y0);
  SetFontName('Arial');
  SetFontSize(11);
  TextOut(X0-25, Y0-(StepMarks div 2), '0');
  for i:= 1 to 10 do begin
    if i<10 then
      TextOut(X0-25, Y0 - (i*StepMarks + (StepMarks div 2)) , IntToStr(i))
    else
      TextOut(X0-35, Y0 - (i*StepMarks + (StepMarks div 2)) , IntToStr(i));
    Line(X0-10, Y0 - i*StepMarks,
       X0, Y0 - i*StepMarks);
  end;

  SetFontName('Arial');
  SetFontSize(10);
  for i:= 1 to CountOfSubject do begin
    Line(X0+i*stepSubject, Y0, X0+i*stepSubject, Y0+10);
    TextOut(X0+i*stepSubject-15, Y0+10,
           SubjectName[i]);
  end;

  for i:= 1 to CountOfSubject do begin
    SetPenColor(CircleColor);
    Circle(X0+i*stepSubject, Y0 - Marks[i]* StepMarks, CircleRadius);
    if i>1 then begin
      SetPenColor(ColorLine);
      Line(X0+(i-1)*stepSubject, Y0 - Marks[i-1]* StepMarks,
           X0+i*stepSubject, Y0 - Marks[i]* StepMarks);
    end;
    
  end;

  
end.

нарисовать среднюю оценку - оставляю Вам в качестве домашнего задания!

[DesignFootball.Ru]

а среднюю оценку я уже сделал) Спасибо!

[DesignFootball.Ru]

может ещё подскажите, как сделать из чисел константы переменную.
т.е. что бы оценки по предметам водились с клавиатуры.
обозначить каждый предмет за переменную, и потом через writeln -> readln ?
или как?

[DesignFootball.Ru]

Спасибо, уже не надо. Сам сделал