діть вартість однієї хвилини розмови з містом ', Tel.kod,' в 3-му місяці: ');
readln (tel.price3);
write (a, tel);
end;
close (a); reset (a);
s: = 1;
while not eof (a) do begin
read (a, tel);
res [s]. kod: = tel.kod;
res [s]. tpm: = tel.tpm1 + tel.tpm2 + tel.tpm3;
res [s]. pr1: = tel.tpm1 * tel.price1;
res [s]. pr2: = tel.tpm2 * tel.price2;
res [s]. pr3: = tel.tpm3 * tel.price3;
res [s]. ob: = res [s]. pr1 + res [s]. pr2 + res [s]. pr3;
s: = s +1;
end; close (a);
clrscr;
writeln ('Код міста Загальний час розмови за кожен місяць Вартість хвилини розмови ');
reset (a);
while not eof (a) do
begin
read (a, tel);
writeln ('', tel.tpm1, '', tel.price1);
writeln ('', tel.kod, '', tel.tpm2, '', tel.price2);
writeln ('', tel.tpm3, '', tel.price3);
end;
textcolor (14);
gotoxy (18,24);
writeln ('Для продовження роботи програми натисніть ENTER');
readln;
clrscr;
textcolor (0);
writeln ('Код міста Загальний час розмови за квартал Плата за місяць Загальна плата ');
for i: = 1 to 7 do
begin
aa: = res [i]. kod;
writeln ('', res [i]. pr1);
writeln ('', aa, '', res [i]. tpm, '', res [i]. pr2, '', res [i]. ob);
writeln ('', res [i]. pr3);
end;
max: = res [1]. ob;
for i: = +1 to 6 do begin
if res [i +1]. ob> max then
begin
max: = res [i +1]. ob;
j: = i +1;
end;
end;
writeln ('Місто з найбільшою платою:', res [j]. kod);
textcolor (14);
gotoxy (18,24);
writeln ('Для завершення роботи програми натисніть ENTER');
readln;
end.
Завдання 5 Упорядкувати список студентів за середнім балом і роздрукувати його
Program spisok_grupp;
Uses Crt;
Const kurs = 3;
Const kol = 5;
Type
sved = record
famil: string [25];
datar: string [8];
god: integer;
gruppa: integer;
ocenki: array [1 .. 3,1 .. 5] of integer;
srball: array [1 .. 25] of real;
End;
Var
spisok: array [1 .. 25] of sved;
i, i1, j, s, mesto, n, g: integer;
max, t: real;
q: string [25];
Begin
ClrScr;
writeln ('Введіть кількість учнів ');
readln (n);
for i: = 1 to n do
With spisok [i] do
Begin
Writeln ('Прізвище', i, 'студента');
Readln (Famil);
Writeln ('Дата народження ');
Readln (Datar);
Writeln ('Рік надходження ');
Readln (god);
Writeln ('Група');
Readln (Gruppa);
s: = 0;
for i1: = 1 to kurs do
begin
writeln ('Оцінки ', I1,' року ');
for j: = 1 to kol do
Begin
Writeln (j, ' Предмет ');
Readln (Ocenki [i1, j]);
s: = s + ocenki [i1, j];
End;
end;
srball [i]: = s/(kol * kurs);
ClrScr;
End;
writeln ('Прізвище': 8, 'Дата народження ': 16,' Рік вступу ': 18,' Курс ': 7,' Група ': 8);
for i: = 1 to n do
begin
with spisok [i] do write (famil: 8, datar: 16, god: 18, kurs: 7, gruppa: 8);
writeln;
writeln;
for g: = 1 to kurs do
begin
write (g, ' рік: ');
for j: = 1 to kol do
with spisok [i] do write (ocenki [g, j]: 4);
writeln;
end;
with spisok [i] do writeln ('Середній бал =', srball [i]: 6:2);
writeln;
end;
writeln;
writeln ('За порядком ');
for j: = 1 to n do
Begin
max: = spisok [j]. srball [j];
mesto: = j;
for i: = j to n do
if spisok [i]. srball [i] <= max then
Begin
max: = spisok [i]. srball [i];
mesto: = i;
End;
t: = spisok [j]. srball [j];
spisok [j]. srball [j]: = spisok [mesto]. srball [mesto];
spisok [mesto]. srball [mesto]: = t;
q: = spisok [j]. famil;
spisok [j]. famil: = spisok [mesto]. famil;
spisok [mesto]. famil: = q;
with spisok [j] do writeln (famil 8, srball [j] 6:2),
End;
End.
Завдання 6. Запис з варіантами
var R = Record
rem: string;
Case byte of
3: (N: integer);
5: (X, y, z: char);
...
