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

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

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

> Игра угадай число
сообщение
Сообщение #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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #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

 





- Текстовая версия 29.03.2024 22:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name