VPF::Минимальный элемент массива. - Форум программистов

MIRINA

Дата 21.2.2008, 16:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Минимальный элемент массива не выводится.И ответ, естественно, тоже.Что-то не так.Что?
Решение:

Код


uses crt;
const k=2;m=3;n=4;
var a:array [1..k] of real;
b:array[1..m] of real;
c:array[1..n] of real;
var F:real;
Function min (var mas:array of real):real;
var min:real;
var i:integer;
begin
min:=mas[1];
for i:=1 to high(mas) do
begin
if (mas[i]<=min) then min:=mas[i]; end; end;

Procedure ReadArray(mas:array of real);
var i:integer;
begin
for i:=0 to high (mas) do
begin
readln (mas[i]); end; end;

begin clrscr;
writeln ('Eto massiv a:');
ReadArray(a);
writeln ('mina=',min(a));
writeln ('Eto massiv b:');
ReadArray(b);
writeln ('minb=',min(b));
writeln ('Eto massiv c:');
ReadArray©;
writeln ('minc=',min©);
if  ABS(min(a))>10 then
F:=min(b)+min© else 
F:=1+(min©*min©);
write (F:5:3);
readln; end.

Задание:
F= (min(b1..bm)+min(c1..cn),если |min (a1..ak)|>10) / (1+(min (c1..cn)*min (c1..cn)), если |min (a1..ak|<=10))

Это сообщение отредактировал(а) volvo877 - 21.2.2008, 18:02

volvo877

Дата 21.2.2008, 18:08 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Может, лучше так:

Код


Function min (var mas:array of real):real;
var
  value: real; { <-- Не надо пользоваться одинаковыми именами }
  i: integer;
begin
  value := mas[0]; { <-- С нуля, а не с единицы индексируется open array }
  for i:=1 to high(mas) do begin
    if (mas[i] <= value) then value := mas[i];
  end;
  min := value;
end;

mmvds

Дата 21.2.2008, 18:20 (ссылка)

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

Загрузка ...

Бывалый

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

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

И еще:

Код


Procedure ReadArray(mas:array of real);
var i:integer;
begin
for i:=0 to high (mas) do
begin
readln (mas[i]); end; end;

High(mas)возвращает 0, до того как ввели значения массива, оно равно 0

MIRINA

Дата 22.2.2008, 10:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(mmvds @ 21.2.2008, 18:20)

И еще:

Код


Procedure ReadArray(mas:array of real);
var i:integer;
begin
for i:=0 to high (mas) do
begin
readln (mas[i]); end; end;

High(mas)возвращает 0, до того как ввели значения массива, оно равно 0

А to ... (до чего?) тогда надо писать?

Bug_Hunter

Дата 22.2.2008, 11:12 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 19.2.2008
Где: Бл. Подмосковье

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

Цитата(MIRINA @ 22.2.2008, 10:24

)

А to ... (до чего?) тогда надо писать?

Не слушай его - до чего у тебя правильно написано.

А вот тут:

Код


Procedure ReadArray(mas:array of real);

Надо писать так:

Код


Procedure ReadArray(var mas:array of real);

mmvds

Дата 22.2.2008, 15:04 (ссылка)

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

Загрузка ...

Бывалый

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

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

пошел убиваться smile

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