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


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

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


Украсить:
Например, организовать "окошки", в которые выводятся сообщения и результат (GoToXY + Write + символы псевдографики)
Добавить озвучку событий (Sound + Delay + NoSound)
Раскрасить все в "симпатичные" цвета (TextColor + TextBackGround)
Можно добавить вывод на экран афоризмов/анекдотов ( www.anekdot.ru )

P.S.: Фрагменты программ заключайте в соответствующие теги при создании сообщения!

Сообщение отредактировано: APAL -


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


а можно по точнее как-нибудь??? rolleyes.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

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


Так ведь я в скобках указал что надо использовать.
Не знаешь формата процедуры/функции - набери в TP название, выдели и нажми Ctrl+F1 - появится подсказка с форматом задания параметров и даже с примером.

Сообщение отредактировано: APAL -


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


-
****

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

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


Забацать файл рекордов, менюху, поддержку грызуна smile.gif
Делать в графицеском режиме, рисуя разные рожи. Или кружок определённого цвета. Например, пользователь ввел 15, а загадано 16, тогда кружок должен быть зелёным. :D


--------------------
бб
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Прогрессор
****

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

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


В общем, для начала - юзай crt http://www.borlpasc.narod.ru/docym/Faronov.../menu_gl13.html
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Народ, кто нибудь может эту игру чем нибудь приукрасить? добавить какие нибудь фишки ..левелы, там заставки или еще что нибудь.. очень нужно так как нам задали как раз сделать такую. Очень надеюсь что поможете rolleyes.gif

Спасибо. Андрей.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Ты придумай ЧЕМ приукрасить, а мы поможем реализовать.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Профи
****

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

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


Добавь комментарии после каждой попытки, получится забавно.


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


Профи
****

Группа: Пользователи
Сообщений: 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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






Archon

ой эт ты конечно замудрил серьозно ))))) мне не поверят что эт я сделал ))

мне бы вот хотелось чтобы там было меню типа графическое и уровни сложности типа ))) ну нам так препод посоветовал )) Сможете помочь? ну только чтобы было не очень сложно написано так как он мне не поверит если будет слишком серьозно сделано )))

Спасибо. Андрей.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Профи
****

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

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


Андрей, дак ведь ни чего серьёзного, просто текста много.

Так, с чем то уже определились, тебе нужно меню. Поищи по форуму. Например здесь.


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

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

 





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