23.12.2010, 12:16
|
#1 (permalink) |
|
Новичок
Регистрация: 19.12.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задание по циклам
Отдельную тему создавать не стал проблемы схожи, тоже по учебе и по циклам  cikly.doc |
|
|
|
23.12.2010, 12:16
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваш вопрос уже обсуждался на нашем форуме Задание в Pascal. Подскажите Задание в паскале. Помогите с решением |
|
23.12.2010, 16:15
|
#2 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
|
Цитата:
Предупреждаю сразу: в блок-схемах я ни уха, ни рыла, отродясь этой дурью не маялся и не собираюсь. Тут уж либо сами, либо ищите кого-нибудь другого. |
|
|
|
|
|
23.12.2010, 16:58
|
#5 (permalink) |
|
Студент БГПУ
Регистрация: 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.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|
23.12.2010, 17:06
|
#6 (permalink) |
|
Студент БГПУ
Регистрация: 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.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
| Опции темы | |
| Опции просмотра | |
|
|
Линейный вид
