Реферат: Турбо Паскаль 7.0

Writeln('y Вас всего ', SumYour,' очков.'); {вывод суммы очков}

if SumYour >= MaxSum then Вгеаk{прекращение игры при переборе} end;

{метание кости для компьютера — он играет,

если сумма очков меньше 18}

if SumComp < 18 then {если компьютер продолжает игру}

begin Count := Random(6) + 1; {число очков компьютера} WriteLn('мнe выпало ', count,' очков.'); {вывод количества очков} SumComp := SumComp + count; {подсчет суммы очков компьютера} Writeln('y меня всего ', SumComp,' очков.'); {вывод суммы очков}

if SumYour >= MaxSum then Break {прекращение игры при переборе} end

else begin {если компьютер пасует}

write(‘ пас. Будете продолжать? (у/п)’); {запрос о продолжении игры}

repeat

read(reply) until (reply = 'у') or (reply = 'Y') or (reply = 'n') or (reply = 'N');

if (reply = 'n') or (reply = 'N') then Break {прекращение игры

по взаимному согласию}

end

until false;{замыкание цикла метания костей} {подведение итогов}

if SumYour > MaxSum then writeln('Bы проиграли!')

{перебор игрока}

else if SumComp > MaxSum then writeln(‘Я проиграл!')

{перебор у компьютера}

else if SumYour < SumComp then writeln('Я выиграл!')

{сравнение очков}

else if SumYour = SumComp then writeln ('Ничья!')

{равенство очков}

else writeln('Вы выиграли!');

ReadLn

end.

Программа разбита на две основные части: метание костей и подведе­ние итогов.

Первая часть реализует бесконечный цикл метания костей, ограничен­ный оператором repeat ... until false. Выбор оператора repeat мотивирован тем, что должен быть сделан, по крайней мере, один ход игры. Цикл может быть прерван оператором Break при переборе очков любым из игроков и при отказе обоих партнеров от продолжения игры. Объединение трех усло­вий в одно и использование его как завершающего условия цикла re­peat... until усложнит алгоритм, а применение для прекращения игры опера­тора Break алгоритм упрощает.

Цикл repeat... until с завершающим условием

(reply = 'у') or (reply = 'Y') or (reply ='n') or (reply = 'N');

продолжается до тех пор, пока не будет введен допустимый символ ('у', 'Y', 'п' или 'N') при ответе на вопрос о продолжении игры.

Для имитации метания костей применена функция Random с парамет­ром — целым числом, равным 6. При таком использовании она дает случайные целые числа в диапазоне от 0 до 5 включительно.

Подведение итогов игры выполняют вложенные друг в друга операто­ры if. Возможные итоги игры прове­ряются последовательно. Если возможен вывод, выполняется часть then оператора. Если не возможен, выполняется часть else, в которой стоит опе­ратор дальнейшего ветвления if.

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

Среда Borland Pascal имеет несколько встроенных инструментальных средств отладки программ. С некоторыми из них мы уже познакомились. Механизм пошагового выполнения программы, вызываемый функци­ональной клавишей F7, и его варианты: пошаговое выполнение без входа в процедуры, вызываемое клавишей F8, и исполнение до заданной строки (клавиша F4) позволяют проверить, соответствует ли последовательность выполнения команд Вашим требованиям к алгоритму.

Эффективность отладки возрастает при совместном использовании различных инструментальных средств среды программирования. Для использования средств отладки должны быть включены опции компилято­ра: Debug information, Local symbols и Symbol information (меню Options/ Compiler). Если опции установлены, в файл включается специальная информация, допускающая применение средств отладки. В отлаженной программе эта информация не требуется, поэтому при компиляции про­граммы как готового продукта опции отладки рекомендуется отключить. Инструментальные средства отладки доступны через меню Debug (отлад­ка), приведенное на рисунке 5.4.