╧юью∙№ - ╧юшёъ - ╧юы№чютрЄхыш - ╩рыхэфрЁ№
╧юыэр  тхЁёш : ╚уЁр єурфрщ ўшёыю
╘юЁєь л┬ё╕ ю ╧рёърых╗ > Pascal, Object Pascal > ╟рфрўш
Zeon
╩ръ ью■ шуЁє ьюцэю "єъЁрёшЄ№"?

╩юф
Program Ygadaika;
var i,n,d:byte;
Begin
    Randomize;
    d:= random (9);
   for i:= 1 to 3 do
   begin
     Write ('╙урфрщ ўшёыю '); Readln (n);
     if n = d then  break;
      if n < d then
      Writeln ('╟рурфрээюх сюы№°х!!!')
     else
     if n > d then
      Writeln ('╟рурфрээюх ьхэ№°х!!!')
   end;
  if n<>d then
      Write ('═х єурфрыш ўшёыю',d,'!') else
      Writeln ('┬√ єурфрыш ё ',i,'-щ яюя√Єъш');
  readln;
  end.
APAL
╙ъЁрёшЄ№:
═ряЁшьхЁ, юЁурэшчютрЄ№ "юъю°ъш", т ъюЄюЁ√х т√тюф Єё  ёююс∙хэш  ш Ёхчєы№ЄрЄ (GoToXY + Write + ёшьтюы√ яёхтфюуЁрЇшъш)
─юсртшЄ№ ючтєўъє ёюс√Єшщ (Sound + Delay + NoSound)
╨рёъЁрёшЄ№ тёх т "ёшьярЄшўэ√х" ЎтхЄр (TextColor + TextBackGround)
╠юцэю фюсртшЄ№ т√тюф эр ¤ъЁрэ рЇюЁшчьют/рэхъфюЄют ( www.anekdot.ru )

P.S.: ╘ЁруьхэЄ√ яЁюуЁрьь чръы■ўрщЄх т ёююЄтхЄёЄтє■∙шх Єхуш яЁш ёючфрэшш ёююс∙хэш !
Zeon
р ьюцэю яю Єюўэхх ъръ-эшсєф№??? rolleyes.gif
APAL
╥ръ тхф№   т ёъюсърї єърчры ўЄю эрфю шёяюы№чютрЄ№.
═х чэрх°№ ЇюЁьрЄр яЁюЎхфєЁ√/ЇєэъЎшш - эрсхЁш т TP эрчтрэшх, т√фхыш ш эрцьш Ctrl+F1 - яю тшЄё  яюфёърчър ё ЇюЁьрЄюь чрфрэш  ярЁрьхЄЁют ш фрцх ё яЁшьхЁюь.
FreeMan
╟рсрЎрЄ№ Їрщы ЁхъюЁфют, ьхэ■їє, яюффхЁцъє уЁ√чєэр smile.gif
─хырЄ№ т уЁрЇшЎхёъюь Ёхцшьх, Ёшёє  Ёрчэ√х Ёюцш. ╚ыш ъЁєцюъ юяЁхфхы╕ээюую ЎтхЄр. ═ряЁшьхЁ, яюы№чютрЄхы№ ттхы 15, р чрурфрэю 16, Єюуфр ъЁєцюъ фюыцхэ с√Є№ чхы╕э√ь. :D
Atos
┬ юс∙хь, фы  эрўрыр - ■чрщ crt http://www.borlpasc.narod.ru/docym/Faronov.../menu_gl13.html
-└эфЁхщ-
═рЁюф, ъЄю эшсєф№ ьюцхЄ ¤Єє шуЁє ўхь эшсєф№ яЁшєъЁрёшЄ№? фюсртшЄ№ ъръшх эшсєф№ Їш°ъш ..ыхтхы√, Єрь чрёЄртъш шыш х∙х ўЄю эшсєф№.. юўхэ№ эєцэю Єръ ъръ эрь чрфрыш ъръ Ёрч ёфхырЄ№ Єръє■. ╬ўхэ№ эрфх■ё№ ўЄю яюьюцхЄх rolleyes.gif

╤ярёшсю. └эфЁхщ.
klem4
╥√ яЁшфєьрщ ╫┼╠ яЁшєъЁрёшЄ№, р ь√ яюьюцхь ЁхрышчютрЄ№.
Archon
─юсрт№ ъюььхэЄрЁшш яюёых ърцфющ яюя√Єъш, яюыєўшЄё  чрсртэю.
Archon
┬юЄ ьющ трЁшрэЄ ;):
╚ёїюфэ√щ ъюф
program Super_Ugadayka;

uses crt;

const
welcome : array [0..1, 1..5] of string =
(('‡др ствуйте, ув ж емый €грок! Я, ведущий В силий Пупкинович Фг д йкин,',
'р д приветствов ть в с н игре _[чит ть торжественно]_ SUPER UGADAYKA ! ! !',
'Я н деюсь вы хорошо подготовились иб ... ибо сейч с в м предстоит',
'подн прячься к к следует! Я говорю об умственном н пряжении. €т к вы готовы',
'испыт ть себя??? Тогд ...'),
('Добро пож лов ть н игру Super Ugadayka и я в ш ведущий - В силий Фг д йкин.',
' Перед тем к к мы н чнём спросите себя:',
'Готовы ли вы испыт ть свой интелект, или вы н ходитесь во вл сти сомнения?',
'Готовы ли вы окунутся в лучи сл вы или испыт ть горечь пор жения?',
'Сейч с мы узн ем н сколько д леко вы отошли от обезьяны в своём р звитии.'));
tutor : array [0..1, 1..5] of string =
((' Но сперв кр ткое введение в пр вил игры:',
'Три р унд в к ждом из которых в м предстоит з три попытки отг д ть',
'случ йное число от 0 до 8. Почему от 0 до 8? Одному созд телю известно',
'почему... Но в с это волнов ть не должно. Ведь в ш цель - побед , не',
'т к ли?'),
('В с ждут три р унд в к ждом из которых в м предстоит отг дыв ть случ йное',
'число от 0 до 8. Н отг дыв ние к ждого из них у в с есть ровно три попытки.',
'Почему от 0 до 8 - спросите вы? Предст вте себе решение теоремы ”ерм ,',
'з пис нное н п р болойде вр щения сивол ми к ндзи и повторите вслух т блицу',
'умножения. …сли после этого вы не постигли Д о, с в ми неочем р згов рив ть.'));
roundtext : array [0..4] of string =
('Р унд ',
'€ сейч с р унд ',
'Приготовтесь... Р унд ',
'Н чнём р унд №',
'Н очереди р унд ');
readytext : array [0..4] of string =
('Прогр мм уже з дум л число.',
'Всё уже з г д но и ждёт своего ч с быть р зг д нным. Ась?',
'—исло н ходится в п мяти компьютер . Ост лось только его уг д ть.',
'Фв ж емый компьютер уже з дум л дв неверных ответ ...ой!...в смысле число!',
'Ох к кое к верзное число з дум л н ш компьютер...');
question : array [1..3, 0..4] of string =
(('€т к, в ш перв я попытк .',
'Может у в с получится отг д ть с первой попытки? Кто зн ет...',
'Д в йте же, уг дыв йте!',
'В ш версия.',
'В ш выход!'),
('Попытк номер дв !',
'Попытк - не пытк ! ...к чему это я?',
'Ну, побед с двух попыток - это тоже не плохо. Может теперь повезёт?',
'Д в йте! Попробуйте ещё р з.',
'Ничего, с первой попытки м ло кто уг дыв ет. Попробуйте ещё.'),
('Третья попытк .',
'Ну же! Последний ш нс!!!',
'Сосредоточтесь. Ф в с есть ещё один ш нс.',
'Последняя попытк .',
'Вы сд ётесь? …щё нет? Тогд уг дыв йте.'));
more : array [0..4] of string =
('БОЛЬ�…!',
'—исло, з дум нное компьютером, БОЛЬ�….',
'Нет, компьютер з дум л явно БОЛЬ�….',
'А вот и не уг д л! —исло БОЛЬ�…!',
'Д нет! БОЛЬ�….');
less : array [0..4] of string =
('М…НЬ�…!',
'М…НЬ�… будет.',
'М…НЬ�…, это же очевидно!',
'—то з глупость, М…НЬ�…!',
'Много взял. М…НЬ�… н до бы.');
yesss : array [0..4] of string =
('Д ! Д ! Это то число!',
'Вы уг д ли.',
'Это пр вильное число.',
'Совершенно верно!',
'Невероятно, но вы уг д ли.');
victory : array [0..1, 1..5] of string =
(('Вы пр вильно уг д ли все числ , з дум нные компьютером. Вы док з ли, что',
'достойны н зыв ться мыслящим существом. В ш ум безгр ничен, в ш воля',
'достойн восхищения, уд ч - з висти. Вы являетесь победителем н шей',
'сегодняшней игры. В ш приз - один милион поздр влений!',
'До скорых встреч!!!'),
('Д ! Д ! Д ! Вы сдел ли это! Нет, я не могу поверить, но вы победили!',
'В ш приз... Секундочку, у меня н бум жке з пис но... Т…Л…В€‡ОР, КФ•ОННЫ‰',
'КОМБА€Н, 2 Д…СЯтк яиц, бух нк хлеб , сервел т К рельский,... О‰! Прошу',
'прощения, это жен ост вил список покупок... вот!... В ш приз -',
'•ОРО�…… НАСТРО…Н€… НА –…ЛЫ‰ Д…НЬ. Поздр вляю!!!'));
ad : array [0..2] of string =
('Корпор ция MilkoSoft, любезно предост вивш я лгоритм з думыв ния числ .',
'Комп ния NukeTrade - пост вщик высокотоксичного сырья для производств н питк ColaLoca.',
'”ирм FinalPath - производитель высокок чественных гробов с подогревом.');
defeat : array [0..1, 1..3] of string =
(('Фвы! Но сегодняшняя игр окончил сь в шим пор жением. Не р стр ив йтесь,',
'Ф в с всё ещё в переди. Я уверен, что в следующий р з в м повезёт больше.',
'А сегодня - прощ йте!'),
('Нет. Это непр вильный ответ. €т к... Кто не опр вд л ожид ний? Кто не',
'ответил н пост вленный вопрос? Кто сидел н моём стуле? €грок, вы - с мое',
'глупое звено. До свид ния!'));
procedure Start;
var
i : integer;
begin
TextMode(C80 + Font8x8);
TextColor(2);
for i := 2 to 79 do
begin
GoToXY(i, 1);
Write('═');
GoToXY(i, 49);
Write('═');
GoToXY(i, 5);
Write('═');
end;
for i := 2 to 48 do
begin
GoToXY(1, i);
Write('║');
GoToXY(80, i);
Write('║');
end;
GoToXY(1, 1);
Write('╔');
GoToXY(80, 1);
Write('╗');
GoToXY(1, 49);
Write('╚');
GoToXY(80, 49);
Write('╝');
GoToXY(1, 5);
Write('╠');
GoToXY(80, 5);
Write('╣');
TextColor(5);
GoToXY(15,2);
Write('**********************************************');
GoToXY(15,3);
Write('* Welcome to the Super Ugadayka Game ! ! ! *');
GoToXY(15,4);
Write('**********************************************');
end;

var
i, j, ans, num, vict : integer;

begin
Randomize;
Start;
Window(2, 6, 79, 48);
TextColor(15);
j := random(2);
for i := 1 to 5 do
WriteLn(welcome[j, i]);
WriteLn;
WriteLn(' Мы н чин ем!');
WriteLn;
j := random(2);
for i := 1 to 5 do
WriteLn(tutor[j, i]);
WriteLn;
WriteLn(' Вот теперь мы действительно н чин ем!');
WriteLn;
vict := 0;
for i := 1 to 3 do
begin
WriteLn;
WriteLn(roundtext[Random(5)], i);
num := Random(9);
WriteLn(readytext[Random(5)]);
WriteLn;
for j := 1 to 3 do
begin
WriteLn(question[j, Random(5)]);
TextColor(10);
Write('=> ');
TextColor(4);
Read(ans);
TextColor(15);
WriteLn;
if ans = num then
begin
WriteLn(yesss[Random(5)]);
Inc(vict);
break;
end;
if ans < num then
WriteLn(more[Random(5)])
else
WriteLn(less[Random(5)]);
end;
if vict < i then break;
end;
WriteLn;
j := Random(2);
if vict = 3 then
for i := 1 to 5 do
WriteLn(victory[j, i])
else
for i := 1 to 3 do
WriteLn(defeat[j, i]);
WriteLn;
WriteLn('Спонсор н шей сегодняшней игры:');
WriteLn(ad[Random(3)]);
ReadKey;
end.


PS ┬юЄ ёърцшЄх, яшёрЄ№ Єръюх шчтЁр∙хэшх ё ьюхщ ёЄюЁюэ√ - ¤Єю эюЁьры№эю?
-└эфЁхщ-
Archon

ющ ¤Є Є√ ъюэхўэю чрьєфЁшы ёхЁ№ючэю ))))) ьэх эх яютхЁ Є ўЄю ¤Є   ёфхыры ))

ьэх с√ тюЄ їюЄхыюё№ ўЄюс√ Єрь с√ыю ьхэ■ Єшяр уЁрЇшўхёъюх ш єЁютэш ёыюцэюёЄш Єшяр ))) эє эрь Єръ яЁхяюф яюёютхЄютры )) ╤ьюцхЄх яюьюў№? эє Єюы№ъю ўЄюс√ с√ыю эх юўхэ№ ёыюцэю эряшёрэю Єръ ъръ юэ ьэх эх яютхЁшЄ хёыш сєфхЄ ёыш°ъюь ёхЁ№ючэю ёфхырэю )))

╤ярёшсю. └эфЁхщ.
Archon
└эфЁхщ, фръ тхф№ эш ўхую ёхЁ№╕чэюую, яЁюёЄю ЄхъёЄр ьэюую.

╥ръ, ё ўхь Єю єцх юяЁхфхышышё№, Єхсх эєцэю ьхэ■. ╧юш∙ш яю ЇюЁєьє. ═ряЁшьхЁ чфхё№.
▌Єю ЄхъёЄютр  тхЁёш  Ч Єюы№ъю юёэютэющ ъюэЄхэЄ. ─ы  яЁюёьюЄЁр яюыэющ тхЁёшш ¤Єющ ёЄЁрэшЎ√, яюцрыєщёЄр, эрцьшЄх ё■фр.