Заключение

В ходе работы были изучены и применены на практике основы языков TurboPascal, C. Также были изучены различные форматы оформления документов по общепринятым стандартам и ГОСТам.

Список используемых источников

1. ГОСТ 19 106-78

2. Турбо Паскаль 7.0 – К.: Издательская группа BHV, 2000. – 432 стр.

Приложение 1

Текст программы и модулей

Основнаяпрограмма

programpractica;

usescrt,cozdanie,chtenie;

type zap=record

fam,name,otch,pol:string[15];

god:integer;

end;

var

f: file of zap;

w:zap;

a:zap;

c:char;

n:integer;

k:integer;

{PROCEDURA MENU}

procedure menu(var k:integer);

begin

clrscr;

window(30,5,70,19); {RASPOLOGENIE TABL}

writeln('┌─────────────────────┐');

writeln('│ МЕНЮ │');

writeln('├─────────────────────┤');

writeln('│1.Созданиезаписей │');

writeln('│2.Просмотр записей │');

writeln('│3.Добавление записей │');

writeln('│4.Удаление записей │');

writeln('│5.Редакт. записей │');

writeln('│6.Проблемная часть │');

writeln('│7.ВЫХОД │');

writeln('├─────────────────────┤');

writeln('│Введите ваш выбор: │');

writeln('└─────────────────────┘');

gotoxy(20,12); {RASPOLOG KURSORA}

readln(k);clrscr;

window(1,1,80,25);

end;

begin

clrscr;

repeat

menu(k);

case k of

1:sozdanie;

2:prosmotr;

3:;

4:;

5:;

6:;

7:;

else menu(k);

end;

until k=7;

end.

Модули

1. Созданиефайла

UNIT cozdanie;

{PROGRAM2.PAS}

INTERFACE

USES crt;

TYPE zap=record

fam,name,otch,pol:STRING[15];

god:integer;

END;

var

f: file of zap;

a:zap;

c:char;

n:integer;

k:integer;

m:string[15];

Procedure sozdanie;

IMPLEMENTATION

Procedure sozdanie;

begin

writeln('vvedite name file');

readln(m);

assign(f,m);

c:='y';

rewrite(f);

while c='y' do

begin

write('Familia ');readln(a.fam);

write('Imya ');readln(a.name);

write('Otchestvo ');readln(a.otch);

write('God ');readln(a.god);

write('Pol ');readln(a.pol);

write(f,a);

write('ПРОДОЛЖИТЬ?Y/N');

readln(c);

clrscr;

end;

close(f);

end;

END.

2. Просмотрфайла

UNIT chtenie;

INTERFACE

type zap=record

fam, name, otch, pol:string[15];

god:integer;

END;

Var

f:file of zap;

a:zap;

c:char;

n:integer;

k:integer;

m:string[15];

code:integer;

Procedure prosmotr;

IMPLEMENTATION

usescrt,poisk;

Procedure prosmotr;

Begin

clrscr;

writeln('vvedite name file');

readln(m);

assign (f,m);

{$I-}

code:=IOResult;

if code<>0 then

begin

error(code);

writeln(code);

end

else

begin

reset(f);

writeln('╔════════════╦═══════════╦═══════════════╦═════════╦══════════╗');

writeln('║ Familia ║ Name ║Otchestvo ║ Pol ║ God ║');

writeln('╠════════════╬═══════════╬═══════════════╬═════════╬══════════║');

while not eof(f) do

Begin

read(f,a);

writeln('║',a.fam:12, '║',a.name:11, '║',a.otch:15, '║',a.pol:9,'║',a.god:10, '║' );

end;

end;

writeln('╚════════════╩═══════════╩═══════════════╩═════════╩══════════╝');

writeln('Konecprogrammi, nazhmitelubuuklavishu');

close(f);

readln;

end;

end.

3. поиск ошибок

UNIT poisk;

INTERFACE

usescrt;

Procedure error(code:integer);

IMPLEMENTATION

Procedure error;

begin

case code of

2: write('file not found');

3:write('path not found');

152:write('drive not ready');

else

write('ERROR!!!');

end;

readkey;

END;

END.