Задание по циклам

[kalugin66]

Задание по циклам

Здравствуйте, 2 часть зачета, за первую еще раз огромное спасибо "Vladimir_S" решить надо очень срочно к завтрашнему утру.
Отдельную тему создавать не стал проблемы схожи, тоже по учебе и по циклам
Посмотреть вложение cikly.doc

 

[Vladimir_S]

Здравствуйте, 2 часть зачета, за первую еще раз огромное спасибо "Vladimir_S" решить надо очень срочно к завтрашнему утру.
Отдельную тему создавать не стал проблемы схожи, тоже по учебе и по циклам
Посмотреть вложение 140075

Ну что же - что могу, сделал.
Предупреждаю сразу: в блок-схемах я ни уха, ни рыла, отродясь этой дурью не маялся и не собираюсь. Тут уж либо сами, либо ищите кого-нибудь другого.

 

[shrek=)]

Блок-схема для 4 задания первого варианта

 

[shrek=)]

Блок-схема для 4 задания второго варианта

 

[shrek=)]

Следующий вариант 1 задание 7:

program z3;
const 
P=-100;
I=1;
var
P,I,X,N:real;
begin
readln (X);
if I<=N then begin
readln (X);
if P>=X then I:=I+1 else P>=X;
end;
else writeln ('P=',P);
readln 
end.

мне кажется это так должно выглядеть.

 

[shrek=)]

Следующий вариант 2 задание 7:

program 2z3;
const
m=1;
i:=1;
var
k,n,m,i:real;
begin 
readln (n);
readln (k);
if i<=n then begin m:=m*k;
i:=i+1
else writeln ('m='m);
readln 
end.