VPF::[Pascal] Определение наибольших чисел последоват.

Teranse

Дата 22.7.2009, 00:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Заранее спасибо
Задача на тему циклов While, Repeat
Вводится последовательность целых чисел, 0- конец последовательности. Найти 2 наибольших числа

mr.Anderson

Дата 22.7.2009, 12:00 (ссылка)

(голосов:1)

Загрузка ...

iOS Lead Developer

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

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

Как-то так. Сразу говорю, решение вряд ли эффективное, наверняка можно придумать эффективнее и короче. Я привел то, что первое в голову пришло, "напролом", скажем так. И не проверял, но по идее должно работать.

Код


program MySequence;
var
  N, I: Integer;
  Max1, Max2, Temp: Integer;
  A: Array Of Integer;
begin
  N := -1;
  SetLength(A, 0);
  while N <> 0 do
  begin
    Write('Enter number: ');
    ReadLn(N);
    if N = 0 then
      break;
    SetLength(A, High(A) +2);
    A[High(A)] := N;
  end;
  // проверим, есть ли числа
  if not Assigned(A[0]) then
    exit;
  // ищем первый максимум
  Max1 := A[0];
  for I := Low(A) to High(A) do
    if A[I] > Max1 then
    begin
      Max1 := A[I];
      Temp := I;
    end;
  A[Temp] := -32768; // уберем этот элемент из анализа
  // найдем второй максимум
  Max2 := A[0];
  for I := Low(A) to High(A) do
    if A[I] > Max2 then
      Max2 := A[I];
  // выведем
  WriteLn('First maximum: ', Max1);
  WriteLn('Second maximum: ', Max2);
end.

Это сообщение отредактировал(а) mr.Anderson - 22.7.2009, 12:02

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

volvo877

Дата 22.7.2009, 12:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(mr.Anderson @ 22.7.2009, 12:00

)

по идее должно работать.

Смотря чем компилировать. TP это не возьмет... Вот это:

Код


const
  maxs: array[1 .. 2] of integer = (-maxint, -maxint);
var
  X: integer;
begin
  repeat
    write('value = '); readln(x);
    if X <> 0 then begin
      if X > maxs[1] then begin
        maxs[2] := maxs[1]; maxs[1] := X;
      end
      else
        if X > maxs[2] then maxs[2] := X;
    end;
  until X = 0;
  writeln(maxs[1]:10, maxs[2]:10);
end.

должно работать везде. Проверялось в FPC...

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