0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 17
1

Цикл WHILE

11.05.2010, 19:37. Показов 421. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание: составить программу для вычисления произведения конечного ряда: http://www.ljplus.ru/img4/n/i/nikitosique/1.jpg

Вот что написал:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const eps=0.01; max=10;
var i:byte;
    p:real;
begin
clrscr;
p:=1;
i:=2;
while (i<=max) or eps<1-1/i) do
    begin
    p:=p*sqr(1-1/i);
    i:=i+1;
    end;
write ('p=',p:0:4);
readln;
end.
Но программа выдает ошибку на строке в цикле p:= или же попросту выдает результат p=0.000 т.е. не считает. Ошибок сам не замечаю. Кто-то подскажет где ошибка в коде?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2010, 19:37
Ответы с готовыми решениями:

Составить программы, используя цикл с предусловием и цикл с постусловием
Дано целое число N (&gt; 0). Найти наибольшее целое число K,квадрат которого не превосходит N:...

Итерационный цикл и цикл с известным числом повторения
5.12-интерационный цикл 4.9-цикл с известным числом повторений

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать...

Цикл с предусловием, цикл с постусловием и цикл с параметром
Объясните пожалуйста как делать эти циклы. У меня не получается. Можете сделать как на фото, или на...

4
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
11.05.2010, 19:51 2
Pascal
1
2
3
4
for i:=2 to 10 do begin
 p:=p*sqr(1-1/i);
end;
writeln(p);
0
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 17
11.05.2010, 21:27  [ТС] 3
Artishok, это цикл FOR, а я говорю про WHILE. С циклами FOR и REPEAT я разобрался. Проблема возникла с циклом WHILE.

Добавлено через 1 час 19 минут
Ну так что, с while никто не поможет?
0
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
11.05.2010, 21:39 4
repeat это while наоборот.
Pascal
1
2
3
4
5
i:=2;
while i<=10 do begin
p:=p*sqr(1-1/i);
i:=i+1;
end;
1
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 17
11.05.2010, 21:52  [ТС] 5
Artishokб спасибо! Все заработало.
Не понимаю зачем в пособиях все так усложняют вводя константы.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2010, 21:52
Помогаю со студенческими работами здесь

Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста

Алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием»
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием»
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Как переделать программу, чтобы внешний цикл был repeat.until, а цикл for вложенным? Паскаль
const x = 0.29; var y, sv, sz, fact, st: real; i, j, zn: integer; begin sz := 0;...

Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием», составить
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...

Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием», составить
Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru