Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2007, 16:43   #1
Absent
Пользователь
 
Регистрация: 18.11.2007
Сообщений: 67
По умолчанию Функция которая в массиве ищет максимальный по модулю элемент

Составить функцию, исходными данными которой является массив Y1,Y2..Yn. Определить наибольшую абсолютную величину среди элементов массива.


вот что у меня получилось, но это не правильно

Код:
program Project2;

uses
  SysUtils;
type mas=array[1..100] of integer  ;
function NAV(y:mas):integer;
var i,n,k :integer;
begin
 k:=0;
write('n=');
readln(n) ;
for i:=1 to n do
begin
writeln('y[',i,']=');
readln(y[i]);
end  ;
for i:=1 to n do
if abs(y[i])>k then
k:=abs(y[i]);

nav:=k;
write('nav=',k) ;
readln;
 end;
end.

Последний раз редактировалось AlDelta; 18.11.2007 в 18:18.
Absent вне форума Ответить с цитированием
Старый 18.11.2007, 16:56   #2
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

вот алгоритм твоей задачи
Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var v:array[1..4] of integer;
  i:integer;
  max:integer;
begin
   randomize;
   for i:= 1 to 4 do
begin
   v[i]:=random(10);
   write(v[i], ' ');
end;
    writeln;
    max:=v[1];
    for i:= 1 to 4 do
    begin
    if max < v[i] then
    max:=abs(v[i]);
 end;
    write(max, ' ');

    readln;

end.
I like WPF
kommunist вне форума Ответить с цитированием
Старый 18.11.2007, 17:04   #3
Absent
Пользователь
 
Регистрация: 18.11.2007
Сообщений: 67
По умолчанию

мне нужно чтобы с фунуцией
Absent вне форума Ответить с цитированием
Старый 19.11.2007, 19:41   #4
bill
Форумчанин
 
Аватар для bill
 
Регистрация: 26.04.2007
Сообщений: 440
По умолчанию

Код:
type tdf=array of integer;// устанавливаешь длину массива + забиваешь все значения, df-массив, n- его размер
..
function max(df,n):integer;
h,i:integer;
begin
h:=abs(dff[1]);
for i:=1 to n do
if abs(a[i])>h then h:=abs(a[i]);
result:=h;
end;
bill вне форума Ответить с цитированием
Старый 19.11.2007, 21:09   #5
Absent
Пользователь
 
Регистрация: 18.11.2007
Сообщений: 67
По умолчанию

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

program chetireDBATPU;


uses
SysUtils;
type mass=array[1..100] of integer ;
var i,n,k :integer;
function NAV(y:mass):integer;
var i,n,k :integer;

begin
k:=0;
write('n=');
readln(n) ;


for i:=1 to n do
begin
if abs(y[i])>k then
k:=abs(y[i]);

end;

begin
Writeln('n=');
readln(n);
for i:=1 to n do
begin
writeln('y[',i,']=');
readln(y[i]);
end;
NAV(y:mass);
writeln('k=',k) ;
end ;
end;
end.
Absent вне форума Ответить с цитированием
Старый 19.11.2007, 21:23   #6
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Структурируйте код, в таком месиве трудно разобраться
Код:
type mass=array[1..100] of integer;
var
  i,n: integer;
  y: mass;

function NAV(n: integer; y: mass):integer;
var
  i,k :integer;
begin
  k:=abs(y[1]);
  for i:=2 to n do
    if abs(y[i])>k then k:=abs(y[i]);
  NAV:=k;
end;

begin
  Write('n='); readln(n);
  for i:=1 to n do
    begin
      write('y[',i,']='); readln(y[i]);
    end;
  writeln('max=',NAV(n,y));
  readln;
end.
_Dmitry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функция, которая пропускает выходные. jungo Microsoft Office Excel 12 25.06.2008 08:59
В каждой строке массива выбирается максимальный элемент sergeyfsd Общие вопросы Delphi 2 13.05.2008 00:10
Составить процедуру, которая в задоном массиве С заменяет элементы Absent Помощь студентам 1 25.03.2008 23:11
вычисление больших степеней по модулю - Rsa Студент Общие вопросы C/C++ 2 19.10.2007 18:28
нужна функция WinApi, которая переводит десятичное число в шестнадцатиричное??? Morskoivolk Win Api 3 02.04.2007 18:14