циклы( турбо паскаль)

[lilia2121]

пожалуйста, нужно написать программу и алгаритм(если можно):
1)вычислить сумму всех положительных и всех отрицательных чисел из заданной последовательности отличных от нуля чисел, последний элемент последовательности равен нулю.
2) составить программу по формуле: L= ∑(сверху 100, снизу m=55) xm√m/m
3)ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А т. Ежегодный план отлова В т. Нименьший запас рыбы, ниже которого запас уже не восстанавливается С т. Выведите на экран сколько ле можно выдержать заданный план. Значения А В и С вводятся с клавиатуры

Буду оочень благодарна!!

[Grag]

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

Обращайтесь! Сделаю, не дорого...

[lilia2121]

а бескорыстно никто не сможет помочь?

[Google2010]

1)

sp:=0;so:=0;
a:=1;
while a<>0 do begin
readln(a);
if a>0 then sp:=sp+a
else so:=so+a;
end;

3)

k:=1;
while a>=c do begin
a:=a-b;
a:=a*1.15
k:=k+1;
end;

2)

l:=0;
for m:=55 to 100 do
l:=l+sqrt(m)/m;

[Grag]

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

3)

k:=1;
while a>=c do begin
a:=a-b;
a:=a*1.15
k:=k+1;
end;

При некоторых сочетаниях исходных данных этот цикл может стать бесконечным... и благополучно подвешиваем систему...

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

2)

l:=0;
for m:=55 to 100 do
l:=l+sqrt(m)/m;

А куда из расчетов пропала переменная X???
L= ∑(сверху 100, снизу m=55) xm√m/m
И вообще эта формула вызывает некоторые сомнения...

[Google2010]

При некоторых сочетаниях исходных данных этот цикл может стать бесконечным... и благополучно подвешиваем систему...

пусть над этим тс думает

И вообще эта формула вызывает некоторые сомнения...

такие же ощущения

[Serebro]

При некоторых сочетаниях исходных данных этот цикл может стать бесконечным... и благополучно подвешиваем систему...

Бесконечный цикл (в данном случае) - это тоже решение. Нужно учесть такой случай.

[Grag]

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

Бесконечный цикл (в данном случае) - это тоже решение. Нужно учесть такой случай.

Естессно, об этом и идет речь, что нет анализа на предмет бесконечности и выхода из фатальной ситуации...

[Grag]

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

а бескорыстно никто не сможет помочь?

Может, кто-нибудь и сможет, но помни, что
i.jpg