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

@neriul · Регистрация: 21.10.2014

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

Ввести с клавиатуры массив X, содержащий 20 элементов. Вычислить значение функции y=0,5LNx при значениях аргумента, заданных в массиве X и поместить их в массив Y. Найти в массиве Y максимальный элемент, целая часть которого кратна 3 и его индекс. На экран вывести массивы X,Y и индекс найденного элемента.

@Joy · 23.10.2014, 12:14

Pascal

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;

@neriul 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 9
		1
	Вычислить значение функции y при значениях аргумента, заданных в массиве 23.10.2014, 11:23. Показов 1565. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры массив X, содержащий 20 элементов. Вычислить значение функции y=0,5LNx при значениях аргумента, заданных в массиве X и поместить их в массив Y. Найти в массиве Y максимальный элемент, целая часть которого кратна 3 и его индекс. На экран вывести массивы X,Y и индекс найденного элемента. 0

Опции темы

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

Решение