shablon.lpr

program shablon;

{$mode objfpc}{$H+}{$R+}

uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes,
  Windows,
//  Crt, test_form { you can add units after this };
  Crt;

var
  answer, number, q, a, b, c, t, g, i, j, o, p, r, k, answer2, question,
  vse, right: integer;
  h, percent: real;
  flag: boolean;
  mas: array [1..5] of integer;
  questions: array [1..17, 1..2] of string;
  f_in: Text;
  S: string;
//  myForm: test_form;


label
  1, 4, 5, 6;


  {à®æ¥¤ãà  ¨­¨æ¨ «¨§ æ¨¨ ¬ á¨¢  ¢®¯à®á®¢}
  procedure InitQuestions();
  begin
    Assign(f_in, 'questions.txt');
    reset(f_in);
    for i := 1 to 17 do  // ª®«-¢® ¢®¯à®á®¢
    begin
      for j := 1 to 2 do
      begin
        readln(f_in, questions[i, j]);
      end;
    end;
    Close(f_in);
  end;

  {”ã­ªæ¨ï ªà á¨¢®£® ä®à¬ â¨à®¢ ­¨ï ¢®¯à®á®¢}
  function FormatQuestion(anQuestion: string): string;
  begin
    Result := copy(anQuestion + '             ', 1, 10);
  end;

  procedure PrintAllQuestions;
  begin
    for i := 1 to 17 do
    begin
      Write(i, ')');
      writeln(FormatQuestion(questions[i, 1]), ' - ', questions[i, 2]);
    end;
  end;

  {Žá­®¢­ ï ¯à®£à ¬¬ }
begin

  writeln('Ïðèâåò!');


  writeln('‡¤¥áì ï ¨ Œ ªá ¯®¯à®¡ã¥¬ ¯®¬®çì ¢ ¬ á ¯®­¨¬ ­¨¥¬ Pascal ,¥á«¨ ¢ë ­ è«¨ ª ªãî-­¨¡ã¤ì ®è¨¡ªã ®¡à é ©â¥áì ª ­ ¬ )))');
  Write('‘¥©ç á ¢ë¡¥à¨â¥ â®,çâ® ¢ë å®â¥«¨ ¡ë 㧭 âì');
  writeln('(‚® ¢á¥© ¯à®£à ¬¬¥ ¢ ¬ ­ã¦­® ¢ë¡¨à âì ⮫쪮 æ¨äàë) ');

  c := 1;
  flag := False;

  while c = 1 do
  begin
    InitQuestions();
    flag := True;
    writeln('');
    writeln('');
    writeln('1)®¯¥à â®àë  2)¯à®¢¥àª  ¢ëã祭­ëå ®¯¥à â®à®¢   3)¥è¥­¨¥ § ¤ ç 4)‚ë室');

    Read(q);

    clrscr;     // Š®¬ ­¤  ®ç¨á⪨ íªà ­ 

    writeln('');
    if q = 4 then
      exit;

    if q = 1 then
    begin
      PrintAllQuestions;

    end;

    if q = 2 then
    begin
      writeln(
        '…᫨ ¢ë å®â¨â¥ ¢ë©â¨ ¨§ à §¤¥« ,¢ ¬ ­ã¦­® ¢¢¥á⨠¢¬¥áâ® ®â¢¥â  ç¨á«® 12345.');
      writeln('');
      writeln('—â® ®¡®§­ ç ¥â ¤ ­­ë© ®¯¥à â®à:');
      percent := 0;
      while (percent < 70) or (vse < 10) do
      begin
        if vse > 50 then
        begin
          writeln('‚ ¬ ­ã¦­® ¥éñ ¯®¢â®à¨âì ¯®­ïâ¨ï .');
          break;
        end;


        //‚롨ࠥ¬ ¢®¯à®á
        randomize;
        question := random(17) + 1;

        // writeln('—â® ®¡®§­ ç ¥â ¤ ­­ë© ®¯¥à â®à:');
        writeln('');
        writeln(questions[question, 1]);
        writeln('');

        p := 1;
        answer := question;

        while p <> 5 do
          //§ ¯¨á뢠î æ¨äàë ¢ ¬ áᨢ ,¤«ï ⮣® çâ®¡ë ¯®â®®¬ ¨å ¯¥à¥âãᮢ âì
        begin
          mas[p] := random(17) + 1;
          for j := 1 to p - 1 do
          begin
            if (mas[p] = mas[j]) or (mas[p] = answer) then
            begin
              p := p - 1;
              break;
            end;
          end;
          p := p + 1;
        end;
        number := random(5) + 1;
        mas[5] := mas[number];
        mas[number] := answer;
        for i := 1 to 5 do
        begin
          Write(i, ')');
          writeln(questions[mas[i], 2]);
        end;
        writeln('');
        Write('‚ è ¢ë¡®à: ');
        readln(answer2);
        if answer2 = 12345 then
          break;
        if answer2 = number then
        begin
          right := right + 1;
          writeln('‚ë ®â¢¥â¨«¨ ¯à ¢¨«ì­®.');
        end
        else
          writeln('‚ë ®â¢¥â¨«¨ ­¥ ¯à ¢¨«ì­® ,¯à ¢¨«ì­ë© ®â¢¥â:', number, ')');

        vse := vse + 1;
        if right <> 0 then
          percent := right / vse * 100
        else
          percent := 0;
        Str(percent: 6: 1, S);
        writeln('à®æ¥­â ¯à ¢¨«ì­ëå ®â¢¥â®¢: ', S, '%');
        writeln(
          '‚¢¥¤¨â¥ «î¡®¥ ç¨á«® ,¤«ï ¯®ª §  á«¥¤ãî饣® ®¯¥à â®à .');
        Read(h);
        clrscr;

        writeln('‘«¥¤ãî騩 ®¯¥à â®à: ');

      end;
      writeln(
        '‚ë §­ ¥â¥ ¤®áâ â®ç­® ¤«ï ⮣®, çâ®¡ë ¯¥à¥©â¨ ª á«¥¤ãî饬ã à §¤¥«ã.');

    end;

    if q = 3 then
    begin
      writeln('®ª  ­¨ç¥£®');
    end;

  end;

end.