Список використаної літератури
1. http://ru.wikipedia.org/wiki/Pascal;
2. Ульман Дж. «Бази даних на мові Паскаль»;
3. Абрамов В.Г., Н.П.Тріфонов, Г.Н.Тріфонова, Введення в мову Паскаль, М., "Наука", 1988.
4. Епанешников А.М., Епанешников В.А. Програмування в середовищі TURBO PASCAL 7.0 Москва Діалог-МИФИ, 1996р.
5. Красильников Ю.П., Курилов І.Д., Ніконов М.А. Програмування на ТУРБО ПАСКАЛЬ 5.5 Москва Діалог-МИФИ, 1993р.
6. Липа В.В. "Проектування програмних засобів": Учеб. посібник. М. "Вища школа" 1990р.
7. Лугова І.З., Л.Н. Чернишов, С.М.Юдін. Динамічні структури даних мови Паскаль, М., Видавництво МАІ
8. Программирование на языке Pascal.Автор: Г. Г. Рапаков, С. Ю. Ржеуцкая
9.Паскаль // Физическая энциклопедия / Д. М. Алексеев, А. М. Балдин, А. М. Бонч-Бруевич
10. Вирт Н. Алгоритмы + структуры данных = программы. — М.: Мир, 1985. — С. 406.
11. Вирт Н., Йенсен К. Паскаль. Руководство для пользователя и описание языка. — М.: Финансы и статистика, 1982. — С. 151.
12. Грогоно П. Программирование на языке Паскаль. — М.: Мир, 1982. — С. 384.
13. Культин Н.Б. Delphi 6. Программирование на Object Pascal. — СПб.: БХВ-Петербург, 2001. — С. 528. — ISBN 5-94157-112-7
14. Моргун А. Н. Программирование на языке Паскаль (Pascal). Основы обработки структур данных. — М.: Диалектика, 2005. — С. 576. — ISBN 5-8459-0935-X
15. Перминов О. Н. Язык программирования Паскаль : Справочник. — М.: Радио и связь, 1989. — С. 128. — ISBN 5-256-00311-9
Додаток 1. Лістинг програми
program Baza;
uses crt;
type spisok = record
name: string[20];
fakuktet: string[20];
|
|
predmet: string[20];
semestr: string[20];
crdit: integer;
end;
FT = file of spisok;
var a: ft;
i, z: integer;
s: real;
procedure Sozdanie(var a: ft);
var j: integer;
zk: spisok;
begin
rewrite(a);
repeat
begin
write('vvedite F.I.O')
readln(zk.name);
write('Vvedite fakultet ');
readln(zk.fakultet);
write('vvedite predmet');
Readln(zk.predmet);
write('vvedite dliny kursa ');
readln(zk.semestr);
write('vvedite sistemy ocenok');
readln(zk.credit);
write(a, zk);
writeln(repeat? Da - 1 net - 2 );
readln(j);
end;
until j = 0;
close(a);
end;
procedure vyvod(var a: ft);
var i: integer;
zk: spisok;
begin
clrscr;
reset(a);
writeln('=================================');
writeln('F.I.O| fakultet| Predmet| Semestr| Sistema ocenok');
writeln('=================================');
while not eof(a) do
begin
read(a, zk);
write('|', zk.name: 9, '|');
write('|', zk.fakultet: 9, '|');
write('|', zk.predmet: 9, '|');
write('|', zk.semestr: 9, '|');
write('|', zk.credit: 6, '|');
writeln;
writeln('-------------------------------');
end;
close(a);
writeln;
readln;
end;
procedure poisk(var a: ft);
var i: integer;
zk: spisok;
fio: string;
begin
clrscr;
reset(a);
writeln('Vvedite F.I.O dlja poiska ');
readln(fio);
writeln('spisok prepodavatelej');
writeln('=================================');
writeln('| F.I.O| fakultet| predmet| semestr| sistema ocenok');
writeln('=================================');
while not eof(a) do
begin
read(a, zk);
if zk.name = fio then
begin
write('|', zk.name: 9, '|');
write('|', zk.fakultet: 9, '|');
write('|', zk.predmet: 9, '|');
write('|', zk.semestr: 9, '|');
write('|', zk.credit: 6, '|');
writeln;
writeln('-------------------------------');
end;
end;
close(a);
writeln;
readln;
end;
begin
repeat
clrscr;
assign(a, 'fff');
writeln(' MEHU ');
writeln('1:cozdanie ');
writeln('2:vyvod ');
|
|
writeln('3:poisk ');
writeln('4:vyxod ');
readln(z);
case z of
1: Sozdanie(a);
2: vyvod(a);
3: poisk(a);
{4: exit;}
end;
until z=4;
WriteLn;
WriteLn('Programma zakonchila raboty.');
Readln;
end.
Дата добавления: 2018-04-05; просмотров: 336; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!