![]() |
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
![]() |
kumino |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 28 Пол: Мужской Репутация: ![]() ![]() ![]() |
Хотелось бы создать игру... Паскаль у меня есть,но я не понимаю, как делать игры на нём.С++ тоже есть, но я его не знаю. Укажите ссылочку...
|
![]() ![]() |
kumino |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 28 Пол: Мужской Репутация: ![]() ![]() ![]() |
легко!
uses crt; var k,f:integer; begin clrscr; randomize; k:=15; repeat writeln('ostalos',' ',k,'spitchek'); repeat writeln('vvedite',' ','kol-vo',' ','spitchek'); readln(f); until((f>0) and (f<4) and (f<=k)); k:=k-f; if (k=0) then begin write('you win'); readln; exit; end; if (k mod 4=0) then begin f:=random(2)+1; writeln('Ya kladu',' ',f,' ','spitchek'); k:=k-f; end else begin writeln('Ya kladu',' ',k mod 4,' ','spitchek'); k:=k-(k mod 4); if (k=0) then begin write('you lose'); readln; exit; end; end; until(k=0); end. Прикрепленные файлы ![]() |
![]() ![]() |
![]() |
Текстовая версия | 17.06.2024 6:20 |