Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

[Pascal]Нужно переделать, обяснить программу(комменты)

3.3K
29 апреля 2007 года
Nethead
88 / / 24.11.2006
[COLOR="Blue"]Дана программа:[/COLOR]

Код:
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('ЋиЁЎЄ*! Џ&#174;ўв&#174;аЁвҐ ўў&#174;&#164;.');
     Readkey;
    {$i+}
     gotoxy(26,10) ;
     write('                                                   ');
     goto oshibka;
    end;
    if sod2>150 then
    begin
     gotoxy(37,10) ;
     write('‘в&#174;&#171;мЄ&#174; *Ґ &#166;Ёўгв! Џ&#174;ўв&#174;аЁвҐ ўў&#174;&#164;.');
     Readkey;
    {$i+}
     gotoxy(26,10) ;
     write('                                                   ');
     goto oshibka;
    end;
    if sod2<1 then
    begin
     gotoxy(37,10) ;
     write('’*Є&#174;Ј&#174; ў&#174;&#167;а*бв* *Ґ Ўлў*Ґв! Џ&#174;ўв&#174;аЁвҐ ўў&#174;&#164;.');
     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('Ќ*&#166;&#172;ЁвҐ Enter &#164;&#171;п б&#171;Ґ&#164;го饣&#174; ўў&#174;&#164;* Ё&#171;Ё Esc &#164;&#171;п ўле&#174;&#164;*');
   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('&#8221;&#8364;Ћ');gotoxy(38,1);write('‚&#174;&#167;а*бв');
  gotoxy(55,1);write('ђ&#174;&#164; &#167;**пвЁ&#169;');
   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('‘*&#172;л&#169; бв*аиЁ&#169; Ё&#167; &#166;Ё&#171;мж&#174;ў &#164;&#174;&#172;*:');
  gotoxy(14,4);write('&#8221;&#8364;Ћ');gotoxy(38,4);write('‚&#174;&#167;а*бв');
  gotoxy(55,4);write('ђ&#174;&#164; &#167;**пвЁ&#169;');
   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('‚*Ё&#172;**ЁҐ !!!');
  gotoxy(21,12);
   writeln(' ќв* Їа&#174;жҐ&#164;га* ЇаЁўҐ&#164;св Є г&#164;*&#171;Ґ*Ёо Ў*&#167;л &#164;***ле.');
  gotoxy(17,20);
   write('Ќ*&#166;&#172;ЁвҐ Enter &#164;&#171;п г&#164;*&#171;Ґ*Ёп Ё&#171;Ё Esc &#164;&#171;п &#174;в&#172;Ґ*л');
    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;
{Ћб*&#174;ў**п}
Begin
 clrscr;
 gotoxy(13,23);
 write('Џа&#174;Ја*&#172;&#172;г б&#174;бв*ўЁ&#171; бвг&#164;Ґ*в „ѓ’” ѓагЇЇл Ђ‘”11:');
 gotoxy(28,24);
 write('„џѓ’&#8230;ђр‚ ЉЋЌ‘’ЂЌ’&#8364;Ќ ‚Ђ‹&#8230;ђњ&#8230;‚&#8364;&#8212;');
 {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.


[COLOR="Blue"]Что изменить:[/COLOR]
1)Чтобы при нажатии клавиши ВВОД было не три поля (фио, возраст и род занятий), а шесть полей(название фирмы, вид собственности, вид деятельности, телефон, факс, адрес)
2) При нажати клавиши поис высвечивалось не старший житель дома, а осуществлялся поиск по файлу(куда будут заносится данные)!!!

Еще я не пойму зачем в этой проге нужны 3 файла ?

Вообщем нужная такая программа:
Меню(клавишное, как в исходнике):
-Обо мне-

-Создать файл-
-Название фирмы-
-Вид собсвенности-
-Вид деятельности-
-Телефон-
-Факс-
-Адрес-
-Добавить запись в файл-
-Корректировка записи-
-Удаление записи из файла-
-Чтение-
-Поиск по файлу-
-О программе-
-Выход из программы-

Если что не понятно задавайте вопросы, сам неспаравлюсь, заранее спасибо...
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог