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

@Андрей727 · Регистрация: 29.10.2013

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

Вычислить и вывести значение функции при изменении значения аргумента от А к В с шагом С, и определить минимальное и максимальное значение функции на отрезке. Использовать в одной программе три разных типа использования простых циклов (IF THEN GOTO, WHILE-DO, REPEAT-UNTIL).

оригинал

Обчислити і вивести значення функції при зміні значення аргументу від А до В з кроком С, і визначити мінімальне та максимальне значення функції на відрізку. Використати в одній програмі три різні типи використання простих циклів (IF THEN GOTO, WHILE-DO, REPEAT-UNTIL).

@APALoff · 29.10.2013, 11:51

Правила п 1.4:
Официальными языками форума являются русский и английский языки.

@Андрей727 · 29.10.2013, 11:54 **[ТС]**

Вычислить и вывести значение функции при изменении значения аргумента от А до В с шагом С и определить минимальное и максимальное значение функции на отрезке. Использовать в одной программе три различных типа использования простых циклов (IF THEN GOTO, WHILE-DO, REPEAT-UNTIL).

@APALoff · 29.10.2013, 13:03

"IF THEN GOTO" - не является циклом!
может все таки "For Do" ?

P.S.: использование GoTo вообще является "плохим тоном"

Добавлено через 32 минуты
не очень понятно условие:
...+cos(x₃) - что это за x₃ ?

Добавлено через 33 минуты
опечатка: For To

@ildwine · 29.10.2013, 13:06

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

"IF THEN GOTO" - не является циклом!

Ну почему же, с помощью условного оператора и GOTO можно организовать цикл. Хотя это конечно извращение

@APALoff · 29.10.2013, 13:10

Если принять, что x₃ - опечатка (т.е. просто X будет), то примерно так все будет (если не ошибся при составлении формул в количестве скобочек):

Pascal

Const
  A=0;
  B=3;
  C=0.2;
Var
  x,y,min,max : Real;
  i   : Byte;
 
Procedure CalcY;
Begin
  If x<A then y:=sqr(sin(abs(ln(x+exp(x))))/cos(abs(ln(x+exp(x)))))
  else
    If x>B then y:=sqr(ln((x+1.2)/(exp(x)+1)))
    else y:=5*sqr(sin(x))+cos(x);
End;
 
Begin
{ I  - ForTo}
  For i:=0 to Round((B-A)/C) do
  Begin
    x:=A+i*C;
    CalcY;
    If i=0 then
    Begin
      min:=y;
      max:=y;
    End
      else
      If y>max then max:=y
        else
        If y<min then min:=y;
  End;
  Writeln('  I : ',min:6:2,max:6:2);
 
{ II - While Do}
  i:=0;
  While i<=Round((B-A)/C) do
  Begin
    x:=A+i*C;
    CalcY;
    If i=0 then
    Begin
      min:=y;
      max:=y;
    End
      else
      If y>max then max:=y
        else
        If y<min then min:=y;
    Inc(i);
  End;
  Writeln(' II : ',min:6:2,max:6:2);
 
{ III - Repeat Until}
  i:=0;
  Repeat
    x:=A+i*C;
    CalcY;
    If i=0 then
    Begin
      min:=y;
      max:=y;
    End
      else
      If y>max then max:=y
        else
        If y<min then min:=y;
    Inc(i);
  Until i>Round((B-A)/C);
  Writeln('III : ',min:6:2,max:6:2);
end.

@ildwine · 31.10.2013, 13:20

APALoff, а может человеку правда надо было с помощью IF THEN GOTO?
Что-то типа этого:

Pascal

Label lbl;
........
Var
........
 
begin
i:=0;
lbl : 
  if i <= Round((B-A)/C) then
  Begin
    x:=A+i*C;
    CalcY;
    If i=0 then
    Begin
      min:=y;
      max:=y;
    End
      else
      If y>max then max:=y
        else
        If y<min then min:=y;
    Inc(i);
    goto lbl
  End;  
  Writeln(' II : ',min:6:2,max:6:2);
.........

Добавлено через 1 минуту
Хотя это конечно "плохой тон"

@APALoff · 31.10.2013, 14:54

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

APALoff, а может человеку правда надо было с помощью IF THEN GOTO?
Что-то типа этого:

Хотя это конечно "плохой тон"

Или препод очень "далек" от программирования на TP или опечатка в задании.

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

Решение

Решение

@Андрей727 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 2
		1
	Вычислить и вывести значение функции при изменении значения аргумента 29.10.2013, 11:48. Показов 3223. Ответов 7 Метки нет (Все метки) Вычислить и вывести значение функции при изменении значения аргумента от А к В с шагом С, и определить минимальное и максимальное значение функции на отрезке. Использовать в одной программе три разных типа использования простых циклов (IF THEN GOTO, WHILE-DO, REPEAT-UNTIL). оригинал Обчислити і вивести значення функції при зміні значення аргументу від А до В з кроком С, і визначити мінімальне та максимальне значення функції на відрізку. Використати в одній програмі три різні типи використання простих циклів (IF THEN GOTO, WHILE-DO, REPEAT-UNTIL). Миниатюры 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	29.10.2013, 11:51	2
	Правила п 1.4: Официальными языками форума являются русский и английский языки. 2

@Андрей727 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 2
	29.10.2013, 11:54 [ТС]	3
	Вычислить и вывести значение функции при изменении значения аргумента от А до В с шагом С и определить минимальное и максимальное значение функции на отрезке. Использовать в одной программе три различных типа использования простых циклов (IF THEN GOTO, WHILE-DO, REPEAT-UNTIL). 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	29.10.2013, 13:03	4
	"IF THEN GOTO" - не является циклом! может все таки "For Do" ? P.S.: использование GoTo вообще является "плохим тоном" Добавлено через 32 минуты не очень понятно условие: ...+cos(x₃) - что это за x₃ ? Добавлено через 33 минуты опечатка: For To 0

@ildwine Супер-модератор 6170 / 2912 / 1300 Регистрация: 04.03.2013 Сообщений: 5,774 Записей в блоге: 1
	29.10.2013, 13:06	5
	Сообщение от APALoff "IF THEN GOTO" - не является циклом! Ну почему же, с помощью условного оператора и GOTO можно организовать цикл. Хотя это конечно извращение 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	31.10.2013, 14:54	8
	Сообщение от ildwine APALoff, а может человеку правда надо было с помощью IF THEN GOTO? Что-то типа этого: Хотя это конечно "плохой тон" Или препод очень "далек" от программирования на TP или опечатка в задании. 0

Опции темы