Інформаційно-пошукова система - ФК Динамо Київ

 

    IF pozz3(poz3,vidp,Ff.g) then

    begin

 

{+++++}    if (vidp=1) or (vidp=2) then

    begin

 

    t:=t+1;

   gotoxy(30,1+j);Writeln('Ќ®¬Ґа § ЇЁбг=',i);

   gotoxy(30,2+j);Write('1-Џаi§ўЁйҐ,I¬`п  =');writeln(Ff.f);

   gotoxy(30,3+j);Write('2-ђiЄ  ­ а®¤¦Ґ­­п=');writeln(Ff.g);

   gotoxy(30,4+j);Write('3-Ќ®¬Ґа         =');writeln(Ff.c);

   gotoxy(30,5+j);Write('4-Џ®§Ёжiп       =');writeln(Ff.m);

   gotoxy(30,6+j);Write('5-Ља i­         =');writeln(Ff.co);

   writeln;

 

   j:=j+7;

 

          if ((t mod 3)=0) and (t<>0) then

         begin

         textcolor(12);

         writeln('                                         ENTER ¤«п Їа®¤®ў¦Ґ­­п!!!');

         readln;

         clrscr;

         j:=0;

        end;

    end;

 

{+++++}  IF vidp=3 then

    begin

 

    t:=t+1;

   gotoxy(30,1+j);Writeln('Ќ®¬Ґа  § ЇЁбг=',i);

   gotoxy(30,2+j);Write('1-Џаi§ўЁйҐ,I¬`п  =');writeln(Ff.f);

   gotoxy(30,3+j);Write('3-Ќ®¬Ґа         =');writeln(Ff.c);

   gotoxy(30,4+j);Write('4-Џ®§Ёжiп       =');writeln(Ff.m);

   gotoxy(30,5+j);Write('5-Ља i­         =');writeln(Ff.co);

   writeln;

 

   j:=j+7;

 

          if ((t mod 3)=0) and (t<>0) then

         begin

         textcolor(12);

         writeln('                                         ENTER ¤«п Їа®¤®ў¦Ґ­­п!!!');

         readln;

         clrscr;

         j:=0;

        end;

    end;

 

 

    end;

    end;

    readln;

    j:=0;

  close(f0);

 

End;

 

{--------------------------------------------------------}

BEGIN

   begin

grDriver:=Detect;

grPath:='C:/bgi';

InitGraph(grDriver,grMode,grPath);

 

      SetBkColor(12);

      Rectangle(50,50,580,420);

      sl1:='Љ“ђ‘Ћ‚Ђ  ђЋЃЋ’Ђ';

      sl2:='­  ⥬г: IЌ”ЋђЊЂЂ–I‰ЌЋ-ЏЋ˜“ЉЋ‚Ђ ‘€‘’…ЊЂ "”Љ „€ЌЂЊЋ Љ€I‚"';

      sl4:='ђ®§а®ЎЁў';

      sl5:='бв㤥­в  ЈагЇЁ ЉЌ-1-5';

      sl3:='‚iй ­бмЄЁ© Ђ­¤аi©';

      Outtextxy(250,110,sl1);

      Outtextxy(100,200,sl2);

      Outtextxy(410,350,sl3);

      Outtextxy(450,330,sl4);

      Outtextxy(410,340,sl5);

readkey;

TextColor(1);

CloseGraph;

end;

 

    j:=0;

    mm:='G:\ydal';

    mmm:='G:\foot';

    assign(f0,mm);

    repeat

      clrscr;

      {$I-} reset(f0);{$I+}

      if IOresult<>0 then rewrite(f0);

      close(f0);

      textcolor(12);

      writeln;

      writeln;

      writeln;

      writeln;

      writeln;

      writeln('                     ЪДДДДДДДДДДДДДДДД :Њ … Ќ ћ:  ДДДДДДДДДДДДДДДї');

      writeln('                     і                                          і');

      writeln('                     і 1.ЏЋЉЂ‡Ђ’€ ‚‘ћ ЉЋЊЂЌ„“                  і');

      writeln('                     і                                          і');

      writeln('                     і  2.Љ“Џ€’€(„Ћ„Ђ’€) ѓђЂ‚–џ                 і');

      writeln('                     і                                          і');

      writeln('                     і  3.‡‚I‹њЌ€’€(‚€„Ђ‹€’€) ѓђЂ‚–џ            і');

      writeln('                     і                                          і');

      writeln('                     і 4.„ЂЌI ЏЋ ‚ЉЂ‡ЂЌЋЊ“ ѓђЂ‚–ћ (ђ…„Ђѓ“‚Ђ’€) і');

      writeln('                     і                                          і');

      writeln('                     ГДДДДДДДДДДДДДДДДД  Џ®игЄ  ДДДДДДДДДДДДДДДДґ');

      writeln('                     і 5.‡Ђ ЏЋ‡€–I…ћ                           і');

      writeln('                     і  6.‡Ђ ЉђЂIЌЋћ                            і');

      writeln('                     і  7.‡Ђ ‚IЉЋЊ                              і');

      writeln('                     і                                          і');

      writeln('                     і  8.             ‚ € • I „                і');

      writeln('                       ________________________________________  ');

      writeln('                            ______________________________  ');

      writeln;

      writeln;

      writeln;

      writeln;

      writeln;

      write('                                 ‚€Ѓ…ђI’њ Џ“ЌЉ’ Њ…Ќћ: ');

      h:=readkey;

      case h of

        '1': sort;

 

        '2': dobav;

        '3': begin

               writeln;

               write('џЄЁ© ­®¬Ґа § ЇЁбг=');

               read(nom); nom:=nom-1;

               ydal;

             end;

        '4': begin

              writeln;

 

               write('џЄЁ© ­®¬Ґа § ЇЁбг=');

               read(nom); nom:=nom-1;

               redaktor;

        end;

        '5': poshpoz;

        '6': poshpoz2;

        '7': poshpoz3;

        end;

        until h='8';

END.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5. Результати роботи

 

головне меню

 

 

№1

 

 

 

 

№2

 

 

 

№3

 

№4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6. Вимоги до програмно-технічного забезпечення

 

Створений програмний продукт працює на машинах з відповідними мінімальними технічними вимогами: операційна система; частота процесора – 100MHz; ОЗУ- 16Mb; в/карта – 16Mb; 20kb вільного місця на диску. 

 

 

7. Інструкція користувача

 

Для запуску даної  програми потрібно запустити файл ККККК.EXE. Для коректного відображення українських символів потрібно запустити також файл KEYRUS.COM. KEYRUS – це програма, яка завантажує шрифти в відеоадаптери EGA/VGA і забезпечує переключення мови клавіатури. Після завантаження програми з’являється головне меню.

  Вибір пункту меню здійснюється за допомогою вибору пункту користувачем та натисненню ENTER. Щоб вийти з програми потрібно вибрати пункт меню №8.   

При виборі пункту меню №1 відображуються всі записи які відсортовані за номером гравця. Щоб повернутись в головне меню потрібно натиснути клавішу ENTER.

При виборі пункту меню №2 додається новий гравець, після того як ми введемо дані , програма автоматично поверне в головне меню.

При виборі пункту меню №3 видаляється гравець за вказаним номером запису.

При виборі пункту меню №4 виконується редагування певного гравця.

При виборі пункту меню №5 відбувається пошук за вказаною позицією.

При виборі пункту меню №6 відбувається пошук за вказаною країною.

При виборі пункту меню №7 відбувається пошук за віком, користувач вказує вік, потім його запитують вивести гравців 1)Сташих , 2)Менших , 3)За вказаним віком.

При виборі пункту меню №8 відбувається вихід.

Висновки

 

Дана робота була написана на мові програмування Pascal. В роботі була розроблена інформаційно-пошукова система, яка має зручний інтерфейс.

Також може використовуватись  в подальшому (можливо змінена під користувача).

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список використаних джерел

 

1. В. Семотюк. Програмування в середовищі Турбо Паскаль. Львів: БаК, 2000.
2. А. Ставровский. Турбо Паскаль 7.0. Учебник. - К.: BHV, 2000.
3. Т.В. Ковалюк. Основи програмування. Київ: BHV, 2005.