Посчитать значение функции и найти ее сумму на заданном промежутке

@Anka11 · Регистрация: 24.12.2012

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

Люди понимающие паскаль помогите с задачей,знаю что простая,но совсем не помню,а скорее всего не понимаю как ее решать .

дана ф-я у=х^2+2*x+1 ,нужно посчитать значение ф-и для различных х и найти сумму ф-и на участке [1..10]
Буду очееень благодарна вам.Сложно мне быть девушкой программистом

Kodzaev · 08.09.2014, 15:33

А шаг чему равен? Если 1, то:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  x, y, s: integer;
 
begin
  for x := 1 to 10 do
  begin
    y := Sqr(x) + 2 * x + 1;
    s := s + y;
    WriteLn('y(', x, ') = ', y)
  end;
  WriteLn('Сумма первых 10 значений = ', s);
end.

@Anka11 · 08.09.2014, 15:35 **[ТС]**

спасибо

мне наверно это никогда не понять.
а сумму первых 10 значений он читает?

Kodzaev · 08.09.2014, 15:40

Anka11, я поправил код. Пересмотрите еще раз.

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

а сумму первых 10 значений он читает?

Конечно. Скопируйте код, вставьте его в редактор PascalABC'а и запустите. Выдает такой результат:

Code
1
2
3
4
5
6
7
8
9
10
11
y(1) = 4
y(2) = 9
y(3) = 16
y(4) = 25
y(5) = 36
y(6) = 49
y(7) = 64
y(8) = 81
y(9) = 100
y(10) = 121
Сумма первых 10 значений = 505

@Anka11 · 08.09.2014, 15:53 **[ТС]**

спасибо

Kodzaev · 08.09.2014, 15:55

Если же нужно самому вводить начальное значение, конечное и шаг, то уже так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  xn, xk, x, y, s, h: real;
 
begin
  Write('Введите начальное значение: '); ReadLn(xn);
  repeat
    Write('Введите конечное значение: '); 
    ReadLn(xk);
  until xk > xn;
  Write('Введите шаг: '); ReadLn(h);
  x := xn - h;
  s := 0;
  while x <= xk - h do
  begin
    x := x + h;
    y := Sqr(x) + 2 * x + 1;
    WriteLn('y(', x, ') = ', y:0:5);
    if (x >= 1) and (x <= 10) then
      s := s + y;
  end;
  WriteLn('Сумма значений функции на участке [1..10] = ', s:0:5)
end.

Скорее всего это и имелось в виду. На первый код не обращайте внимания.

@Anka11 · 08.09.2014, 15:56 **[ТС]**

ладно,разберусь

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Anka11 1 / 2 / 0 Регистрация: 24.12.2012 Сообщений: 61

	Посчитать значение функции и найти ее сумму на заданном промежутке 08.09.2014, 15:22. Показов 1282. Ответов 6 Метки нет (Все метки) Люди понимающие паскаль помогите с задачей,знаю что простая,но совсем не помню,а скорее всего не понимаю как ее решать . дана ф-я у=х^2+2*x+1 ,нужно посчитать значение ф-и для различных х и найти сумму ф-и на участке [1..10] Буду очееень благодарна вам.Сложно мне быть девушкой программистом 0

@Anka11 1 / 2 / 0 Регистрация: 24.12.2012 Сообщений: 61
	08.09.2014, 15:35 [ТС]
	спасибомне наверно это никогда не понять. а сумму первых 10 значений он читает? 0

@Anka11 1 / 2 / 0 Регистрация: 24.12.2012 Сообщений: 61
	08.09.2014, 15:53 [ТС]
	спасибо 0

@Anka11 1 / 2 / 0 Регистрация: 24.12.2012 Сообщений: 61
	08.09.2014, 15:56 [ТС]
	ладно,разберусь 0