Игра 'Червячки' на PascalABC

preview_player
Показать описание

Программа весит 3.85 КБ, 160 строк. Мой преподаватель по информатике был весьма доволен. Управление:
- Движение: цифры 4 и 6;
- Ударить молотком: цифра 2.
  1. Prokhor
  2. Програмирование
  3. Программирование
  4. Pascal
  5. Паскаль
  6. ABC
Рекомендации по теме
Игра 'Червячки' на 0:01:06

Игра 'Червячки' на PascalABC

Игра 'Танк' на 0:01:01

Игра 'Танк' на PascalABC

Игра 'Карты' на 0:03:18

Игра 'Карты' на PascalABC

Игра 'Лабиринт' на 0:02:45

Игра 'Лабиринт' на Паскале

Pascal ABC, обзор 0:07:36

Pascal ABC, обзор беты игры 2 часть 1.

змейка на Паскале 0:02:24

змейка на Паскале

На помощь ! 0:00:33

На помощь ! Паскаль.ABC #1

just useless PascalABC.NET 0:00:53

just useless PascalABC.NET game-like thing

3D Графика Pascal 0:01:13

3D Графика Pascal Урок 1.

epeat pascal abc 0:01:54

epeat pascal abc uses graphabc

ОФИГЕННАЯ ИГРА ПРО 0:04:30

ОФИГЕННАЯ ИГРА ПРО ЧЕРВЯЧКОВ ОТ СОЗДАТЕЛЕЙ AGAR.IO

Крестики-нолики на PascalABC 0:02:35

Крестики-нолики на PascalABC

Змейка | Паскаль 0:01:32

Змейка | Паскаль | Snake | PascalABC.Net

Вертлявые червячки. Обзор 0:03:49

Вертлявые червячки. Обзор настольной игры от Игроведа

Игра 'Зомби' на 0:04:07

Игра 'Зомби' на Паскале. Версия 0.4.6

[OpenGL и PascalABC.net] 0:35:24

[OpenGL и PascalABC.net] №15. Игра 'Snake2D'

Морской бой | 0:03:01

Морской бой | КРИТ | PascalABC.NET

Pascal will Yarak 0:00:19

Pascal will Yarak

Спинер на PascalABC. 0:01:20

Спинер на PascalABC. Клавиатура и мышь.

Делаем игру в 0:05:03

Делаем игру в PascalAbc.net часть 3.

Графика в PascalABC.NET 0:12:08

Графика в PascalABC.NET №18. Игра 'Три в ряд'. №4 Финал. Доработка игры...

Шашки на Паскале 0:01:44

Шашки на Паскале

Графика в PascalABC.NET 0:23:21

Графика в PascalABC.NET №17. Игра 'Три в ряд'. №3 Реализация визуальной части....

Делаем игру в 0:06:46

Делаем игру в PascalAbc.net часть 5. Последняя.

Комментарии
Автор

Подскажите, пожалуйста, для чего этот кусок программы?
if h>0 then write('') else goto 3;
goto 1;
3:setpencolor(clblack);
setbrushcolor(clwhite);
rectangle(0, 0, 640, 480);
setfontsize(70);
textout(3, 120, 'Вы спасли:');
textout(500, 120, sc);
k:=sc;
l:=k-((int(k/10))*10);
m:=k-((int(k/100))*100);
if m=11 then textout(100, 220, 'червячков') else
if m=12 then textout(100, 220, 'червячков') else
if m=13 then textout(100, 220, 'червячков') else
if m=14 then textout(100, 220, 'червячков') else
if l=1 then textout(100, 220, 'червячка') else
if l=2 then textout(100, 220, 'червячка') else
if l=3 then textout(100, 220, 'червячка') else
if l=4 then textout(100, 220, 'червячка') else
if l=0 then textout(100, 220, 'червячков') else
if l>4 then textout(100, 220, 'червячков') else write('');
read(g);
goto 4;
end.

АлинаКолмогорова-лх