Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 55 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

109
writeln('Список всей группы');
writeln('Фамилия студента: ':30, 'средний балл: ':10);
for i:=1 to n do
writeln(z[i].fam:30, z[i].SB:6:2);
for i:=1 to 3 do d[i]:=0;
for i:=1 to n do
begin
if(z[i].SB>=4.75) and (z[i].k3=0) then d[1]:=d[1]+1;
if ((z[i].SB>=4.0) and (z[i].SB<4.75)) or
((z[i].SB>=4.75) and (z[i].k3<>0)) then d[2]:=d[2]+1;
if z[i].SB<4.0 then d[3]:=d[3]+1;
end;
for q:=1 to 3 do
x[q]:=Round(d[q]/n*360);
Writeln('Если желаете посмотреть диаграмму наберите: 97');
readln(vr);
if vr=97 then
begin
init;
SetColor(Yellow);
SetBkColor(Blue);
SetLineStyle(0,1,1);
gmx:=GetMaxX div 4;
gmy:=GetMaxY div 4;
StA:=0;
EndA:=0;
for q:=1 to 3 do
begin
EndA:=EndA+x[q];
SetfillStyle (1,q+3);
PieSlice(gmx+5,gmy+70,StA,EndA,gmy);
StA:=StA+x[q];
end;
p1:=(d[1]*100)/n;
p2:=(d[2]*100)/n;
p3:=(d[3]*100)/n;
OutTextXY(140,20,'Круговая диаграмма успеваемости студен-
тов');
SetFillStyle(1,4);
Bar(330,80,350,90);
OutTextXY(360,80,'Студенты идущие на красный диплом');
setFillStyle(1,5);
Bar(330,100,350,110);
OutTextXY(360,100,'Студенты со средним баллом');
110
OutTextXY(380,110,' диплолма от 4.0 до 4.75');
setFillStyle(1,6);
Bar(330,130,350,140);
OutTextXY(360,130,'Студенты со средним
баллом');
OutTextXY(380,140,'диплолма до 4.0');
Repeat Until KeyPressed;
CloseGraph;
end;
end.
Результаты работы:
Результаты обработки массива записей:
1-создание файла; 2-работа с файлом 2
Список студентов, идущих на красный диплом
Фамилия студента: средний балл:
Мощенко Е.А. 4.93
Кувалдина Н.М. 4.91
Список всей группы
Фамилия студента: средний балл:
Мощенко Е.А. 4.93
Кувалдина Н.М. 4.91
Елькина И.М. 4.56
Макарова М.П. 4.47
Жуков А.Г. 4.34
Кузьменкова О.А. 4.20
Россов Д.В. 4.15
Лещенко
А.С. 4.12
Машуков Н.А. 4.12
Манкевич И.С. 4.01
Маторина У.Н. 3.89
Черепанов Т.П. 3.86
Невгодовская А.В. 3.84
Рузавин А.В. 3.67
Трошина В.Г. 3.34
Если желаете посмотреть диаграмму наберите: 97 
          writeln('Список всей группы');                                           OutTextXY(380,110,' диплолма от 4.0 до 4.75');
          writeln('Фамилия студента: ':30, 'средний балл: ':10);                   setFillStyle(1,6);
         for i:=1 to n do                                                         Bar(330,130,350,140);
         writeln(z[i].fam:30, z[i].SB:6:2);                                       OutTextXY(360,130,'Студенты со средним баллом');
          for i:=1 to 3 do d[i]:=0;                                               OutTextXY(380,140,'диплолма до 4.0');
          for i:=1 to n do                                                       Repeat Until KeyPressed;
            begin                                                               CloseGraph;
                 if(z[i].SB>=4.75) and (z[i].k3=0) then d[1]:=d[1]+1;          end;
             if ((z[i].SB>=4.0) and (z[i].SB<4.75)) or                       end.
                   ((z[i].SB>=4.75) and (z[i].k3<>0)) then d[2]:=d[2]+1;                         Результаты работы:
             if z[i].SB<4.0 then d[3]:=d[3]+1;                                          Результаты обработки массива записей:
            end;                                                           1-создание файла; 2-работа с файлом 2
          for q:=1 to 3 do                                                 Список студентов, идущих на красный диплом
           x[q]:=Round(d[q]/n*360);                                        Фамилия студента: средний балл:
          Writeln('Если желаете посмотреть диаграмму наберите: 97');       Мощенко Е.А. 4.93
          readln(vr);                                                      Кувалдина Н.М. 4.91
           if vr=97 then                                                   Список всей группы
          begin                                                            Фамилия студента: средний балл:
           init;                                                           Мощенко Е.А. 4.93
           SetColor(Yellow);                                               Кувалдина Н.М. 4.91
           SetBkColor(Blue);                                               Елькина И.М. 4.56
           SetLineStyle(0,1,1);                                            Макарова М.П. 4.47
           gmx:=GetMaxX div 4;                                             Жуков А.Г. 4.34
           gmy:=GetMaxY div 4;                                             Кузьменкова О.А. 4.20
              StA:=0;                                                      Россов Д.В. 4.15
               EndA:=0;                                                    Лещенко А.С. 4.12
               for q:=1 to 3 do                                            Машуков Н.А. 4.12
                begin                                                      Манкевич И.С. 4.01
                 EndA:=EndA+x[q];                                          Маторина У.Н. 3.89
                 SetfillStyle (1,q+3);                                     Черепанов Т.П. 3.86
                 PieSlice(gmx+5,gmy+70,StA,EndA,gmy);                      Невгодовская А.В. 3.84
                 StA:=StA+x[q];                                            Рузавин А.В. 3.67
              end;                                                         Трошина В.Г. 3.34
              p1:=(d[1]*100)/n;                                            Если желаете посмотреть диаграмму наберите: 97
              p2:=(d[2]*100)/n;
              p3:=(d[3]*100)/n;
               OutTextXY(140,20,'Круговая диаграмма успеваемости студен-
тов');
            SetFillStyle(1,4);
            Bar(330,80,350,90);
            OutTextXY(360,80,'Студенты идущие на красный диплом');
            setFillStyle(1,5);
            Bar(330,100,350,110);
            OutTextXY(360,100,'Студенты со средним баллом');
                                   109                                                                  110

Страницы