Напишите программу, которая содержит тест (Pascal) Уровень самооценки тест Отвечая на вопросы, указывайте, как часты для Вас пер
Напишите программу, которая содержит тест (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);<span>end.</span>
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 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Вам по плечу серьезные дела. Дерзайте!');<span>end.</span>
const m=6; // строк n=9; // столбцов var a:array[1..m,1..n] of integer; i,j,k1,k2,s,k:integer; begin Writeln('Введите границы диапазона: '); Read(k1,k2); Randomize; s:=0; k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(199)-99; // [-99;99] Write(a[i,j]:4); if (a[i,j]>=k1) and (a[i,j]<=k2) then begin Inc(k); s:=s+a[i,j] end end; Writeln end; Writeln('Отобрано элементов: ',k,', их сумма равна ',s) end.
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')