Среда, 23.09.2020, 13.56.24 На сайте Московское время
Мини-чат

Комментарии
PUNISHER : Привет. ты еще живой? можешь связаться со мной на моем сайте в вк или дискорд?
urosuki0 : перезалей плиз на Yandex
askone : Всё можно скачать в каталоге файлов.На главной просто публикуются новости.
alex_281983 : как скачать?
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Сегодня заходили :
Язык/Language
Главная » Файлы » Разное

Game Number One
·


Автор работы: 5665tm





Времени на новые машины пока нету, так что довольствуемся пока этим ! =D Моя первая "игра" написаная на Pascal... Полный бред если честно - главное работает !!! Написал практически с нуля за полчаса, можно идти защищать авторские права !

Категория: Разное | Добавил: 5665tm
Просмотров: 580 | Загрузок: 38 | Комментарии: 17 | Рейтинг: 4.5/2
Всего комментариев: 17
0
1 askone   [Материал]
Тююю,я думал ты приору Флейма наконец-то доделал...Если не влом,обьясни подробнее,как оно работает.

0
2 5665tm   [Материал]
кто оно ?

0
3 askone   [Материал]
Да это твоё творение.Ну я скачал,пару раз сыграл,в принципе минут на десять загрузить мозги можно.За несколько раз максимум со второго раза число угадал biggrin

0
4 ilianocd   [Материал]
я в 1 раз угадал число только с 6го раза...а потом со 2-го...
поскриптум- потом говорите что лада рейсинг клаб гавно

0
5 5665tm   [Материал]
Ilianocd чёт я непонял при чём тут лада рейсинг biggrin Ты типо хочешь оскорбить меня утверждением что какая то.... как бы сказать... игра отечественого производства круче ВОТ-ЭТОГО НЕ ПОБОЮСЬ СЛОВА,- ПРОИЗВЕДЕНИЯ ИССКУСТВА ? biggrin

Askone если интересно вот исходный код
---
program example;
uses crt;
const npop=10;
var
comp: integer;
igrok: integer;
n: integer;
flag: char;
begin
repeat
textbackground(green);
textcolor(black);
n:=0;
clrscr;
randomize;
comp:=random(9)+1;
writeln('Компьютер "задумал" число от 1 до 10');
writeln('Угадайте его за ',npop,' попыток');
writeln('Введите число');
repeat
n:=n+1;
write('попытка ',n,' - '); readln(igrok);
until(n=npop)or(comp=igrok);
case n of
1: write('Вы угадали с 1 попытки: ваше звание"Покоритель Программы Написаной На Turbo Blender Pascal 7.0" ');
2: write('Вы угадали с 2 попытки: ваше звание"Везучий" ');
3: write('Вы угадали с 3 попытки: ваше звание"Соображающий" ');
4: write('Вы угадали с 4 попытки: ваше звание"Думающий" ');
5: write('Вы угадали с 5 попытки: ваше звание"Ни туды, ни сюды" ');
6: write('Вы угадали с 6 попытки: ваше звание"Балбес" ');
7: write('Вы угадали с 7 попытки: ваше звание"Полный балбес" ');
8: write('Вы угадали с 8 попытки: ваше звание"Полнейший балбес" ');
9: write('Вы угадали с 9 попытки: ваше звание"Дурак" ');
10: write('Вы угадали с 10 попытки: ваше звание"Угадать с 10 попытки тоже надо уметь ;-D" ');
end;
writeln('Повторить (Y/y)?'); readln(flag);
until upcase(flag)<> 'Y' ;
end.
---
Если хочешь я графический алгоритм нарисую там всё понятней гораздо biggrin


0
6 •••vlas†i©k•••   [Материал]
да не можешь ты это сам написатьь,скажи честно что это учитель biggrin

0
7 •••vlas†i©k•••   [Материал]
кстате я нашёл баг вами стыреной прогой:
еси вводить числа больше 10,то
на 10 попытке скажет что вы отгадали,хотя числа больше 10,а программа гаварит что ани меньше 10

0
8 •••vlas†i©k•••   [Материал]
исправить её так моня:еси число больше 10,тогда сказать ошибка cool

0
9 5665tm   [Материал]
Про баг я знал, просто исправлять лень было и так времени много убил. Что касается написания - я сам писал !!! И прекрасно понимаю что где какая функция означает, я эти три дня не просто так баклуши бил. И уже вполне могу писать простенькие проги - так что можете делать заказы biggrin

0
здорово,могеш тада дать на книжку ссылку)))
А то мб я что нового узнаю)))
а так
сделайте по желанию какунить гоночку с модулем граф

0
11 5665tm   [Материал]
Ссылку на книжку дать не могу, так как бумага по интернету не передаётся biggrin
---
Но вот здесь
---
http://www.cyberforum.ru/attachm....4402482
---
есть неплохое пособие, если каждый день делать по пункту, за 38 дней выучишь паскаль, я так и делаю вдобавок к книжной теории. Также там есть интерпритатор на русском - его смело удаляй - он компилирует похоже с ошибками. Есть там установщик на инглише - это вот и нужно. В этом интерпритаторе есть встроеный текстовый редактор, но я им не пользуюсь - он со старых добрых времён, когда ещё были грамофоны. Удобнее писать код программы в обычном Ворде или АкельПад далее сохранить текст в DOS кодировке с расширением *.pas. Осталось открыть его ТурбоПаскалем , нажать комбинацию F10, С, D, F9 и выйти ! Смотрим в папку WORK и видим там наш екзешник.

0
12 5665tm   [Материал]
гоночку с модулем граф - эт ты загнул, я пока простые проги тока умею делать - ну там действия с числами, словами, всякая там мелочь. Потом мож сделаю wink

0
13 5665tm   [Материал]
Кстати книжечко мое называется "Turbo Pascal для студентов и школьников" 2005 г.

0
впринципе не так и сложно:вся суть в таком-
нарисавал хуятень какуюту,сделал что бы она двигалась,а затем
зарисовал ей следы=) biggrin

0
3дорово,научите меня так делать?

0
16 5665tm   [Материал]
$Лучший_МодМейкер$_3 см пост 11 smile только вопрос - оно тебе надо ? biggrin wacko

0
17 5665tm   [Материал]
)))

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Подразделы
Автомобили [64]
Редактор [3]
Интерфейс [5]
Модификации [2]
Разное [5]
Мини-профиль
Здравствуйте: Гость

Дополнительно
Новых ЛС:
Bash.im
GPSМегаВундерВафля
Друзья сайта
Уроки HTML и CSS ‹-=IrOn*SpEeD*ClAn=- Всё для игры Crashday ! FlatOut2
Поиск

Сайт оптимизирован под браузер Firefox и Opera
© 2010-2011.