Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Цикл

Автор: nf404azh 15.11.2006, 17:47

стыдно даже как-то просить помочь с такой задачей...
надо решить user posted image

используя цикл repeat until

Автор: Sartorius 15.11.2006, 17:48

Можно и прогу не писать)) Overflow будет smile

Автор: nf404azh 15.11.2006, 18:03

я прям даже не знаю... smile

Автор: Sartorius 15.11.2006, 18:05

nf404azh, ты наверно че-то напутал... У тебя до бесконечности суммируется неубывающий ряд...

Автор: likehood 15.11.2006, 18:07

может в степени -2

Автор: nf404azh 15.11.2006, 18:08

нет, препод так написала. может решила пошутить? smile

Автор: Sartorius 15.11.2006, 18:12

Ну пусть сам такое запускает smile

Код


Program Sum;
var 
     sum : integer;
     n      :  integer;
begin
 sum := 0;
 n := 0;
 Repeat
  sum := sum + (n+1)*(n+1);
  inc(n);
 Until false;
end.

ЗЫ Забыл паскаль, там наверно операторные скобки нужны в Repeat....

Автор: nf404azh 15.11.2006, 18:14

=) спасибо
я все спросить хотел... что такое inc?

Автор: likehood 15.11.2006, 18:16

да нет, в рипите скобки не нужны

а inc(x) все равно что x:=x+1

Автор: nf404azh 15.11.2006, 18:17

и тебе спасибо =)