Вычислить сумму ряда, используя разные типы циклов

@blondino4ka · Регистрация: 16.12.2009

Студворк — интернет-сервис помощи студентам

составить три программы вычисления суммы ряда, где n, меняется от 1 до 10, используя цикл с параметром, цикл с постусловием и цикл с предисловием. Min(x^3,y^2-1,z)

Добавлено через 7 минут
я минимумум вычислела Min(x^3,y^2-1,z)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
x,y,z,min,mmin:real;
begin
writeln ('ââåäèòå x,y,z');
readln (x,y,z);
if (x*x*x)>(sqr(y)-1)then min:=sqr(y)-1
else min:=x*x*x;
if min>z then mmin:=z
else mmin:=min;
writeln ('min',mmin:5:2);
readln;
end.

или мне не надо было его вычислять?? не пойму задание как по такому варианту Min(x^3,y^2-1,z) написать программу!

@кот Бегемот · 19.12.2009, 18:00

В вашем задании нет самого ряда, то есть, мы будем менять n, а ничего не изменится, как был этот минимум, так все 10 раз и будет одинаковым. Где-то вы условие не дочитали или не дописали

@blondino4ka · 19.12.2009, 19:25 **[ТС]**

вот ∑ 1/2N^2+1 Да ошибка в задачнике!
я так сделала c циклом параметра

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program for_;
 
uses crt;
 
var n:integer;
     sum,i:real;
begin
      sum:=0;
      for n:=1 to 10 do
          i:=1/(sqr(2*n)+1);
          sum:=sum+i;
          writeln('ñóììà ÷èñåë îò 1 äî 10 ðàâíà: ',sum);
end.

Добавлено через 33 минуты
с постусловием

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program rep_;
uses crt;
var sum,i,n:real;
begin
      sum:=0;
      repeat
      n:=n+1;
          i:=1/(sqr(2*n)+1);
          sum:=sum+i;
          until n=10;
          writeln('ñóììà ÷èñåë îò 1 äî 10 ðàâíà: ',sum);
end.

цикл с предусловием не работает даже у меня =(

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program while_;
Uses crt;
var n:integer;
     sum,i:real;
begin
      sum:=0; n:=0;
      while n<=10  do
      begin
          i:=1/(sqr(2*n)+1);
          sum:=sum+i;
          end;
          writeln('ñóììà ÷èñåë îò 1 äî 10 ðàâíà: ',sum);
end.

что я не так делаю?

@кот Бегемот · 19.12.2009, 19:31

а минимум куда делся? или он к другой задаче?

а в третьем цикле не хватает в 9 строке

Pascal
1
inc(n);

дальше i:=... и т.д

@blondino4ka · 19.12.2009, 19:38 **[ТС]**

alexevt, Min(x^3,y^2-1,z) это ошибка в задачнике была! вот настоящие задание: составить три программы вычисления суммы ряда, где n, меняется от 1 до 10, используя цикл с параметром, цикл с постусловием и цикл с предисловием. ∑ 1/2N^2+1

почему кстати результат первого цикла(0.00249376558603491) отличается от второго и третьего(0.334632450695253)?

@кот Бегемот · 19.12.2009, 19:48

значит ошибка, сейчас посмотрю

Pascal
1
2
3
4
5
6
7
for n:=1 to 10 do
begin          
      i:=1/(sqr(2*n)+1);
        sum:=sum+i;
end;         
writeln('сумма чисел от 1 до 10 равна: ',sum);
end.

@blondino4ka · 19.12.2009, 19:59 **[ТС]**

ах, спасибо как я так проворонила =)
вот ещё не пойму, составить программу вычисления суммы ряда с заданной точностью ɛ=0,001 , используя один из циклов с параметром, цикл с постусловием и цикл с предисловием. ∑ 1/2N^2+1
это как?

@кот Бегемот · 19.12.2009, 20:36

это значит вы делаете задачу вторым или 3 способом, но вместо n=10 пишете условие окончание работы i<e

@blondino4ka · 19.12.2009, 20:59 **[ТС]**

я что то не так делаю =( не поняла!

@кот Бегемот · 19.12.2009, 21:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program rep_;
uses crt;
var sum,i,n:real;
begin
      sum:=0;
      repeat
      n:=n+1;
          i:=1/(sqr(2*n)+1);
          sum:=sum+i;
          until i<0.001;
          writeln('сумма чисел от 1 до 10 равна: ',sum);
end.

@blondino4ka · 19.12.2009, 21:11 **[ТС]**

alexevt, спасибо я так и сделала, не работала из-за того что вместо точки, запятую влепила! =)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	19.12.2009, 18:00
	В вашем задании нет самого ряда, то есть, мы будем менять n, а ничего не изменится, как был этот минимум, так все 10 раз и будет одинаковым. Где-то вы условие не дочитали или не дописали 1

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	19.12.2009, 19:38 [ТС]
	alexevt, Min(x^3,y^2-1,z) это ошибка в задачнике была! вот настоящие задание: составить три программы вычисления суммы ряда, где n, меняется от 1 до 10, используя цикл с параметром, цикл с постусловием и цикл с предисловием. ∑ 1/2N^2+1 почему кстати результат первого цикла(0.00249376558603491) отличается от второго и третьего(0.334632450695253)? 0

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	19.12.2009, 19:59 [ТС]
	ах, спасибо как я так проворонила =) вот ещё не пойму, составить программу вычисления суммы ряда с заданной точностью ɛ=0,001 , используя один из циклов с параметром, цикл с постусловием и цикл с предисловием. ∑ 1/2N^2+1 это как? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	19.12.2009, 20:36
	это значит вы делаете задачу вторым или 3 способом, но вместо n=10 пишете условие окончание работы i<e 0

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	19.12.2009, 20:59 [ТС]
	я что то не так делаю =( не поняла! 0

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	19.12.2009, 21:11 [ТС]
	alexevt, спасибо я так и сделала, не работала из-за того что вместо точки, запятую влепила! =) 0