Исследование влияния тренировок на развитие памяти

    Средний балл:6.98 

    6.2 Тестирование после двух недель  тренировок.

Средний балл: 7.76

    Результаты  показывают, что после тренировок количество правильных тренировок значительно  увеличилось. 

7. Программа.

    На  экран случайным образом выводятся числа, их нужно запомнить, и через некоторое время ввести. Далее программа вам сообщит, отгадали вы их или же нет.

    7.1 Текст программы.

Program Komppr;

   uses crt;

   type menuitems=array [1..6] of string;

   const n=6;

   var m: menuitems;

    p,a,b,i:integer;

    s1,s2:longint;

    aa,aa2: array [1..9] of integer;

   function menu (const items:menuitems; n:integer; width : Integer) : integer;

   var

   active:integer;

   c:char;

    procedure Drav;

     var i:integer;

     begin

        window (25, 10 , 25+width-1,10+n-1);

        textbackground(2);

        clrscr;

        for i:=1 to n do begin

           gotoxy((width-1-length(m[i])) div 2+1 ,i);

           if i = active then

              textbackground(4)

           else

              textbackground(2);

           write (items [i]);

        end;

        window( 1, 1, 80 ,40 );

        textbackground(0);

     end;

begin

  active := 1;

   repeat

      Drav;

      c:=readkey;

      if (c=#00) then begin

        c:=readkey;

        if(c=#72) then begin

          active := active - 1;

        end else if(c=#80) then begin

          active := active + 1;

        end

      end else if (c=#13) then begin

        menu := active;

        window( 1, 1, 80 ,40 );

        textbackground(0);

        exit;

      end;

      if (active=7) and (c=#80) then

      active:=1;

      if (active=0) and (c=#72) then

      active:=6;

   until false;

  end;

  begin

   textbackground(0);

   clrscr;

  m[1]:= ‘3- числа';

  m[2]:='4- числа ';

  m[3]:='5- числа ' ;

  m[4]:='6- числа ';

  m[5]:='7- числа ';

  m[6]:='exit';

repeat

   p:=menu(m, 6, 20);

    case p of

     1:begin

         clrscr;

         randomize;

          for i:=1 to 3 do begin

           aa[i]:=random(10);

           write(aa[i]);

          end;

       delay(50000);

       delay (50000);

          clrscr;

          write('Введите число');

          writeln('и');

          writeln('нажмите да ');

           for i:=1 to 3 do begin

             write(aa2[i]);

             read(aa2[i]);

           end;

       if (aa2[i]=aa[i]) then writeln('гЈ ¤ «Ё') else writeln('­Ґ гЈ ¤ «Ё');

       writeln;

       readln;

       readln;

       end;

     2:begin

         clrscr;

         randomize;

          for i:=1 to 4 do begin

           aa[i]:=random(10);

           write(aa[i]);

          end;

       delay(50000);

       delay (50000);

          clrscr;

          write('Введите число');

          writeln('и');

          writeln('нажмите да ');

            for i:=1 to 4 do begin

              write(aa2[i]);

              read(aa2[i]);

            end;

       if (aa2[i]=aa[i]) then writeln('гЈ ¤ «Ё') else writeln('­Ґ гЈ ¤ «Ё');

       writeln;

       readln;

       readln;

       end;

     3:begin

            clrscr;

            randomize;

              for i:=1 to 5 do begin

                aa[i]:=random(10);

                write(aa[i]);

              end;

       delay(50000);

       delay (50000);

             clrscr;

          write('Введите число');

          writeln('и');

          writeln('нажмите да ');

               for i:=1 to 5 do begin

                 write(aa2[i]);

                 read(aa2[i]);

               end;

       if (aa2[i]=aa[i]) then writeln('гЈ ¤ «Ё') else writeln('­Ґ гЈ ¤ «Ё');

       writeln;

       readln;

       readln;

       end;

     4:begin

            clrscr;

            randomize;

              for i:=1 to 6 do begin

                aa[i]:=random(10);

                write(aa[i]);

              end;

       delay(50000);

       delay (50000);

       delay(50000);

       delay (50000);

             clrscr;

          write('Введите число');

         writeln('и');

          writeln('нажмите да ');

               for i:=1 to 6 do begin

                 write(aa2[i]);

                 read(aa2[i]);

               end;

        if (aa2[i]=aa[i]) then writeln('гЈ ¤ «Ё') else writeln('­Ґ гЈ ¤ «Ё');

       writeln;

       readln;

       readln;

       end;

     5:begin

            clrscr;

            randomize;

              for i:=1 to 7 do begin

                aa[i]:=random(10);

                write(aa[i]);

              end;

       delay(50000);

       delay (50000);

       delay(50000);

       delay (50000);

             clrscr;

          write('Введите число');

          writeln('и');

          writeln('нажмите да ');

               for i:=1 to 7 do begin

                 write(aa2[i]);

                read(aa2[i]);

               end;

       if (aa2[i]=aa[i]) then writeln('гЈ ¤ «Ё') else writeln('­Ґ гЈ ¤ «Ё');

       readln;

       readln;

       end;

       end;

until p=6;

 textbackground(0);

end.