Давайте попробуем разработать программу - тест

Представьте себе, что вы хотите определить уровень эрудированности некоторого мистера Х. Это можно сделать, например таким образом. Задать мистеру Х несколько вопросов (например, 2)и за каждый правильный ответ ему добавлять 1 балл. Если он ответит на все вопросы (т.е. наберет 2 балла), то его назовем гением. Если он ответит на 1 вопрос (т.е. наберет 1 балл), его назовем талантом, а, если не ответит ни на один вопрос (0 баллов), то посоветуем ему «учиться и учиться».

Var

Otv:String; {хотим, чтобы ответы на вопросы были текстовые,

тогда можно использовать тип String}

N:Integer; {счетчик правильных ответов}

BEGIN

Writeln (‘Сейчас я загадаю 2 загадки, а Вы их отгадайте’);

N:=0; {пока ответов нет, и баллов 0}

Writeln (‘Висит груша, нельзя скушать. Что это?’); Readln(Otv);

If (Otv=’Лампочка’) Or (Otv=’лампочка’) Then N:=N+1

Else N:=N+0;

Writeln (‘Зимой и летом одним цветом. Что это?’); Readln(Otv);

If (Otv=’ель’) Or (Otv=’елка’) Then N:=N+1

Else N:=N+0;

If N=2 Then Writeln(‘Вы - гений’);

If N=1 Then Writeln(‘Вы - талант’);

If N=2 Then Writeln(‘Вам надо учиться и учиться…’);

END.

Задание к § 17

Попробуйте сами разработать тест.

Тест Скушайте клубничку

L Любите яблоки? Значит, трудолюбивы, практичны, поможете другу. Но консервативны в привычках

J Апельсины? Легко находите общий язык с людьми, не бываете им в тягость. Милы, мягки

J Клубнику? Утонченны, элегантны, выбираете красивые и дорогие вещи

L Арбуз? Не жалеете времени, чтобы любое дело выполнить качественно и до конца.

J А любители винограда не очень-то откровенны и до глубины души не раскрываются.

L Если же хочется съесть грушу, вы спокойны, мягки, дружелюбны и к тому же прекрасный рассказчик.