1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Мне выдали курсовую работу по паскалю. Зделать викторину на подобии Кто хочет стать миллионером. вопрос, 4 варианта ответов и с помощю клавиш а,б,в,г. выбирать ответ, 15 вопросов, и в конче результат и сравнение с другими результатами, Кто нибуть представляет как ето делать ? если нетрудно помогите хоть чемнибуть а то 1.5 недели осталось а я ток титульник зделал
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
а нее всё работает)) а ещё вопросик....а реально ето всё какнибуть оформить типо рамки какойнибуть.... тяжело ето вобще....у меня тут просто есть какойта пример:
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;
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);
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;