IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

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

> Игра угадай число
Zeon
сообщение 19.05.2004 10:11
Сообщение #1





Группа: Пользователи
Сообщений: 9

Репутация: -  0  +


Как мою игру можно "украсить"?

Код
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.


Сообщение отредактировано: volvo - 5.01.2005 1:04
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Archon
сообщение 15.03.2006 16:47
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


Вот мой вариант ;):
Исходный код
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 Вот скажите, писать такое извращение с моей стороны - это нормально?


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.07.2025 9:00
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"