Технический форум - Задание по циклам

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задание по циклам (http://www.tehnari.ru/f41/t43758/)

kalugin66

23.12.2010 12:16

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

Вложений: 1

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

Vladimir_S

23.12.2010 16:15

Вложений: 1

Цитата:

Сообщение от kalugin66 (Сообщение 433510)

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

shrek=)

23.12.2010 16:36

Вложений: 1

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

shrek=)

23.12.2010 16:47

Вложений: 1

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

shrek=)

23.12.2010 16:58

Следующий вариант 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=)

23.12.2010 17:06

Следующий вариант 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.

Часовой пояс GMT +4, время: 06:32.