Семакин И.Г., Шестаков А.П. Основы программирования

Подождите немного. Документ загружается.

является центральная. В каждый интервал времени пораженная

инфекцией клетка может с вероятностью 0,5 заразить любую из

соседних здоровых клеток. По прошествии шести единиц време-

ни зараженная клетка становится невосприимчивой к инфекции,

возникший иммунитет действует в течение последующих четы-

рех единиц времени, а затем клетка оказывается здоровой.

ходе

моделирования описанного процесса выдавать текущее состоя-

ние моделируемого участка кожи в каждом интервале времени,

отмечая зараженные, невосприимчивые к инфекции и здоровые

клетки.

Построение с помощью циркуля и линейки

Составить программу, автоматизирующую процесс построения

фигур на плоскости с помощью циркуля и линейки. Программа

должна уметь выполнять следующие команды:

• отметить произвольную точку и обозначить ее;

• построить прямую, проходящую через две точки;

• построить произвольную прямую;

• построить окружность с заданным центром данного радиуса;

• построить и обозначить точку пересечения двух линий.

Программа должна содержать 10—15 стандартных задач на по-

строение школьного курса геометрии, предлагать их для решения

и контролировать процесс построения и полученное решение.

«Морской бой»

Составить программу для игры в морской бой игрока с компь-

ютером. Программа должна позволять расставлять корабли на поле

10х

10,

контролировать правильность их расстановки, давать про-

тивникам возможность поочередно делать ходы и выдавать соот-

ветствующие информационные сообщения. Когда в качестве од-

ного из игроков выступает компьютер, программа должна анали-

зировать предыдущие ходы и следующий делать на основе

проведенного анализа.

5. Обучающе-контролирующая программа «Сложение и вычита-

ние отрицательных чисел»

Составить программу, обучающую учащихся 6 класса сложе-

нию и вычитанию отрицательных чисел (см. учебник «Математи-

ка 6» Нурка или Виленкина), а также предлагающую серию зада-

ний различной сложности для закрепления навыков действий над

такими числами.

6. «Математике» (итальянская игра)

(Б.

А.

Кордемский. Мате-

матическая смекалка.

—

СПб.: Манускрипт, 1994)

Имеется набор из 52 карточек, на которых записаны числа

от 1 до 13, причем карточки с каждым из этих чисел встреча-

ются четырежды. Разработать программу, которая позволяет ими-

тировать игру человека с компьютером. Имеется квадратное поле

с 25 клетками. Программа случайным образом извлекает какую-

либо из имеющихся карточек и выдает записанное на ней чис-

390

ло.

Каждый игрок заносит это чис-

ло в одну из клеток квадрата. Так

продолжается до тех пор, пока не

будут заполнены все клетки квад-

рата

(рис.

55).

По окончании игры заполне-

ние соответствующего квадрата

оценивается определенным коли-

чеством очков. Цель игры

—

раз-

местить числа в клетках так, что-

бы набрать наибольшее количество

очков в соответствии

данной таб-

лицей:

(80)

(40)

(10)

(160)

(20)

(20) (50) (10) (10) (10) (160)

Рис.

Комбинации чисел

За 2 одинаковых числа

За 2 пары одинаковых чисел

За

одинаковых числа

За

одинаковых числа и два других

одинаковыхчисла

За 4 одинаковых числа

За

последовательных чисел, но необяза-

тельно по порядку расположенных

За три раза по 1 и два раза по 13

За числа 1, 13, 12, 11 и 10, но необяза-

тельно по порядку расположенных

За 4 единицы

В ряду или

столбце

10 очков

20 очков

40 очков

80 очков

160 очков

50 очков

100 очков

150 очков

200 очков

По

диагонали

20 очков

30 очков

50 очков

90 очков

170 очков

60 очков

НО очков

160 очков

210 очков

Разработать для компьютера оптимальную стратегию заполне-

ния квадрата.

7. Заполнение готовых форм с помощью информации из базы

данных

Имеется база данных, содержащая сведения о некоторой груп-

пе людей (каждая запись содержит до 10 полей). Составить про-

грамму, которая, используя сведения из базы данных, позволяет

заполнять некоторые документы (стандартные письма, пригла-

шения, визитки, отчеты и т.д.), вписывая эти сведения в нужные

места в указанных документах в соответствующих падежах, ли-

цах, временах и т.д.

391

8. Карточные игры

Составить программу, которая раздает игральные карты задан-

ному количеству игроков (одним из игроков является человек, за

остальных играет компьютер) и моделирует игру в «дурака». Ком-

пьютерная программа играет случайным образом, без анализа уже

вышедших карт. Количество игроков не превышает шести.

9. «Крестики-нолики»

Составить программу, позволяющую играть на бесконечном

поле в «крестики-нолики»:

а) игроку с компьютером;

б) двум игрокам.

Если в качестве игрока выступает компьютер, программа дела-

ет первый

ход.

Делая очередной ход, программа анализирует ситу-

ацию,

рассчитывая возможные ходы противника вперед на

— 2

хода, и в результате проведенного анализа поступает оптималь-

ным образом.

10.

«Быки и коровы»

Составить программу, позволяющую играть в «Быки и коровы»:

а) игроку с компьютером;

б) двум игрокам.

Каждый из противников задумывает четырехзначное число, все

цифры которого различны (первая цифра числа отлична от нуля).

Необходимо разгадать задуманное число. Выигрывает

тот,

кто от-

гадает первый. Противники по очереди называют друг другу числа

и сообщают о количестве «быков» и «коров» в названном числе

(«бык»

—

цифра есть в записи задуманного числа и стоит в той же

позиции, что и в задуманном числе; «корова» — цифра есть в

записи задуманного числа, но не стоит в той же позиции, что и в

задуманном числе).

Например, если задумано число 3275 и названо число 1234,

получаем в названном числе одного «быка» и одну «корову». Оче-

видно, что число отгадано в том случае, если имеем 4 «быка».

11.

«Числовые головоломки»

Составить программу, которая:

предлагает

игроку числовые

головоломки

типа ОДИН

+ ОДИН=

= МНОГО из некоторого набора таких головоломок (до 30);

2) позволяет решить головоломку;

3) контролирует правильность решения.

12.

«Графики»

Составить программу, которая предлагает пользователю неко-

торый список функций для построения графиков (например, у =

= ах

Ьх +

с,

asm х

+ Ъ

и т.д.

—

до 25 наименований). После

выбора соответствующей функции, задания коэффициентов и

отрезка, на котором выполняется построение, программа строит

указанный график. Затем значение коэффициентов и положение

графика можно менять (например, с помощью клавиш управле-

392

Рис.56

ния курсором), после чего график

перестраивается и записывается

обновленное уравнение соответ-

ствующей кривой.

13.

Игра «Две лисы и 20 кур»

На поле указанной формы

(рис.

56) находятся две лисы и

20 кур. Куры могут перемещаться на

один шаг вверх, влево или вправо,

но не назад и не по диагонали. Лисы

также могут перемещаться только

на один шаг (вверх, вниз, влево и

вправо).

Лиса может съесть курицу, как

в игре в шашки: если в горизон-

тальном или вертикальном направ-

лении за курицей на один шаг следует свободное поле, то лиса

перепрыгивает через курицу и берет ее. Лисы всегда обязаны есть,

и, когда у них есть выбор, они обязаны осуществлять «наиболее

длинное поедание». Если два приема пищи имеют одинаковую

длину, осуществляется один из них — по выбору лисы.

Составить программу, которая играет за лис. Игрок перемеща-

ет кур. Партнеры играют по очереди, причем куры начинают. Они

выигрывают партию, если девяти из них удается занять 9 полей,

образующих верхний квадрат поля.

Начальное положение кур и лис изображено на рис. 55.

Лисы выигрывают, если им удается съесть 12 кур, так как тог-

да оставшихся кур недостаточно, чтобы занять 9 верхних полей.

14.

Программа «Игры со спичками»

Составить программу, которая:

1) предлагает игроку головоломки со спичками из некоторого

набора таких головоломок (до 30 штук);

2) позволяет решить головоломку, передвигая спички;

3) контролирует правильность решения.

15.

Графика в Турбо Паскале

Составить программу, демонстрирующую все графические воз-

можности Турбо Паскаля и обучающую работе с основными гра-

фическими процедурами и функциями. Программа должна про-

контролировать усвоение изученного материала (в виде теста или

в какой-либо другой форме).

16.

Игра в слова

Составить программу, позволяющую компьютеру и человеку

играть в слова. Предварительно программа объясняет правила игры

и позволяет уточнить их в любой момент.

Тематикой игры могут быть по выбору города, животные, рас-

тения и т.д. Тематику из предложенных компьютером (не менее 5)

393

выбирает

человек.

Для игры компьютер использует собственную базу

данных (для каждой тематики свою), хранящуюся в виде текстово-

го файла. Если названное человеком слово отсутствует

базе, уточ-

няется, правильно ли оно названо, и в случае правильности зано-

сится в базу. Правила

игры:

первый игрок называет

слово,

второй

должен предложить другое, начинающееся с той буквы, на кото-

рую оканчивается названное.

17.

Ребусы

Выбрав какой-либо школьный предмет (информатика, мате-

матика и т.д.), подобрать ребусы по нему и предложить их для

решения. Программа должна позволять выбрать тот или иной ре-

бус,

проконтролировать его решение и подвести итоги при завер-

шении работы.

ПРИЛОЖЕНИЯ

Приложение

Турбо

Паскаль.

Модуль

CRT

Таблица

П1.1.

Константы режимов работы

Имя

константы

BW40

СО40

BW80

СО80

Mono

Номер

режима

Режим

Черно-белый,

40 символов, 25

строк

Цветной,

40x25

Черно-белый,

80x25

Цветной,

80x25

Монохромный,

80x25, для

монохромных

дисплеев

Таблица

Ш.2.

Константы цветов

Имя

константы

Black

Blue

Green

Cyan

Red

Magenta

Brown

LightGray

DarkGray

LightBlue

LightGreen

LightCyan

LightRed

LightMagenta

Yellow

White

Blink

Номер цвета

128

Цвет

Черный

Темно-синий

Темно-зеленый

Бирюзовый

Красный

Фиолетовый

Коричневый

Светло-серый

Темно-серый

Синий

Светло-зеленый

Светло-бирюзовый

Розовый

Малиновый

Желтый

Белый

Мерцание символа

395

Таблица Ш.З. Процедуры и функции

Интерфейс Назначение

Установка режимов

и окон

Procedure AssignCrt(File

text);

Procedure ClrScr;

Procedure TextMode (Mode

integer) ;

Mode

—

номер текстового режима или

соответствующая константа

Procedure Window(xl,yl,x2,y2:

byte);

(xl,yl) и (х2, у2)

—

координаты

верхнего леюго и нижнего правого углов

окна

Связывает окно дисплея

с текстовым файлом, что

позволяет ускорить

вывод на экран

Очищает экран и

помещает курсор в

верхний левый угол

Выбор текстового

режима

Определяет окно вывода

в текстовом режиме

Управление

цветом текста и

фона

Procedure HighVideo;

Procedure LowVideo;

Procedure NormVideo;

Procedure TextBackground (Color:

byte) ;

Color

—

код цвета или соответствующая

константа

Устанавливает высокую

яркость выводимых

символов

Устанавливает низкую

яркость выводимых

символов

Возвращает цвет

символов и фона,

свойственный данному

графическому режиму по

умолчанию

Выбор цвета символов

Управление выводом

текста

Procedure ClrEol;

Procedure DelLine;

Procedure InsLine;

Стирает все символы от

текущей позиции

курсора до конца строки

Удаляет линию, в кото-

рой находится курсор

Вставляет новую строку

текста перед строкой,

где находится курсор

396

Окончание табл. 171.3

Интерфейс Назначение

Работа

с клавиатурой

Function KeyPressed: boolean;

Значение True, если нажата любая

клавиша, и False

—

если нет

Function ReadKey: char;

Значение функции

—

код символа

клавиши, нажатой на клавиатуре

Определяет, была ли

нажата клавиша на

клавиатуре

Считывает символы из

буфера клавиатуры

Управление курсором

Procedure GotoXY (X,Y: integer) ;

Y —

координаты курсора

Function WhereX: integer;

Значение функции

—

координата

курсора

Function WhereY: integer;

Значение функции

—

координата

курсора

Перемещает курсор в

указанные координаты

окна вывода

Возвращает текущую

координату А" курсора

Возвращает текущую

координату Укурсора

Управление

звуком

Procedure NoSound;

Procedure Sound(Hz: word) ;

—

частота звука в герцах

Выключает динамик

Включает звук динамика

с заданной тональной

частотой

Управление временем

Procedure Delay (Ms

word) ;

—

значение задержки в миллисекундах

Задержка исполнения

программы на заданное

число миллисекунд

Приложение 2

Турбо Паскаль. Модуль GRAPH

Таблица П2.1. Коды драйверов графических устройств

Имя

Detect

CGA

MCGA

EGA

EGA64

EGAMono

IBM8514

HercMono

ATT400

VGA

PC3270

CurrentDriver

Значение

-128

Назначение

Автоматический выбор драйвера

Текущий драйвер

Таблица П2.2. Константы графических режимов

Имя

АТТ400С0

АТТ400С1

АТТ400С2

АТТ400СЗ

ATT400Med

ATT400Hi

CGACO

CGAC1

CGAC2

CGAC3

CGACHi

EGALo

EGAHi

EGA64LO

EGA64Hi

EGAMonoHi

Значение

Размер

поля

320x200

640x200

640x400

320x200

640x200

640x350

640x200

640x350

Палитра

СО

С1

С2

СЗ

цвета

СО

С1

С2

СЗ

цвета

цветов

цвета

Число страниц

•2

1 или

398

Окончание

табл.

П2.2

Имя

HercMonoHi

IBM8514LO

IBM8514Hi

MCGACO

MCGAC1

MCGAC2

MCGAC3

MCGAMed

MCGAHi

PC3270Hi

VGALo

VGAMed

VGAHi

Значение

Размер

поля

720x348

640x480

1024x768

320x200

640x480

720x350

640x200

640x350

640x480

Палитра

2 цвета

256 цветов

СО

С1

С2

СЗ

2 цвета

16 цветов

Число страниц

Примечание.

Палитра СО включает в себя следующие цвета: светло-зеленый,

розовый и желтый; палитра С1

—

светло-голубой, светло-фиолетовый и белый;

палитра С2

—

зеленый, красный и коричневый; палитра СЗ

—

голубой, фиоле-

товый и светло-серый.

Таблица П2.3. Коды цветов

Имя константы

Black

Blue

Green

Cyan

Red

Magenta

Brown

LightGray

DarkGray

LightBlue

LightGreen

LightCyan

LightRed

LightMagenta

Yellow

White

Номер цвета

Цвет

Черный

Темно-синий

Темно-зеленый

Бирюзовый

Красный

Фиолетовый

Коричневый

Светло-серый

Темно-серый

Синий

Светло-зеленый

Светло-бирюзовый

Розовый

Малиновый

Желтый

Белый

399