![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Lapp |
![]()
Сообщение
#21
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
что то у меня не то, у меня выдаёт вопрос,я пишу ответ, ну всегда пишет, ответ неправельный : ![]() У меня все отработало нормально вроде. 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 |
![]()
Сообщение
#22
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: ![]() ![]() ![]() |
У меня все отработало нормально вроде. 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 |
bagay |
![]()
Сообщение
#23
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: ![]() ![]() ![]() |
блин ну как ето совместиь ((((
|
Unconnected |
![]()
Сообщение
#24
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь.
И ещё, ужасно хочется оффтопнуть... Krjuger, а ты не думал о том, что чем больше ты потратишь своего драгоценного времени на написание с нуля программ разным Багаям, тем меньше будет квалифицированных специалистов, соответственно - меньше конкуренция... Да, это цинично. Вот не хочешь ты молчать в ответ на такие топы - начинай рьяно помогать, такие топикстартеры сами дают повод... Сообщение отредактировано: Unconnected - 14.06.2009 21:55 -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Lapp |
![]()
Сообщение
#25
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
чем больше ты потратишь своего драгоценного времени на написание с нуля программ разным Багаям, тем меньше будет квалифицированных специалистов, соответственно - меньше конкуренция... Да, это цинично. Вот не хочешь ты молчать в ответ на такие топы - начинай рьяно помогать, такие топикстартеры сами дают повод... Интересная точка зрения. Накормить, чтоб не научились сами еду добывать. Защитить, чтоб не научились драться. Что-то в ней, конечно, есть... Но если кто-то подолжит тут оффтопить - буду карать! Есть другие разделы для этого, более подходящие..-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
bagay |
![]()
Сообщение
#26
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: ![]() ![]() ![]() |
У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь. вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом ![]() |
Unconnected |
![]()
Сообщение
#27
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Цитата Цитата(Unconnected @ 14.06.2009 22:40) * У тебя первая программа в текстовом режиме работает, а вторая в графическом. В текстовом простейшую рамку можно символами нарисовать, в графическом - Rectangle(x1,y1,x2,y2). Ты определись конкретно сначала, чего ты хочешь и какими путями можно этого достичь, дальше берёшь книгу и действуешь. вот ету гравическую прогу зделать так чтоб она тоже выдовала 15 вопросов..варианты....и результат потом smile.gif Что-то мы о разном говорим... Больше никаких пожеланий там?.. Ещё раз, если ты писАть не собираешься, то другим это и подавно не надо... Неужели не понятно, что знания из чужих программ не приходят?? Сообщение отредактировано: Unconnected - 16.06.2009 22:58 -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Krjuger |
![]()
Сообщение
#28
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Ребят,а я сразу вам сказал,что этот человек делать ничего не будет..А вы меня гнобить начали,какой я высокомерный и помоч не хочу,а сейчас сами пришли к такому результату.
|
Ozzя |
![]()
Сообщение
#29
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
Krjuger
Не в высокомерии дело. 1. Иногда "меряешь кафтан не по плечу". Согласен? 2. Лепишь сырой/"грязный" код. Было? Было! Так что, не в обиду? Ок? |
Krjuger |
![]()
Сообщение
#30
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Это понятно,тут я ничего сказать не могу,что есть то есть.
Но к данной теме все, что ты перечислил вообще не относилось,я просто высказал негодование,когда человек, ничего не собирающийся делать(а это сразу было четко видно),начал высказыаать претензии и приниципи даже оскорблять.Если бы он выявил желание работать,ну или хотябы уважение к тем,кто ему помогает,я бы так же ,как и другие, сел решать эту задачу,потому что на мой взгляд она довольно интересная.А так заметь,человеку абсалютно все равно на реализацию,как ему скинули код, так он его и скушал.Он сидит,как заказчик и говорит,мне вот эта фигня не нравица,сделайте мне чтоб было красиво.Поэтому я и отправлял его в платный раздел,потому что у него отношение к тем,кто ему делает, не как к людям,а как к задротам,которые получают удовольствие от решения чужих задач. |
Ozzя |
![]()
Сообщение
#31
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ну, в данной теме - да. А вообще, может быть "Поменьше безапелляционности и всё будет - ок. ;)"? ;)
|
Krjuger |
![]()
Сообщение
#32
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
А я ниразу апеляций не подавал,даже,когда Volvo,мне пару раз наказания влупил,хотя с одним,я и не согласен,но это уже прошлое,просто я чую,что Volvo я очень не нравлюсь))
Эту тему,я смотрю только ради того,чтобы увидеть,соизволит ли человек хоть раз выложить свои действия.Но надежды все меньше и меньше. |
Lapp |
![]()
Сообщение
#33
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Но надежды все меньше и меньше. Krjuger, заканчивай флуд.Я вижу только одно: Sheka поступил некорректно в начале. Я счел нужным извиниться от имени Форума. Конфликт считаю исчерпанным. Дальше человек решает сам - делать или не делать, учиться или не учиться. Это ЕГО дело. А ТВОЕ ( как и всех отвечающих тут) дело - либо отвечать ПО ДЕЛУ, либо ПРОМОЛЧАТЬ. Человеку дали возможность чему-то научиться - дальше он сам решает, использовать ее или нет. А если ты обиделся на оскорбление - его я считаю заслуженным. Здесь форум. Надо быть готовым к адекватным ответам, если издеваешься. Прошу в этой теме больше не флудить. Хотите обсудить - прошу в Свободное или Дискуссии. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 23.07.2025 3:10 |