uses crt;
var
i,n,b,v,max,hi2,prov,sod2:integer;
ch:char;
nam,namears,namdata,sod1,sod3,hi:string;
fil,filears,fildata:text;
const
menu:array[1..5] of string[8] = ('‚ў®¤','—вҐ*ЁҐ','Џ®ЁбЄ','”¤*«Ґ*ЁҐ','‚л室');
Procedure cursor;
begin
textcolor(white);
for i:=1 to 5 do
begin
if n=i then textbackground(green) else textbackground(black);
gotoxy(36,8+i);
write(menu);
end;
end;
Procedure vvod;
label
cikl,oshibka;
begin
assign(fil,nam);
assign(filears,namears);
assign(fildata,namdata);
append(fil);
append(filears);
append(fildata);
cikl:
clrscr;
gotoxy(13,5);write('”€Ћ');gotoxy(13,10);write('‚®§а*бв');
gotoxy(13,15);write('ђ®¤ §**пвЁ©');
gotoxy(27,5);readln(sod1);
oshibka:
{$i-}
gotoxy(27,10);readln(sod2);
if ioresult<>0 then
begin
gotoxy(37,10) ;
write('ЋиЁЎЄ*! Џ®ўв®аЁвҐ ўў®¤.');
Readkey;
{$i+}
gotoxy(26,10) ;
write(' ');
goto oshibka;
end;
if sod2>150 then
begin
gotoxy(37,10) ;
write('‘в®«мЄ® *Ґ ¦Ёўгв! Џ®ўв®аЁвҐ ўў®¤.');
Readkey;
{$i+}
gotoxy(26,10) ;
write(' ');
goto oshibka;
end;
if sod2<1 then
begin
gotoxy(37,10) ;
write('’*Є®Ј® ў®§а*бв* *Ґ Ўлў*Ґв! Џ®ўв®аЁвҐ ўў®¤.');
Readkey;
{$i+}
gotoxy(26,10) ;
write(' ');
goto oshibka;
end;
{$i+}
gotoxy(27,15);readln(sod3);
write(fil,sod1,' ');
write(filears,sod2,' ');
write(fildata,sod3,' ');
writeln(fil,' ');writeln(filears,' ');writeln(fildata,' ');
gotoxy(12,20);
write('Ќ*¦¬ЁвҐ Enter ¤«п б«Ґ¤го饣® ўў®¤* Ё«Ё Esc ¤«п ўл室*');
ch:=readkey;
if ch=#13 then goto cikl;
if ch=#27 then
begin
close(fil);close(filears);close(fildata);
clrscr;
exit;
end;
end;
Procedure reads;
begin
clrscr;
b:=1;
gotoxy(14,1);write('”€Ћ');gotoxy(38,1);write('‚®§а*бв');
gotoxy(55,1);write('ђ®¤ §**пвЁ©');
assign(fil,nam);assign(filears,namears);assign(fildata,namdata);
reset(fil);reset(filears);reset(fildata);
while not eof(fil) do
begin
readln(fil,hi);
gotoxy(2,2+b);
write(hi,' ');
b:=b+1;
end;
b:=1;
while not eof(filears) do
begin
readln(filears,hi);
gotoxy(40,2+b);
write(hi,' ');
b:=b+1;
end;
b:=1;
while not eof(fildata) do
begin
readln(fildata,hi);
gotoxy(50,2+b);
write(hi,' ');
b:=b+1;
end;
close(fil);close(filears);close(fildata);
readkey;
clrscr;
end;
Procedure find;
begin
clrscr;
gotoxy(28,2);
write('‘*¬л© бв*аиЁ© Ё§ ¦Ё«мж®ў ¤®¬*:');
gotoxy(14,4);write('”€Ћ');gotoxy(38,4);write('‚®§а*бв');
gotoxy(55,4);write('ђ®¤ §**пвЁ©');
assign(fil,nam);assign(filears,namears);assign(fildata,namdata);
reset(fil);reset(filears);reset(fildata);
max:=1;b:=0;v:=0;
while not eof(filears) do
begin
b:=b+1;
readln(filears,hi2);
gotoxy(40,6);
if max<hi2 then
begin
max:=hi2;
v:=b;
write(hi2,' ');
end;
end;
b:=0;
while not eof(fil) do
begin
b:=b+1;
readln(fil,hi);
gotoxy(2,6);
if b=v then write(hi,' ');
end;
b:=0;
while not eof(fildata) do
begin
b:=b+1;
readln(fildata,hi);
gotoxy(50,6);
if b=v then write(hi,' ');
end;
close(fil);close(filears);close(fildata);
readkey;
clrscr;
end;
procedure del;
begin
clrscr;
gotoxy(37,10);
writeln('‚*Ё¬**ЁҐ !!!');
gotoxy(21,12);
writeln(' ќв* Їа®жҐ¤га* ЇаЁўҐ¤св Є г¤*«Ґ*Ёо Ў*§л ¤***ле.');
gotoxy(17,20);
write('Ќ*¦¬ЁвҐ Enter ¤«п г¤*«Ґ*Ёп Ё«Ё Esc ¤«п ®в¬Ґ*л');
ch:=readkey;
if ch=#13 then
begin
assign(fil,nam);assign(filears,namears);assign(fildata,namdata);
rewrite(fil);rewrite(filears);rewrite(fildata);
close(fil);close(filears);close(fildata);
clrscr;
end;
clrscr;
end;
{Ћб*®ў**п}
Begin
clrscr;
gotoxy(13,23);
write('Џа®Ја*¬¬г б®бв*ўЁ« бв㤥*в „ѓ’” ѓагЇЇл Ђ‘”11:');
gotoxy(28,24);
write('„џѓ’…ђр‚ ЉЋЌ‘’ЂЌ’€Ќ ‚Ђ‹…ђњ…‚€—');
{perem}
nam:=('fio.bdp');
namears:=('ears.bdp');
namdata:=('data.bdp');
repeat
n:=1;
cursor;
repeat
ch:=readkey;
if ch=#72 then
if n>1 then n:=n-1;
if ch=#80 then
if n<5 then n:=n+1;
cursor;
if ch=#27 then exit;
until ch=#13;
case n of
1:vvod;
2:reads;
3:find;
4:del;
5:exit;
end;
until n=5
End.
[Pascal]Нужно переделать, обяснить программу(комменты)
Код:
[COLOR="Blue"]Что изменить:[/COLOR]
1)Чтобы при нажатии клавиши ВВОД было не три поля (фио, возраст и род занятий), а шесть полей(название фирмы, вид собственности, вид деятельности, телефон, факс, адрес)
2) При нажати клавиши поис высвечивалось не старший житель дома, а осуществлялся поиск по файлу(куда будут заносится данные)!!!
Еще я не пойму зачем в этой проге нужны 3 файла ?
Вообщем нужная такая программа:
Меню(клавишное, как в исходнике):
-Обо мне-
-Создать файл-
-Название фирмы-
-Вид собсвенности-
-Вид деятельности-
-Телефон-
-Факс-
-Адрес-
-Добавить запись в файл-
-Корректировка записи-
-Удаление записи из файла-
-Чтение-
-Поиск по файлу-
-О программе-
-Выход из программы-
Если что не понятно задавайте вопросы, сам неспаравлюсь, заранее спасибо...