Система программирования Турбо Паскаль

ВВЕДЕНИЕ Система программирования Турбо Паскаль представляет собой единство двух в известной степени самостоятельных начал: компилятора с языка программирования Паскаль (язык назван в честь выдающегося французского математика и философа Блеза Паскаля (1623-1662)) и некоторой инструментальной программной оболочки, способствующей повышению эффективности создания программ. Паскаль – замечательный язык программирования, который относительно

прост в изучении, довольно ясен и логичен и, будучи первым изучаемым языком программирования, приучает к хорошему стилю. Паскаль воспитывает дисциплину структурного программирования и программирования вообще лучше, чем другие языки программирования, такие, как, например, БЕЙСИК. Паскаль – гибкий и развитый в отношении типов данных язык. Привлекательны его рекурсивные возможности, а также поддержка технологии объектно-ориентированного

программирования. Изучение программирования на языке Паскаль может дать хороший старт в огромный и увлекательный мир программирования. Обучение языку программирования проходит намного более эффективно с изучением примеров. Чаще всего (процедурное) программирование использует итерации, то есть циклы; однако рекурсия – описание объекта или вычисления в терминах самого себя – является более простым математическим понятием, а также

мощной, но мало используемой техникой программирования. Некоторые программисты считают (и не без оснований), что рекурсия – это сердце и душа языка Паскаль. В этой работе мы рассмотрим применение рекурсии в программах на Паскале. Здесь рассматриваются примеры рекурсивных алгоритмов и программирование комбинаторных вычислений. Ко всему прочему мы научимся представлять данные в памяти

ЭВМ и разрабатывать программы в среде Турбо Паскаль. 1. Постановка задачи Написать программу-игру. Игра-Спички. Дано 100 спичек. В игре принимают участие 2 игрока. Каждый, из которых может взять от 1 до 10 спичек за один ход. Тот, чья очередь подойдет, когда в кучке останется 1 спичка – проиграл.

2. Описание методов Использование модуля CRT для очистки экрана и модуля GRAPH для графического отображения. Основными процедурами, использовавшимися в программе, являются графические процедуры типа LINE(X1,Y1,X2,Y2:integer), OutTextXY(X,Y:integer; TextString:string), SetFillStyle(Pattern:word; Color:word), Bar(X1,Y1,X2,Y2:integer). Применение условных операторов

IF THEN ELSE использование циклов WHILE DO , REPEAT UNTIL change(var A,B:string) – процедура, написанная внутри программы. LINE(X1,Y1,X2,Y2:integer) – процедура, которая рисует линию от точки с координатами X1,Y1 до точки с координатами X2,Y2 OutTextXY(X,Y:integer; TextString:string ) - выводит заданный текст TextString, начиная с координаты первой буквы, которые

задаются по осям X,Y SetFillStyle(Pattern:word; Color:word) – процедура, указывающая цвет заполнения. Используется вместе с процедурой Bar(X1,Y1,X2,Y2:integer) Bar(X1,Y1,X2,Y2:integer) – процедура, которая рисует прямоугольник, закрашиваемый с помощью процедуры SetFillStyle(Pattern:word; Color:word) Оператор IF THEN ELSE используется для выражения условия выполнения определенного действия, после которого выполняется

другое определенное действие при условии, что было выполнено предыдущее действие, иначе выполняется другое действие FOR I:=A TO N DO оператор цикла, который используется для повторения определенного действия или нескольких определенных действии, начиная с A до N-го раза. Change(var A,B:string) – процедура, позволяющая менять местами две переменные A и B. 3. Разработка алгоритма Прежде всего, у нас есть 2 игрока.

И не зависит от того, кто ходит, и нам не нужно знать кто, сколько спичек взял всего. Что упрощает нашу задачу. Но тем не менее, есть 100 спичек. Каждый раз нам необходимо отнимать то количество спичек, которое возьмет любой из игроков, но необходимо учитывать, что разрешено брать только от 1 до 10 спичек. Поэтому здесь необходимо ограничить игроков. Пусть а – количество спичек на данный момент, x – количество

взятых спичек на данный момент. Тогда организуем цикл WHILE DO :