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

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

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

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

Pascal

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(nln(a))-exp(nln(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

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

k:=k+1;

Pascal

n:=n+1;

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

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

Pascal

10	y:=exp(kln(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

  x:=1;
  while x<=1.85 do begin
    { ... }
    x:=x+0.1;
  end;

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

Pascal

    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

  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

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

y:=y+;

ой, а что это?

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

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

@bormant · 14.03.2017, 17:39

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

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

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

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

Pascal

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.

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

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	13.03.2017, 17:47	3
	Сообщение от 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: недопустимое выражение строка + число. 1

@Bampery 0 / 0 / 2 Регистрация: 29.10.2016 Сообщений: 41
	13.03.2017, 17:52 [ТС]	4
	вот $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 [ТС]	6
	не может быть там опечатки Добавлено через 1 минуту это я протупил в коде, спасибо что заметили 0

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

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

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	13.03.2017, 19:09	12
	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

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	13.03.2017, 19:11	13
	Сообщение от bormant да опечатка там, опечатка... а, ну тогда тут всё довольно просто 0

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

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

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

Решение