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

kalugin66 · 23.12.2010, 12:16

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

cikly.doc

Vladimir_S · 23.12.2010, 16:15

Цитата:

Сообщение от kalugin66

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

Вложение 140075

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

shrek=) · 23.12.2010, 16:36

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

shrek=) · 23.12.2010, 16:47

Блок-схема для 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.

23.12.2010, 12:16	#1 (permalink)
kalugin66 Новичок Регистрация: 19.12.2010 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задание по циклам Здравствуйте, 2 часть зачета, за первую еще раз огромное спасибо "Vladimir_S" решить надо очень срочно к завтрашнему утру. Отдельную тему создавать не стал проблемы схожи, тоже по учебе и по циклам cikly.doc

23.12.2010, 16:36	#3 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Блок-схема для 4 задания первого варианта Миниатюры

23.12.2010, 16:47	#4 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Блок-схема для 4 задания второго варианта Миниатюры

23.12.2010, 16:58	#5 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Следующий вариант 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. мне кажется это так должно выглядеть.

23.12.2010, 17:06	#6 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Следующий вариант 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.

23.12.2010, 12:16
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ваш вопрос уже обсуждался на нашем форуме Задание в Pascal. Подскажите Задание в паскале. Помогите с решением

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид