Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 21.10.2014
Сообщений: 9
1

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

23.10.2014, 11:23. Показов 1331. Ответов 1
Метки нет (Все метки)

Ввести с клавиатуры массив X, содержащий 20 элементов. Вычислить значение функции y=0,5LNx при значениях аргумента, заданных в массиве X и поместить их в массив Y. Найти в массиве Y максимальный элемент, целая часть которого кратна 3 и его индекс. На экран вывести массивы X,Y и индекс найденного элемента.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2014, 11:23
Ответы с готовыми решениями:

Вычислить значения функции при значениях аргумента, заданных в массиве
4. Задан массив, состоящий из 5 элементов. Вычислить значения функции у = х^2 при значениях...

Вычислить значения функции y = -0,5 ln (x) при значениях аргумента, заданных в массиве X
Дан массив X, размером 5. Вычислить значения функции y = -0,5 ln (x) при значениях аргумента,...

Вычислить значение функции при заданных значениях аргумента
Как решать системы такого типа? Помогите решить,знающие люди.

Вычислить значения функции y=2Cos(x) при значениях аргумента, заданных в массиве
Сформировать одномерный массив N случайных чисел из интервала (-10; 10). Предусмотреть...

1
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
23.10.2014, 12:14 2
Лучший ответ Сообщение было отмечено neriul как решение

Решение

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
const N=20;
var
  x,y:array[1..20] of real;
  i,z:integer;
  ok:boolean;
begin
  ok:=false;
  writeln('Введите массив X');
  z:=1;
  for i:=1 to N do begin
    repeat
      write('x[',i,']=');
      readln(x[i]);
    until x[i]>0;  
    y[i]:=0.5*ln(x[i]);
    if (y[z]<y[i]) and (trunc(y[i])<>0) and (trunc(y[i]) mod 3=0) then begin
      z:=i;
      ok:=true;
    end;  
  end;
  Writeln('   I       X            Y');
  for i:=1 to N do writeln(i:4,'  ',x[i]:10:4,'  ',y[i]:10:4);
  write('Индекс:');
  if ok then writeln(z) else writeln('не найден');
end.
Добавлено через 13 минут
Цитата Сообщение от Joy Посмотреть сообщение
x,y:array[1..20] of real;
лучше заменить на
Pascal
1
x,y:array[1..N] of real;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2014, 12:14

Вычислить значения функции при значениях аргумента, заданных в одном массиве, и поместить их в другой массив
Задан целочисленный массив Х размером 5 элементов. Элементы массива Х вводятся с...

Используя интерполяционную формулу Ньютона, вычислить значение функции при заданных значениях аргумента с точностью до 0.001
Нужно написать програму которая будит используя интерполяционную формулу Ньютона вычеслять значение...

Используя интерполяционную формулу Ньютона, вычислить значение функции при заданных значениях аргумента с точностью до 0.001
Нужно написать программу которая будет используя интерполяционную формулу Ньютона вычислять...

Массив: Вычислить значения функции при значениях аргумента, заданных в массиве X, и поместить в массив Y.
1. Задан массив*X*из 5 элементов. Вычислить значения функции**при значениях аргумента, заданных в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru