Система задач и упражнений по языку программирования Pascal. Часть 2 - 33 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

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

Рубрика: 

33
Приложение 1
Тексты программ для выполнения лабораторных работ
Файл LAB5.pas
program upr;
uses crt;
{-----------------описание типов-----------------------}
type st=string[20];
str=string[8];
ocenka=record
ekz:array[1..6] of integer;
zach1,zach2:str;
end;
student=record
fam,im,ot:st;
end;
vedomost=record
ocen:ocenka;
stud:student;
end;
A=array [1..20] of vedomost;
{-------------конец описания типов---------------------}
var X:A;i,j,k,l,n:integer;
S,S1,S2:st;t,c,v,d:real;
{------------------процедуры ввода -------------------------}
procedure wwod_vedom (var o:vedomost);
begin
write('Введите фамилию ');readln(o.stud.fam);
write('Введите имя ');readln(o.stud.im);
write('Введите отчество ');readln(o.stud.ot);
write('Введите оценку за 1 экз. ');readln(o.ocen.ekz[1]);
write('Введите оценку за 2 экз. ');readln(o.ocen.ekz[2]);
write('Введите оценку за 3 экз. ');readln(o.ocen.ekz[3]);
write('Введите оценку за 4 экз. ');readln(o.ocen.ekz[4]);
write('Введите оценку за 5 экз. ');readln(o.ocen.ekz[5]);
write('Введите оценку за 6 экз. ');readln(o.ocen.ekz[6]);
write('Введите отметку о 1 зачете
');readln(o.ocen.zach1);
write('Введите отметку о 2 зачете ');readln(o.ocen.zach2);
end;
{-----------------------------------------------------------}
procedure wwod(var x:A);
var i:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
clrscr;
wwod_vedom(x[i]) end;end;
{-----------------------------------------------------------}
{---------------процедура вывода-------------------}
procedure wywod(n:integer;h:A);
var i:integer;
begin
clrscr;
for i:=1 to 80 do write('-');
gotoxy (1,4);
for i:=1 to 80 do write('-');
gotoxy (1,2);write('| Фамилия И.О. | Оценка за экзамены |Oтметка
о зачетах|Стипендия|');
gotoxy (1,3);write('| |1экз|2экз|3экз|4экз|5экз|6экз|1 зачет
|2 зачет | |');

Страницы