Создать любую игру - Turbo Pascal
Формулировка задачи:
Проболел почти все второе полугодие и только сейчас узнал, что мне дали курсовую работу в Turbo Pascal с темой создание игр. Времени до сдачи осталось очень мало, помогите пожалуйста кто чем сможет.
Решение задачи: «Создать любую игру»
textual
Листинг программы
var c:integer; function vopros(s:string;max:integer):integer; var i:integer; begin repeat writeln(s); readln(i); until (i>0) and (i<=max); vopros:=i; end; begin writeln('Загадайте животное из списка,а я угадаю:'); writeln('Крокодил,акула,слон,фламинго,медведь,чайка,чепепаха,лиса,кит,страус,собака,коза,щука,соловей,карась,питон'); case vopros('Вопрос № 1 Выберите вид 1-рыба, 2-пресмыкающееся, 3-птица, 4-млекопитающее',4) of 1:case vopros('Вопрос № 2 - Это хищник?(1-да, 2- нет)',2) of {щука,карась, акула} 2:writeln('Это карась'); 1:case vopros('Вопрос № 3 - Живет в соленой воде?(1-да, 2- нет)',2) of 1:writeln('Это акула'); 2:writeln('Это щука'); end; end; 2:case vopros('Вопрос № 2 - это хищник?(1-да, 2-нет)',2)of {крокодил,черепаха,питон} 2:writeln('Это черепаха'); 1:case vopros('Вопрос № 3 - У него лапы есть? (1-да,2-нет)',2) of 1:writeln('Это крокодил'); 2:writeln('Это питон'); end; end; 3:case vopros('Вопрос № 2 - оно летает?(1-да,2-нет)?',2) of{фламинго, чайка, страус,соловей} 2:writeln('Это страус'); 1:case vopros('Вопрос № 3 - питается рыбой?(1-да,2-нет)?',2) of 2:writeln('Это соловей'); 1: case vopros('Вопрос № 4 - ноги длинные?(1-да,2-нет)?',2) of 1:writeln('Это фламинго'); 2:writeln('Это чайка'); end; end; end; 4:case vopros('Вопрос № 2 - оно живет в воде?(1-да,2-нет)?',2) of{слон, медведь,лиса, кит,собака, коза} 1:writeln('Это кит'); 2:case vopros('Вопрос № 3 - оно зимой спит?(1-да,2-нет)?',2) of 1:writeln('Это медведь'); 2:case vopros('Вопрос № 4 - оно спит стоя?(1-да,2-нет)?',2) of 1:writeln('Это слон'); 2:case vopros('Вопрос № 5 - это домашнее животное?(1-да,2-нет)?',2) of 2:writeln('Это лиса'); 1:case vopros('Вопрос № 6 - оно дает молоко?(1-да,2-нет)?',2) of 1:writeln('Это коза'); 2:writeln('Это собака'); end; end; end; end; end; end; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д