Напишите программу, которая содержит тест (pascal) уровень самооценки тест отвечая на вопросы, указывайте, как часты для вас перечисленные ниже состояния по такой шкале: часто – 4 ; часто – 3 ; иногда – 2 ; редко – 1 ; никогда – 0 . 1. я часто волнуюсь понапрасну. 2. мне хочется, чтобы мои друзья подбадривали меня. 3. я боюсь выглядеть глупцом. 4. я беспокоюсь за свое будущее. 5. внешний вид других куда лучше, чем мой. 6. как жаль, что многие не понимают меня. 7. чувствую, что я не умею как следует разговаривать с людьми. 8. люди ждут от меня многого. 9. чувствую себя скованным. 10. мне кажется, что со мной должна случиться какая-то неприятность. 11. меня волнует мысль о том, как люди относятся ко мне. 12. я чувствую, что люди говорят про меня за моей спиной. 13. я чувствую себя в безопасности. 14. мне не с кем поделиться своими мыслями. 15. люди не особенно интересуются моими достижениями. чтобы определить уровень своей самооценки, нужно сложить все по утверждениям. а теперь посчитайте, сколько получится в сумме. если меньше 10, вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или разжечь. если сумма превышает 30, то вы себя недооцениваете. набранное количество от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. вам по плечу серьезные дела. дерзайте!

Const a: array[1..15] of string =('1. я часто волнуюсь понапрасну.','2. мне хочется, чтобы мои друзья подбадривали меня.','3. я боюсь выглядеть глупцом.','4. я беспокоюсь за свое будущее.','5. внешний вид других куда лучше, чем мой.','6. как жаль, что многие не понимают меня.','7. чувствую, что я не умею как следует разговаривать с людьми.','8. люди ждут от меня многого.','9. чувствую себя скованным.','10. мне кажется, что со мной должна случиться какая-то неприятность.','11. меня волнует мысль о том, как люди относятся ко мне.','12. я чувствую, что люди говорят про меня за моей спиной.','13. я чувствую себя в безопасности.','14. мне не с кем поделиться своими мыслями.','15. люди не особенно интересуются моими достижениями.'); b: array[0..5] of string=('отвечая на вопросы, указывайте, как часты для вас перечисленные ниже состояния по такой шкале: ',' часто – 4 ; ','часто – 3 ; ','иногда – 2 ; ','редко – 1 ; ','никогда – 0 .'); var i,n,s: integer; begin for i : = 0 to 5 do writeln(b[i]); writeln; for i : = 1 to 15 do begin writeln(a[i]); read(n); s: = s + n; end; if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s) else if (s > = 10 ) and (s < = 30 ) then write ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s) else write ('вы себя недооцениваете',s); end.

Var s: string; k: integer; procedure res(s: string; var k: integer); begin; if s=' часто' then k: =k+4; if s='часто' then k: =k+3; if s='иногда' then k: =k+2; if s='редко' then k: =k+1; end; begin; writeln('1. я часто волнуюсь понапрасну.'); readln(s); res(s,k); writeln('2. мне хочется, чтобы мои друзья подбадривали меня.'); readln(s); res(s,k); writeln('3. я боюсь выглядеть глупцом.'); readln(s); res(s,k); writeln('4. я беспокоюсь за свое будущее.'); readln(s); res(s,k); writeln('5. внешний вид других куда лучше, чем мой.'); readln(s); res(s,k); writeln('6. как жаль, что многие не понимают меня.'); readln(s); res(s,k); writeln('7. чувствую, что я не умею как следует разговаривать с людьми.'); readln(s); res(s,k); writeln('8. люди ждут от меня многого.'); readln(s); res(s,k); writeln('9. чувствую себя скованным.'); readln(s); res(s,k); writeln('9. чувствую себя скованным.'); readln(s); res(s,k); writeln('10. мне кажется, что со мной должна случиться какая-то неприятность.'); readln(s); res(s,k); writeln('11. меня волнует мысль о том, как люди относятся ко мне.'); readln(s); res(s,k); writeln('12. я чувствую, что люди говорят про меня за моей спиной.'); readln(s); res(s,k); writeln('13. я чувствую себя в безопасности.'); readln(s); res(s,k); writeln('14. мне не с кем поделиться своими мыслями.'); readln(s); res(s,k); writeln('15. люди не особенно интересуются моими достижениями.'); readln(s); res(s,k); if k< 10 then writeln('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или разжечь.'); if k> 30 then writeln('вы себя недооцениваете); if (k> =10) and (k< =30) then writeln('набранное количество от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. вам по плечу серьезные дела. дерзайте! '); end.

...

Объяснение:

Чтобы потом можно было легко найти нужное место. Ты поставил закладку, а потом через время можешь вставить в это место например ссылку