Question

Напишите программу, которая содержит тест (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 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Вам по плечу серьезные дела. Дерзайте!

Answer 1

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.

Answer 2

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.

Answer 3

Вот пример программы на языке Pascal, которая реализует указанный тест и вычисляет уровень самооценки на основе полученных баллов:

pascalCopy code
program SelfEsteemTest;

var
  score: Integer;
  answer: Integer;

begin
  score := 0;

  writeln('Отвечайте на вопросы, указывая число от 0 до 4:');
  writeln('0 - никогда');
  writeln('1 - редко');
  writeln('2 - иногда');
  writeln('3 - часто');
  writeln('4 - очень часто');
  writeln;

  writeln('1. Я часто волнуюсь понапрасну.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('2. Мне хочется, чтобы мои друзья подбадривали меня.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('3. Я боюсь выглядеть глупцом.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('4. Я беспокоюсь за свое будущее.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('5. Внешний вид других куда лучше, чем мой.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('6. Как жаль, что многие не понимают меня.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('7. Чувствую, что я не умею как следует разговаривать с людьми.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('8. Люди ждут от меня очень многого.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('9. Чувствую себя скованным.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('10. Мне кажется, что со мной должна случиться какая-то неприятность.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('11. Меня волнует мысль о том, как люди относятся ко мне.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('12. Я чувствую, что люди говорят про меня за моей спиной.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('13. Я чувствую себя в безопасности.');
  write('Ответ: ');
  readln(answer);
  score := score + answer;

  writeln('14. Мне не с кем поделиться своими мыслями.');
  write('От