Задача 16 Урок 9
Primary tabs
Решать по желанию, сдавать на проверку не обязательно:
Запрограммируйте историю:
1) Вы дома, пойдем в лес или в центр города?
2) Если пойдем в лес то будем жечь костер или кататься на лыжах?
3) Если будем кататься на лыжах, то по кругу или с гор (придумайте последния выбора)
4) Если будем жечь костер - то будем ли что-то готовить или просто (придумайте последствия выбора)
5) Если выбрали поход в центр - пойдем ли в кино или погуляем по центру
6) Если пойдем в кино будет смотреть исторический фильм или комедию (придумайте последствия выбора)
Решение:
var a: string ; begin writeln('>>Kuda poydem?(v les/v centr)'); readln(a); if (a='v les')then begin writeln('>>vy prishly v les'); writeln('>>budem zhech koster ili katatsya na lyzhah? (zhech koster/katatsya na lyzhah)'); readln(a); if(a='zhech koster') then begin writeln('>>gretsya ili gotovit?(gretsya/gotovit)'); readln(a); if(a='gretsya') then writeln('>>vy sogrelis') else if(a='gotovit') then writeln('>>vy poobedaly') end else if(a='katatsya na lyzhah') then begin writeln('>>kataemsya na lyzhah'); writeln('>>kataemsya po crugu ili s gor?(po krugu/s gor)'); readln(a); if(a='po krugu') then writeln('>>kataem po krugu') else if(a='s gor') then writeln('>>kataem s gory'); end; end else if (a='v centr') then begin writeln('>>vy prishli v centr'); writeln('>>poydem v kino ili pogulyaem po centry?(v kino/pogulyaem)'); readln(a); if(a='v kino') then begin writeln('>>vy v kino'); writeln('>>istoricheskiy film ili komediya?(istoricheskiy / komediya)'); readln(a); if(a='istoricheskiy') then writeln('>>vy smotrite istoricheskiy film') else if(a='komediya') then writeln('>>smotrim komediyu'); end else if(a='pogulyaem') then begin writeln('>>vy gulyaete') end end; writeln('>>konec'); readln(); end.
- Log in to post comments
- 411 reads