Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов

@Bampery · Регистрация: 29.10.2016

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const a=1.45;
var y, x : real;
    k, n: integer;
begin
x:=1;
while x<=1.8 do
 begin
  if a<=x then
   begin
    for k:=1 to 10 do
    y:=exp(k*ln(a))*exp(k*ln(x));
   end;
  x:=x+0.1;
  if (a>x) then
  begin
  for n:=1 to 8 do
  y:=exp(n*ln(a))-exp(n*ln(x));
  end;
  x:=x+1;
  write('Значение у по условиям равно: '+y)
 end;
end.

@Hitoku · 13.03.2017, 15:56

Ну вроде что-то выдаёт. Не помешало бы полное условие с формулой

@bormant · 13.03.2017, 17:47

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

правильно ли написал

нет, неправильно.

Стр. 10-11: вычисляется y для k=10, зачем вычисляются все остальные для k от 1..9 -- тайна сия велика есть.
Стр. 17-18: вычисляется y для n=8, зачем вычисляются все остальные для n от 1..7 -- тайна сия велика есть.
Стр. 9 и 12, 15 и 18: лишние пары begin end.
Стр. 19: с учетом стр.6 точно не ошибка?
Стр. 20: недопустимое выражение строка + число.

@Bampery · 13.03.2017, 17:52 **[ТС]**

вот

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\sum_{k=1}^{10}a^kx^k & \text{, if } a\leq x \\\\ \prod_{n=1}^{8}\left(a^k-x^k \right) & \text{, if } a>x \end{cases}\ \ \ \ \ x=1(0.1)1.8;\ \ \ \ \ a=1.45<br />$

@Hitoku · 13.03.2017, 18:03

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

Pascal
17
y:=exp(n*ln(a))-exp(n*ln(x));

В условии степень k. Это опечатка?

Добавлено через 1 минуту
а нет, всё в порядке... Степень видимо действительно k (последний достигнутый). Тогда ошибка у вас

@Bampery · 13.03.2017, 18:05 **[ТС]**

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

Добавлено через 1 минуту
это я протупил в коде, спасибо что заметили

@Hitoku · 13.03.2017, 18:08

И всё таки не ясно... Изначально a>x, значит делаем произведение. Но чему равно k в таком случае?

@Bampery · 13.03.2017, 18:37 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const a=1.45;
var y, x : real;
    k, n: integer;
begin
x:=1;
while x<=1.8 do
begin
if a<=x then
for k:=1 to 10 do
y:=exp(k*ln(a))*exp(k*ln(x));
k:=k+1;
if (a>x) then 
for n:=1 to 8 do
y:=exp(k*ln(a))-exp(k*ln(x));
n:=n+1;
x:=x+0.1;
writeln(y)
end;
end.

А вот такой код сгодится?

@Hitoku · 13.03.2017, 18:43

Pascal
11
k:=k+1;

Pascal
15
n:=n+1;

не нужны, т.к. эти параметры меняются в циклах for

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

Pascal
10
y:=exp(k*ln(a))*exp(k*ln(x));

можно заменить на

Pascal
10
y:=power(a,k)*power(x,k);

в зависимости от того, на каком Паскале пишете

Добавлено через 1 минуту
Ну и главный вопрос: чему равен k изначально? Ведь сначала у нас идёт произведение с n = 1..8, но степенью k. А только потом суммы, где k меняется в цикле. По логике k равняется как минимум 1, но это нигде не указано

@bormant · 13.03.2017, 18:50

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

сгодится?

естественно, нет.

Во-первых, считайте, что во второй части формулы опечатка, д.б. k=1..8.

Основной цикл -- x от 1 до 1.8 с шагом 0.1:

Pascal
1
2
3
4
5
  x:=1;
  while x<=1.85 do begin
    { ... }
    x:=x+0.1;
  end;

Условие в функции -- это

Pascal
1
2
3
4
    if a<=x then
      { сумма }
    else
      { произведение };

Сумма -- это

Pascal
1
  y:=0; for k:=1 to 10 do y:=y+...;

Произведение -- это

Pascal
1
  y:=1; for k:=1 to 10 do y:=y*...;

В выражениях у вас целые степени, растущие на 1 на каждом шаге, нет нужды в использовании функции Exp(), достаточно на каждом шаге домножить временные переменные на x и a соответственно:

Pascal
1
2
3
4
  ta:=1; tx:=1;
  for ...
    ta:=ta*a; tx:=tx*x; { очередная степень }
    ...

А теперь вам осталось из этих кубиков собрать свою готовую программу.
Удачи!

@Hitoku · 13.03.2017, 18:54

Не по теме:

Чему равно k в произведении??? :wall:

@bormant · 13.03.2017, 19:09

Hitoku,
да опечатка там, опечатка...
Не спешите выдавать готовое решение, полагаю, с полученными подсказками ТС вполне сможет справиться с задачей.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\begin{cases} & \sum_{k=1}^{10} a^k x^k, \text{ } a \leq x ; \\ & \prod_{k=1}^{8} (a^k - x^k), \text{ } a > x ;\end{cases}$

@Hitoku · 13.03.2017, 19:11

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

да опечатка там, опечатка...

а, ну тогда тут всё довольно просто

@Bampery · 13.03.2017, 20:44 **[ТС]**

как ещё можно записать выражение возведения в степень не используя exp?

Добавлено через 14 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const a=1.45;
var y,ta,tx,x : real;
k : integer;
 
begin
x:=1;
  while x<=1.85 do begin
     if a<=x then
    y:=0;
    ta:=1;
    tx:=1;
    for k:=1 to 10 do y:=y+;
     
     y:=1;
     for k:=1 to 10 do y:=y*;
      ta:=ta*a; tx:=tx*x;
 
    x:=x+0.1;
    writeln(y)
  end;
  end.

как ещё можно в паскале записать выражение возведения в степень не используя exp?

@bormant · 13.03.2017, 21:08

Не, кубики кубиками, но соблюдения синтаксиса-то паскалевского никто ж не отменял...
Повнимательнее.

@Hitoku · 13.03.2017, 21:10

Pascal
1
power(число, степень);

Добавлено через 1 минуту

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

Pascal
12
y:=y+;

ой, а что это?

@Bampery · 14.03.2017, 16:23 **[ТС]**

там выражение теперь с power()

@bormant · 14.03.2017, 17:39

Ок, будем считать, что
Шах расписался в полном неумении (q) ВСВ

Кликните здесь для просмотра всего текста

Подумайте ещё...

Стоит ли стремиться на все готовое?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const a=1.45;
var x, y, ta, tx: Real; k: Integer;
begin
  x:=1;
  while x<=1.85 do begin
    ta:=1; tx:=1; 
    if a<=x then begin
      y:=0;
      for k:=1 to 10 do begin
        ta:=ta*a; tx:=tx*x; y:=y+ta*tx;
      end;
    end else begin
      y:=1;
      for k:=1 to 8 do begin
        ta:=ta*a; tx:=tx*x; y:=y*(ta-tx);
      end;
    end;
    WriteLn(x:8:1,y:16:4);
    x:=x+0.1;
  end;
end.

Новые блоги и статьи Все статьи Все блоги /
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. Пошагово создадим проект для загрузки изображения. . .	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 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	13.03.2017, 15:56
	Ну вроде что-то выдаёт. Не помешало бы полное условие с формулой 0

@Bampery 0 / 0 / 2 Регистрация: 29.10.2016 Сообщений: 41
	13.03.2017, 17:52 [ТС]
	вот $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\sum_{k=1}^{10}a^kx^k & \text{, if } a\leq x \\\\ \prod_{n=1}^{8}\left(a^k-x^k \right) & \text{, if } a>x \end{cases}\ \ \ \ \ x=1(0.1)1.8;\ \ \ \ \ a=1.45<br />$ 0

@Bampery 0 / 0 / 2 Регистрация: 29.10.2016 Сообщений: 41
	13.03.2017, 18:05 [ТС]
	не может быть там опечатки Добавлено через 1 минуту это я протупил в коде, спасибо что заметили 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	13.03.2017, 18:08
	И всё таки не ясно... Изначально a>x, значит делаем произведение. Но чему равно k в таком случае? 0

@Hitoku
	13.03.2017, 18:54
	Не по теме: Чему равно k в произведении??? :wall: 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	13.03.2017, 19:09
	Hitoku, да опечатка там, опечатка... Не спешите выдавать готовое решение, полагаю, с полученными подсказками ТС вполне сможет справиться с задачей. $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\begin{cases} & \sum_{k=1}^{10} a^k x^k, \text{ } a \leq x ; \\ & \prod_{k=1}^{8} (a^k - x^k), \text{ } a > x ;\end{cases}$ 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	13.03.2017, 21:08
	Не, кубики кубиками, но соблюдения синтаксиса-то паскалевского никто ж не отменял... Повнимательнее. 0

@Bampery 0 / 0 / 2 Регистрация: 29.10.2016 Сообщений: 41
	14.03.2017, 16:23 [ТС]
	там выражение теперь с power() 0

Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов

Решение