программы на Turbo Pascal помогите срочно!!!

программирование программы Образование pascal паскаль

Нужны срочно тексты этих трех игровых программок прямо очень отчет по практике горит спасайте)

Игра «Бывает, не бывает»
Машина выдает фразы. Если то о чем идет речь бывает, дети отвечают «да», если нет, то
отвечают «нет».
1. Медведь бродит по лесу?
2. Лодка по небу плывет?
3. Собака по улице гуляет?
4. Собака на дереве сидит?
5. Мальчик рисует машину?
6. Машина рисует мальчика?
7. и т.п.
2. Подготовка к восприятию понятия «алгоритм»
Игра «Кем (чем) будет …?
- Чем был желудь? (Дубом.)
-Еще чем? (Едой для кабана или поделкой – игрушкой для детей.)
Предметы предлагаемые для вопросов: желудь, дерево, мука, икринка, семечко, кирпич,
цыпленок, ткань, железо, яйцо и др.
Важно подчеркнуть возможность нескольких вариантов. Например икринка может стать
головастиком или рыбой; яйцо может стать цыпленком, птенцом, змеей, черепахой и даже
яичницей.
Игра «Кем (чем) был …?»
Эта игра заключается в том, чтобы ответить на вопрос, кем (чем) был раньше цыпленок (яйцом),
лошадь (жеребенком), корова (теленком), дуб (желудем), рыба (икринкой), яблоня (семечком),
лягушка (головастиком), бабочка (гусеницей), хлеб (мукой), шкаф (доской), велосипед (железом),
дом (кирпичом или бревном).
Можно усложнить игру, продолжив цепочку превращений. Например: желудь – дуб – доска – дом
– дрова – огонь и т.п.
Ответы:
ВНИМАНИЕ ТЕКСТ НАПИСАННЫЙ РУССКИМ ЯЗЫКОМ МОЖЕТ ОТОБРАЖАТЬСЯ В ТВОЕЙ СРЕДЕ НЕ ПРАВИЛЬНО ТАК ЧТО ВОЗМОЖНО ЕГО ПРИДЁТСЯ НАБРАТЬ В РУЧНУЮ
отмеченный участок программы можно вставлять сколько угодно раз только не забудь добавить новые метки
program yes_no;
{да нет}
uses crt;
label
1,2;
var
a:real;
Begin
clrscr;
1:writeln('Собака умеет летать? (0-нет,1-да)');{Начало}
readln (a);
if (a=0) then
 begin
 clrscr;
 writeln ('Правильно!!!');
 end
else
if (a=1) then
 begin
 clrscr;
 writeln ('Не правильно!!!');
 goto 1;
 end
else
if (a<>1) and (a<>0) then
 begin
 clrscr;
 writeln ('Такого ответа нет.');
 goto 1;
 end;                                       {Конец}
 2:writeln('Кот мяукает? (0-нет,1-да)');
readln (a);
if (a=0) then
 begin
 clrscr;
 writeln ('Не правильно!!!');
 goto 2;
 end
else
if (a=1) then
 begin
 clrscr;
 writeln ('Правильно!!!');
 end
else
if (a<>1) and (a<>0) then
 begin
 clrscr;
 writeln ('Такого ответа нет.');
 goto 2;
 end;
end.


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.