USES CRT,Printer;
VAR
name:text;
procedure sozdanie;
VAR
s:integer;
push:char;
i:integer;
Begin
assign(name,'test.txt');
rewrite(name);
repeat
writeln('введите данные в фаил:');
write('код отдела - '); readln(s); writeln(name,s);
write('код лаборатории - '); readln(s); writeln(name,s);
write('табельный номер сотрудника - '); readln(s); writeln(name,s);
write('дата(месяц) - '); readln(s); writeln(name,s);
write('код начисления - '); readln(s); writeln(name,s);
write('сумма начисления - '); readln(s); writeln(name,s);
writeln('Хотите ли сделать ещё запись?(Y/N)');
push:=readkey;
until push in ['N','n'];
close(name);
End;
procedure correctirovka;
Var
s:String;
push,otvet:char;
Begin
assign(name,'test.txt');
reset(name);
while not eof(name) do
begin
readln(name,s);
writeln(s);
end;
writeln('Хотите ли вы добавить запись к файлу(Y/N) ?');
otvet:='n';
write(otvet);
repeat
push:=readkey;
gotoxy(wherex-1,wherey);
IF push in ['Y','y','n','N'] then otvet:=push;
write(otvet);
until ord(push)=13;
writeln;
IF otvet in ['Y','y'] then
begin
append(name);
writeln('Добавление записи:');
repeat
write('код отдела - '); readln(s); writeln(name,s);
write('код лаборатории - '); readln(s); writeln(name,s);
write('табельный номер сотрудника - '); readln(s); writeln(name,s);
write('дата(месяц) - '); readln(s); writeln(name,s);
write('код начисления - '); readln(s); writeln(name,s);
write('сумма начисления - '); readln(s); writeln(name,s);
writeln('Хотите ли добавить ещё одну запись?(Y/N)');
push:=readkey;
until push in ['N','n'];
close(name);
IF otvet in ['N','n'] then
begin
writeln('Хотите ли удалить запись(Y/N) ?');
otvet:='n';
write(otvet);
repeat
push:=readkey;
gotoxy(wherex-1,wherey);
IF push in ['Y','y','n','N'] then otvet:=push;
write(otvet);
until ord(push)=13;
writeln;
end;
End;
procedure prosmotr;
VAR
s:string;
i:integer;
Begin
i:=0;
assign(name,'test.txt');
reset(name);
writeln('--------------------------------------------------------------------');
writeln('№':5,' Код Код Табельный Дата Код Сумма ');
writeln(' отдела лаборатории номер (месяц) Начисления Начисления');
writeln('--------------------------------------------------------------------');
while not eof(name) do
begin
inc(i);
write(i:5);
readln(name,s); write(s:7);
readln(name,s); write(s:11);
readln(name,s); write(s:11);
readln(name,s); write(s:9);
readln(name,s); write(s:9);
readln(name,s); write(s:12);
end;
readln;
close(name);
End;
procedure pechatnaprintere;
Begin
writeln(LST,'test.txt');
End;
procedure podmenu1;
VAR
F:integer;
ch:char;
begin
repeat
F:=0;
clrscr;
writeln(' Ведение основного файла: ');
writeln('1 -> Создание нового основного файла');
writeln('2 -> Корректировка основного файла');
writeln('3 -> Просмотр на экране основного файла');
writeln('4 -> Печать основного файла');
writeln('5 -> Возврат в главное меню');
repeat
ch:=readkey;
IF not(ch in ['1'..'5']) then
begin
writeln('неверная клавиша!');
F:=F+1;
if F=4 then
begin
writeln('программа завершена из-за неправильного ввода данных');
writeln('нажмите любую кнопку для выхода');
readkey;
end
else
if F=3 then
begin
writeln('у вас ещё ', 4-F,' попытка');
writeln('выберите существующий пункт подменю');
end
else
begin
writeln('у вас ещё ', 4-F,' попытки');
writeln('выберите существующий пункт подменю');
end;
end;
until (ch in ['1'..'5']) or (F=4);
case ch of
'1': sozdanie;
'2': correctirovka;
'3': prosmotr;
'4': pechatnaprintere
end;
until (F=4) or (ch='5');
end;
Begin
podmenu1;
End.
запутался с procedure prosmotr. Если я создаю несколько записей, то они должны грмотно выводиться по столбцам. А выходит, что всё сбивается и белеберда.... (
Если ещё что-то корявое, то поправьте плизз