Программа вычисления значений функции в указанных точках

@little_sherlock · Регистрация: 14.01.2017

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

привет! помогите пожалуйста, шерстила форум на предмет похожей программы, но не нашла, прошу помочь

Нужно составить программу для вычисления значений функции в указанных точках;
среди вычисленных найти наибольшее и наименьшее значения;
для решения задачи использовать операторы цикла с параметром, с предусловием и постусловием;
Предусмотреть ввод "a" с клавиатуры.
Вывод значений результатов счета и параметров осуществить на экран.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \begin{array}{|c|c|}\hline y=\begin{cases}x\sqrt[3]{x-a} & \text{, } a\,<\,3 \\ x\,\sin \,ax & \text{, } a=3 \\ \operatorname{e}^{\,^{-ax}}\cos \,ax & \text{, } a\,>\,3 \end{cases} & \begin{matrix}x\in [1;\,5]\\ \Delta x=0.5\end{matrix}\\\hline \end{array}<br />$

Вот то, что есть на данный момент, но я совсем запуталась)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 var x,y,a,min,max: real;
 begin
  clrscr;
  writeln ('Введите a ');
  readln (a);
  x:=1;
  min:=(x*x*x)*(sqrt(x-a));
  max:=min;
  while x<=5 do
   begin
    x:=x+0.5;
    y:=x;
    if y>max then max:=y;
    if y<min then min:=y;
   end;
  writeln('максимальное значение функции = ',max:4:2);
  writeln('минимальное значение функции = ',min:4:2);
 end.

@Joker456 · 14.01.2017, 22:03

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var x,y,a,min,max,dx:real;
Begin
  clrscr;
  Write('Введите значение A: ');
  Read(a);
  x:=1;
  min:=(x*x*x)*sqrt(x-a);
  max:=0;
  dx := 0.5;
  while(x <=5) do begin
    if(a < 3) then 
    begin
      y:=(x*x*x)*sqrt(x-a);
      if(y > max) then max := y;
      if(y < min) then min := y;
    end
    else if(a = 3) then 
    begin
      y:=x*sin(a*x);
      if(y > max) then max := y;
      if(y < min) then min := y;
    end
    else if(a > 3) then 
    begin
      y:=exp(-a*x)*cos(a*x);
      if(y > max) then max := y;
      if(y < min) then min := y;
    end;
    x:=x+dx;
  end;
writeln('максимальное значение функции = ',max:4:2);
writeln('минимальное значение функции = ',min:4:2);
ReadLn();
End.

@Puporev · 14.01.2017, 22:03

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

шерстила форум на предмет похожей программы, но не нашла

Значит и не искали. Их море.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var x,y,a,b,min,max: real;
begin
clrscr;
writeln ('Введите a ');
readln (a);
x:=1;
while x<=5 do
 begin
  if a<3 then
   begin
    if a=x then b:=0
    else if a<x then b:=exp(ln(x-a)/3)
    else b:=-exp(ln(a-x)/3);
    y:=x*b;
   end 
  else if a=3 then y:=x*sin(a*x)
  else y:=exp(-a*x)*cos(a*x);
  if x=1 then 
   begin
    min:=y;
    max:=min;
   end
  else if y<min then min:=y 
  else if y>max then max:=y;
  writeln('a=',a:5:1,' x=',x:5:1,' y=',y:9:6);
  x:=x+0.5;
 end; 
 writeln('максимальное значение функции = ',max:0:6);
 writeln('минимальное значение функции = ',min:0:6);
 end.

@little_sherlock · 14.01.2017, 22:21 **[ТС]**

Puporev, а где в предоставленной вами программе оператор с постусловием? это важно
Joker456, спасибо

@Joker456 · 14.01.2017, 22:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var x,y,a,min,max,dx:real;
Begin
clrscr;
Write('Введите значение A: ');
Read(a);
x:=1;
min:=(x*x*x)*sqrt(x-a);
max:=0;
dx := 0.5;
repeat
if(a < 3) then 
begin
y:=(x*x*x)*sqrt(x-a);
end
else if(a = 3) then 
begin
y:=x*sin(a*x);
end
else if(a > 3) then 
begin
y:=exp(-a*x)*cos(a*x);
end;
if(y > max) then max := y;
if(y < min) then min := y;
x:=x+dx;
until(x >= 5);
writeln('максимальное значение функции = ',max:4:2);
writeln('минимальное значение функции = ',min:4:2);
ReadLn();
End.

@little_sherlock · 14.01.2017, 22:43 **[ТС]**

Joker456, спасибо еще раз! только в 27 строке просто x=5 должен быть, или нет?

@Joker456 · 14.01.2017, 22:47

little_sherlock, без разницы цикл до 5 дойдет и далее выйдет.

@little_sherlock · 22.01.2017, 12:05 **[ТС]**

помогите пожалуйста в окне результатов организовать вывод значений y для каждого x[1..5]!

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

@little_sherlock 0 / 0 / 0 Регистрация: 14.01.2017 Сообщений: 8
	14.01.2017, 22:21 [ТС]
	Puporev, а где в предоставленной вами программе оператор с постусловием? это важно Joker456, спасибо 0

@little_sherlock 0 / 0 / 0 Регистрация: 14.01.2017 Сообщений: 8
	14.01.2017, 22:43 [ТС]
	Joker456, спасибо еще раз! только в 27 строке просто x=5 должен быть, или нет? 0

@Joker456 19 / 19 / 16 Регистрация: 13.10.2013 Сообщений: 205
	14.01.2017, 22:47
	little_sherlock, без разницы цикл до 5 дойдет и далее выйдет. 0

@little_sherlock 0 / 0 / 0 Регистрация: 14.01.2017 Сообщений: 8
	22.01.2017, 12:05 [ТС]
	помогите пожалуйста в окне результатов организовать вывод значений y для каждого x[1..5]! 0