Мой проект на 3 недели, Курсовая работа Опции

[bagay]

Мне выдали курсовую работу по паскалю. Зделать викторину на подобии Кто хочет стать миллионером.
вопрос, 4 варианта ответов и с помощю клавиш а,б,в,г. выбирать ответ, 15 вопросов, и в конче результат и сравнение с другими результатами, Кто нибуть представляет как ето делать ? если нетрудно помогите хоть чемнибуть а то 1.5 недели осталось а я ток титульник зделал

[bagay]

У меня все отработало нормально вроде.

Enter your name:
bbb
chislo pI=?
Answers:
a) 3.14
b) 2
c) 4.123
d) 1
Your answers: a
R9d Fibanachi
Answers:
a) 1 1 2 3 5
b) 1 1 1 3
c) 1 2 3
d) 1 2 4
Your answers: a
You have: 300

Inwi resultatu
aaa 0
bbb 300

а нее всё работает)) а ещё вопросик....а реально ето всё какнибуть оформить типо рамки какойнибуть....
тяжело ето вобще....у меня тут просто есть какойта пример:

Uses Mouse, Crt,graph;

Const FileName = 'test.dat';
      TestName = 'Modernas tehnologijas.';
           Max = 15;

Type Test = record
       Num  : Byte;
       Name : String [100];
         V1 : String [3];
         O1 : Byte;
         V2 : String [3];
         O2 : Byte;
     End;

Var
     Mas : Array [1..15] of Test;
       F : File Of Test;
     Sum : Word;
       I : Byte;
     L,R : Boolean;
     X,Y : Word;
  Select : Byte;
MousePresent : Boolean;

Function IntToStr(I : Longint) : String;
{ Преобразовывает значение типа Integer в строку }
Var S : String [11];
Begin
 Str(I, S);
 IntToStr:=S;
End;

Procedure Button( A, M : Byte);
Begin
  Window(20, 18, 35, 18);
  TextBackground(Green);
  If A=0 Then TextColor(White)
         Else TextColor(Black);
  ClrScr;
  GotoXY(Round((15-Length(Mas[M].V1))/2),1);
  Write(Mas[M].V1);

  Window(45, 18, 60, 18);
  TextBackground(Green);
  If A=1 Then TextColor(White)
         Else TextColor(Black);
  ClrScr;
  GotoXY(Round((15-Length(Mas[M].V2))/2),1);
  Write(Mas[M].V2);
End;

Function Vopros(N : Byte):Byte;
Var
  Sx, Sy : Byte;
    Flag : Boolean;
       K : Char;

         Function Key(V : Byte):Integer;
         Begin
              Key := -1;
              If Select = 0 Then Key := Mas[V].O1;
              If Select = 1 Then Key := Mas[V].O2;
         End;

         Function Res(RX, RY, V : Byte):Integer;
         Var X1, X2, Y1, Y2 : Byte;
         Begin
              Res := -1;

              X1 := 20;
              X2 := 35;
              Y1 := 18;
              Y2 := 18;
              If (RX >= X1) And (RX <= X2) And
                 (RY >= Y1) And (RY <= Y2) Then Res := Mas[V].O1;

              X1 := 45;
              X2 := 60;
              Y1 := 18;
              Y2 := 18;
              If (RX >= X1) And (RX <= X2) And
                 (RY >= Y1) And (RY <= Y2) Then Res := Mas[V].O2;
         End;

Begin
  Button (Select, N);

  Window(7, 7, 73, 16);
  TextBackground(LightGray);
  ClrScr;
  TextColor(Red);
  WriteLn('Вопрос: ',Mas[N].Num);
  WriteLn;
  TextColor(Blue);
  WriteLn(Mas[N].Name);

  Window(1, 1, 80, 25);
  TextBackground(Black);
  TextColor(LightGray);

  If MousePresent Then Begin            { подключил крысу - получи гранату! }
     Flag := False;
     While Not(Flag) Do Begin
          GETMOUSE(l,r,x,y);
          Sx := Round(X/8)+1;
          Sy := Round(Y/8)+1;
          If L Then Begin
                If Res(SX,SY,N) <> -1 Then Flag := True;
                Sound(020);        { Звук с частотой 20 Гц }
                Delay(200);        { На 200 миллисекунд }
                NoSound;           { Выключаем динамик }
                VOPROS := Res(SX,SY,N);
          End;
     End;
  End Else Begin                           { мышА не подаёт признаков жизни }
      Flag := False;
      While Not(Flag) Do Begin
            K := ReadKey;
            If K = #09 Then Begin
              Select := 1-Select;
              Button (Select, N);
           End;
           If (K=#32) Or (K=#13) Then Begin
                 If Key(N) <> -1 Then Flag := True;
                 Sound(020);        { Звук с частотой 20 Гц }
                 Delay(200);        { На 200 миллисекунд }
                 NoSound;           { Выключаем динамик }
                 VOPROS := Key(N);
           End;
      End;
  End;
End;



BEGIN
  MousePresent := DetectMouse;

  I := 1;
  Assign(F, FileName);
  ReSet(F);
  While Not(EOF(F)) Do Begin
        Read(F,Mas[I]);
        Inc(I);
  End;
  Close(F);

  TextBackground(Black);
  TextColor(LightBlue);
  ClrScr;
  GotoXY(Round((80-Length(TestName))/2),2);
  WriteLn(TestName);



  Window(5, 5, 75, 20);
  TextBackground(Blue);
  ClrScr;

  Window(6, 6, 74, 19);
  TextBackground(LightGray);
  TextColor(Black);
  ClrScr;

  Sum := 0;

  If MousePresent Then MOUSEON;

  For I := 1 To Max Do Begin
      Select := 0;
      Sum := Sum + VOPROS(I);
  End;

  If MousePresent Then  MOUSEOFF;


  Window(7, 7, 73, 16);
  TextBackground(LightGray);
  TextColor(Black);
  ClrScr;

  If (Sum >= 11) And (Sum <= 15) Then Begin
     WriteLn('Вы удивительно внимательны и проницательны.');
     WriteLn('Вашей памяти можно только позавидовать.');
  End;

  If (Sum >= 5) And (Sum <= 10) Then Begin
     Write('Вы достаточно внимательны, не забываете ничего важного. Однако и на');
     WriteLn('старуху бывает проруха - кое-что можете запамятовать.');
     WriteLn('И  всё  же  вы  способны  в ответственный момент сосредоточиться и недопустить промашки.');
  End;

  If (Sum >= 0) And (Sum <= 4) Then Begin
     Write('Вы очень рассеянны, и в этом причина многих бед.   Но вы упорно не придаёте значения таким "пустякам", ');
     WriteLn('хотя  из-за  вашего невнимания неприятности терпят и окружающие.');
     Write('Что  значит,  например,  забыть  завернуть  водопроводный кран или потерять взятую у кого-то книгу? ');
     WriteLn('А ведь и в зрелые годы (тем более в молодые) каждому под силу быть собранным, натренировать память.');
  End;

  Window(20, 18, 60, 18);
  TextBackground(Green);
  TextColor(Black);
  ClrScr;
  Write('ENTER продолжит работу...');


  Window(1, 1, 80, 25);
  TextBackground(Black);
  TextColor(LightGray);

  ReadLn;
  ClrScr;
  
END.

какбы етот совместить вместе

Сообщение отредактировано: bagay - 13.06.2009 13:53