УМОЛЯЮ
задание 1.
Составить блок-схему алгоритма и программу на Паскале для вычисления функций z. Ввести программу в ЭВМ, вычислить значения функции и проверить ее для самостоятельно выбранных трех пар значений переменных X и Y. (рисунок снизу)
задание 2.
Составить блок-схему алгоритма и программу для обработки массива из 20 чисел X = (0,3; 5; 69; –3; 52; –20; –9; –23; –9; 10; 36; 12; 15; 23; –0,2; –36; –0,3; 8; 45; –7) при b = –6 Вычислить произведение и количество элементов, не равных нулю и больших b.
задание 3.
Составить программу и блок-схему алгоритма для вычисления площади 5 квадратов со сторонами, изменяющимися от 0 до 15 в цикле.
В отчет включить текст программ на Паскале, реакции ЭВМ.
B:array[0..5] of string=('Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале:','очень часто – ;','часто – ;','иногда – ;','редко – ;','никогда – ');
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.
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.