Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
alexal2017
0 / 0 / 0
Регистрация: 31.01.2016
Сообщений: 1
1

Среди вычисленных значений функции найти наибольшее и наименьшее значения

31.01.2016, 20:14. Просмотров 217. Ответов 1
Метки нет (Все метки)

Не знаю как ввести большее или меньшее в задачу
• среди вычисленных значений функции найти наибольшее и наименьшее значения
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program zadacha1;
var a,b:integer;
y,t:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('a=', a, ' b=', b);
t:=0;
while t<=3 do begin
if a=1 then y:=1 else
if a<1 then y:=a*sqr(t)*ln(t) else
y:=exp(a*t)*cos(b)*t;
writeln('t=',t, ' y=', y:5:2);
t:=t+0.15;
end;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.01.2016, 20:14
Ответы с готовыми решениями:

Построить таблицу значений функции f (x) на промежутке [a, b] с шагом h, найти наибольшее и наименьшее значение функции на этом отрезке
Результаты вывести на экран и сохранить в файле в виде: x f (x)...

Найти наибольшее и наименьшее значения функции на заданном интервале
Найти наибольшее и наименьшее значения функции в заданном интервале с заданным...

Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом
Помогите. Найти наибольшее и наименьшее значения функции в заданном интервале с...

Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом
Найти наибольшее и наименьшее значения функции в заданном интервале с заданным...

Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом
Найти наибольшее и наименьшее значения функции в заданном интервале с заданным...

1
Difaust
111 / 88 / 66
Регистрация: 27.04.2014
Сообщений: 297
31.01.2016, 21:33 2
Вот:
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
36
37
38
Program zadacha1;
var a,b,i:integer;
y,t:real;
begin
  writeln('vvedite a');
  readln(a);
  writeln('vvedite b');
  readln(b);
  writeln('a=', a, ' b=', b);
  t:=0;
  var arr : array[0..20] of double; // так как  у нас 20 решений то и массив будет на 20 элментов
  while t<=3 do begin
    if a=1 then y:=1 else
    if a<1 then y:=a*sqr(t)*ln(t) else
    y:=exp(a*t)*cos(b)*t;
    arr[i] := y; //записываем результаты функции в массив
    i := i+1;
    writeln('t=',t, ' y=', y:5:2);
    t:=t+0.15;
  end;
  var max_num, max_index, min_num: double;
  max_index := 1;
  max_num := arr[1];
  for i := 2 to 20 do // в этом цикле находим максимальный элемент
      if arr[i] > max_num then begin
          max_index := i;
          max_num := arr[i]; // наибольшее значение
      end;
     min_num:=arr[1];
  for i:=2 to 20 do // а в этом наименьшее
    begin
      if min_num>arr[i] then
        min_num:=arr[i]; // минимальное значение
    end;
  writeln('Max = ',max_num:5:2);
  writeln('Min = ',min_num:5:2);
  readln;
end.
И на будущее, не забывай ставить табуляцию..
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2016, 21:33

Найти сумму вычисленных значений функции
Найти сумму вычисленных значений функции f(x). Задание: 1. Из таблицы выбрать...

Рассчитать значения функции согласно своему варианту. Предусмотреть сохранение в памяти вычисленных значений
d=\ln\left|x+\sin {x}^{4} \right| при x {0.75; -3.1; 21; -1.7; 3} Количество...

Среди чисел найти наибольшее и наименьшее
Дано действительное число X и натуральное число N. Среди чисел x^1,x^2...x^n...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru