VPF::нужна помощ програма почти закончена

33artem

Дата 24.5.2009, 16:48 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 24.5.2009

Репутация: нет
Всего: нет

тема лабораторной:Дан массив Х(178). Вычислить разность между максимальным и минимальным по модулю элементами этого массива.
програма почти готова но проблема вот в чем не выберается максимальный и минимальный по модулю элемент

Код

uses crt;
const
n=10;
 var
 a:array[1..n]of real;
 min,max,rezult:real;
 i: integer;
 begin
 clrscr;
 randomize;
 writeln('ishodniy massiv');
 i:=1;
 repeat
 a[i]:=random(178)+random;
 if random >0.5 then a[i]:=-a[i];
 writeln(a[i]:3:3,' ');
 inc(i);
 until(i>n);
 for i:=1 to n do
 min:=abs(a[i]);
 max:=abs(a[i]);
 if abs(a[i])<min then { вот в этом месте ошибка я не знаю как записать в програме выбор мак и мин массива по модулю }
 if abs(a[i])>max then
 max:=abs(a[i]); 
writeln('makcemalniy po modyly element ',max);
  writeln('minimaliniy po modyly element ',min);
 rezult:=max-min;
 writeln('pazniza mezdy makcimalnym i minimalnym pavna',rezult);
 end.

Это сообщение отредактировал(а) volvo877 - 29.5.2009, 00:59

I_Am_Rock

Дата 24.5.2009, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: нет
Всего: 15

Код

uses crt;
const
n=10;
 var
 a:array[1..n]of real;
 rezult:real;
 min,max:integer;
 i: integer;
 begin
 clrscr;
 randomize;
 writeln('ishodniy massiv');
 i:=1;
 repeat
 a[i]:=random(178)+random;
 if random >0.5 then a[i]:=-a[i];
 writeln(a[i]:3:3,' ');
 inc(i);
 until(i=n);
 min:=1;
 max:=1;
 for i:=2 to n-1 do begin
 if abs(a[i])>abs(a[max]) then max:=i;
 if abs(a[i])<abs(a[min]) then min:=i;
 end;
 writeln('makcemalniy po modyly element ',a[max]:3:3);
 writeln('minimaliniy po modyly element ',a[min]:3:3);
 rezult:=a[max]-a[min];
 writeln('pazniza mezdy makcimalnym i minimalnym pavna',rezult:3:3);
 readkey;
 end.

Заметь - разница вычисляется не мужду "модульными" максимумом и минимумом. Если что - добавь где надо abs.
smile

Это сообщение отредактировал(а) volvo877 - 29.5.2009, 01:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »