Turbo Pascal - дағы енгізу және шығару операторлары

~ Оценка по истори

~ Оценка по в.т.

~ Оценка по статистики

Сформируйте таблицу, записав в нее всю известную о қаждом студенте и его средний балл. Подсчитайте средний балл по каждому предмету выведите таблицу на экран дисплея в алфотвитном порядке.}

{Автор: Бақтығалиев Бекнұр}

{Подключения модуля CRT.}

Uses CRT;

{Описания записи о каждом студенте. }

type

tablica=record

паmе: string[15];

group: string[6];

god: integer;

vt, history, stat, math: byte;

sr bal:real;

end;

var

i,j, n:integer;a:tablica;

{Таблица- массив записей.}

mas: array [1 .. 30] of tablica;

{Переменные для сравнение средних значении пo предметам. }

s vt, s history, s stat, s math: real;

begin

{Bвод количества n записи.}

write('n='); readln(n);

{Ввод элементов в массив записей.}

for і:=l to n do

with mas [і] do

begin

writeln (' і=', і: 4);

writeln ('FIO');

readln (nаmе);

writeln('GROUP') ;

readln (group);

writeln ('Year');

readln (god);

writeln ('Otsenki');

readln(vt,history,stat,math);

sr_bal:=(vt+history+stat+math)/4;

end;

{Вычисление средних значении по каждому предмету. }

s vt:=0; s history:=0; s stat:=0; s math:=0;

for і

На правах рекламы