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

[Lapp]

что то у меня не то, у меня выдаёт вопрос,я пишу ответ, ну всегда пишет, ответ неправельный : немогу пока разобратся

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

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

[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 17:53

[bagay]

блин ну как ето совместиь ((((

[Unconnected]

У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.

И ещё, ужасно хочется оффтопнуть... Krjuger, а ты не думал о том, что чем больше ты потратишь своего драгоценного времени на написание с нуля программ разным Багаям, тем меньше будет квалифицированных специалистов, соответственно - меньше конкуренция... Да, это цинично. Вот не хочешь ты молчать в ответ на такие топы - начинай рьяно помогать, такие топикстартеры сами дают повод...

Сообщение отредактировано: Unconnected - 15.06.2009 1:55

[Lapp]

чем больше ты потратишь своего драгоценного времени на написание с нуля программ разным Багаям, тем меньше будет квалифицированных специалистов, соответственно - меньше конкуренция... Да, это цинично. Вот не хочешь ты молчать в ответ на такие топы - начинай рьяно помогать, такие топикстартеры сами дают повод...

Интересная точка зрения. Накормить, чтоб не научились сами еду добывать. Защитить, чтоб не научились драться. Что-то в ней, конечно, есть... Но если кто-то подолжит тут оффтопить - буду карать! Есть другие разделы для этого, более подходящие..

[bagay]

У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.

вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом

[Unconnected]

Цитата(Unconnected @ 14.06.2009 22:40) *

У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.


вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом smile.gif

Что-то мы о разном говорим... Больше никаких пожеланий там?.. Ещё раз, если ты писАть не собираешься, то другим это и подавно не надо... Неужели не понятно, что знания из чужих программ не приходят??

Сообщение отредактировано: Unconnected - 17.06.2009 2:58

[Krjuger]

Ребят,а я сразу вам сказал,что этот человек делать ничего не будет..А вы меня гнобить начали,какой я высокомерный и помоч не хочу,а сейчас сами пришли к такому результату.

[Ozzя]

Krjuger
Не в высокомерии дело.
1. Иногда "меряешь кафтан не по плечу". Согласен?
2. Лепишь сырой/"грязный" код. Было? Было!
Так что, не в обиду? Ок?

[Krjuger]

Это понятно,тут я ничего сказать не могу,что есть то есть.
Но к данной теме все, что ты перечислил вообще не относилось,я просто высказал негодование,когда человек, ничего не собирающийся делать(а это сразу было четко видно),начал высказыаать претензии и приниципи даже оскорблять.Если бы он выявил желание работать,ну или хотябы уважение к тем,кто ему помогает,я бы так же ,как и другие, сел решать эту задачу,потому что на мой взгляд она довольно интересная.А так заметь,человеку абсалютно все равно на реализацию,как ему скинули код, так он его и скушал.Он сидит,как заказчик и говорит,мне вот эта фигня не нравица,сделайте мне чтоб было красиво.Поэтому я и отправлял его в платный раздел,потому что у него отношение к тем,кто ему делает, не как к людям,а как к задротам,которые получают удовольствие от решения чужих задач.

[Ozzя]

Ну, в данной теме - да. А вообще, может быть "Поменьше безапелляционности и всё будет - ок. ;)"? ;)

[Krjuger]

А я ниразу апеляций не подавал,даже,когда Volvo,мне пару раз наказания влупил,хотя с одним,я и не согласен,но это уже прошлое,просто я чую,что Volvo я очень не нравлюсь))

Эту тему,я смотрю только ради того,чтобы увидеть,соизволит ли человек хоть раз выложить свои действия.Но надежды все меньше и меньше.

[Lapp]

Но надежды все меньше и меньше.

Krjuger, заканчивай флуд.
Я вижу только одно: Sheka поступил некорректно в начале. Я счел нужным извиниться от имени Форума. Конфликт считаю исчерпанным. Дальше человек решает сам - делать или не делать, учиться или не учиться. Это ЕГО дело. А ТВОЕ ( как и всех отвечающих тут) дело - либо отвечать ПО ДЕЛУ, либо ПРОМОЛЧАТЬ.

Человеку дали возможность чему-то научиться - дальше он сам решает, использовать ее или нет. А если ты обиделся на оскорбление - его я считаю заслуженным. Здесь форум. Надо быть готовым к адекватным ответам, если издеваешься.

Прошу в этой теме больше не флудить. Хотите обсудить - прошу в Свободное или Дискуссии.