VPF::одномерный массив и "0" - Форум программистов

KupaL

Дата 12.12.2006, 19:15 (ссылка)

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

Загрузка ...

Новичок

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

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

дан одномерный массив вещественных чисел, среди которых имеется один ноль. Вывести на экран все числа до нуля включительно. подскажите как решать.

volvo877

Дата 12.12.2006, 19:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

Проходить в цикле (лучше Repeat/Until, если включительно) по массиву и печатать каждый элемент до тех пор, пока не встретится ноль...

Код


i := 0;
repeat

  inc(i);
  write(a[i]);

until Abs(a[i]) < 0.00001; { <--- Вещественные числа небезопасно сравнивать с нулем напрямую }

Zero

Дата 12.12.2006, 23:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата(volvo877 @ 12.12.2006, 20:31

)

Вещественные числа небезопасно сравнивать с нулем напрямую

Незнаю на сколько это опасно, но только что, запустил этот код:

Код


var
  a:array[1..10] of real;
  i:integer;
Begin
  randomize;
  for i:=1 to 10 do
    a[i] := random*random(50);

  a[7] := 0;

  i :=1;
  while true do
    begin
      write(a[i],' ');
      inc(i);
      if a[i]=0 then break
    end;
End.

Незколько раз запустил, стабильно по шесть значений выдаёт. smile

Добавлено @ 23:30

Цитата(volvo877 @ 12.12.2006, 20:31

)

лучше Repeat/Until, если включительно

Помоему это имелось ввиду, что включаются все числа до нуля, а не включая ноль. smile

Логически, если он ноль, то его и так можно вывести, необязательно из массива.

LesnoyChelovek

Дата 13.12.2006, 03:52 (ссылка)

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

Загрузка ...

странник Интернета

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

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

Предлагаю ещё такой способ:

Код


program Project2;
var a:array[1..100] of real;
    i:integer;

{$APPTYPE CONSOLE}

begin
  { TODO -oUser -cConsole Main : Insert code here }
randomize;
for i:=1 to 100 do
a[i]:=random;

for i:=1 to 100 do
begin
  write(a[i]:4:4,' ');
  if a[i]=0 then break;
end;

readln;
end.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

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