Вводные данные:
2.7 Выводные данные:
Листинг программы
program Project1;
const n=8;
type
StudInfo=record;
Name:string;
God:real;
Grp:string;
F,H,A:char;
end;
Info=record
Stud:StudInfo;end;
var DataBase:array [1..N] of Info;
NumItems:integer;
procedure CreateDataBase;
var i:integer;
begin
repeat
write('--Сколько элементов будем вводить:--');
readln(NumItems);
until NumItems<=N;
for i:=1 to NumItems do begin
with DataBase[i] do begin
writeln('--Имя студента:--');
readln(Stud.Name);
writeln('--Год рождения:--');
readln(Stud.god);
writeln('--Группа:--');
readln(Stud.Grp);
writeln('--Физика:--');
readln(Stud.f);
writeln('--Химия:--');
readln(Stud.h);
writeln('--Алгебра:--');
readln(Stud.a);
end;end;
writeln('--База данных успешно создана--');
end;
procedure DisplayDataBase;
var i:integer;
begin
if NumItems<>0 then
begin
for i:=1 to NumItems do
begin
write('--#');
write(i);
writeln('--');
with DataBase[i] do begin
write('Имя Студента:');
writeln(stud.Name);
write('Год рождения:');
writeln(stud.god);
write('Группа:');
writeln(stud.grp);
write('Физика:');
writeln(Stud.f);
write('Химия:');
writeln(Stud.h);
write('Алгебра:');
writeln(Stud.a);
end;end;end
else writeln('--База данных пуста--');
end;
procedure SearchDataBase;
var i:integer;
begin
for i:=1 to NumItems do begin
with Database[i] do begin
if stud.grp='Исэб' then begin
write('Имя Студента:');
writeln(stud.Name);
write('Год рождения:');
writeln(stud.god);
write('Группа:');
writeln(stud.grp);
write('Физика:');
writeln(Stud.f);
write('Химия:');
writeln(Stud.h);
write('Алгебра:');
writeln(Stud.a);
end;end;end;end;
procedure SearchDataBase1;
var i:integer;
begin
for i:=1 to NumItems do begin
with Database[i] do begin
if (stud.name[1]='Д') then begin
write('Имя Студента:');
writeln(stud.Name);
write('Год рождения:');
writeln(stud.god);
write('Группа:');
writeln(stud.grp);
write('Физика:');
writeln(Stud.f);
write('Химия:');
writeln(Stud.h);
write('Алгебра:');
writeln(Stud.a);
end;end;end;end;
procedure MainMenu;
var cmd:integer;
begin
repeat
writeln('--Главное меню:--');
writeln('1:Создать базу данных');
writeln('2:Показать базу данных');
writeln('3:Показать сведения о студентах специальности Исэб.');
Writeln('4:Сведения о студентов, фамилии которых начинаються с буквы Д.');
writeln('9:Выход');
write('Введите команду:');
readln(cmd);
if (cmd>9) or (cmd<0) then writeln('--Неверная команда--')
else begin
case cmd of
1:CreateDataBase;
2:DisplayDataBase;
3:SearchDataBase;
4:SearchDataBase1;
end;end;
until cmd=9;end;
begin
MainMenu;
end.
Заключение
Благодаря данной курсовой работе, я более детально понял и изучил язык программирования Паскаль, а именно освоил темы: «Массивы», «Файлы». В итоге мы наработали огромную и стабильную базу в процессе программирования, которая поможет нам в дальнейшем.
Данная курсовая работа итогом того, чем мы занимались весь 1 курс. А именно изучение такой важной дисциплины как «Программирование на алгоритмических языках». Благодаря ему мы можем решать задачи различной сложности на Паскаль.