VPF::Задача на Паскале - Форум программистов

InviZible

Дата 13.9.2006, 22:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Самостоятельно изучаю Паскаль и решаю задачи. Забуксовал на этой задачке:

================
Даны натуральное число n, действительные числа А1, ..., Аn. Получить max (A2, A4, ...)
================

Массив использовать нельзя.
Интересует сам код.
У меня много таких однотипных задач. Нет ли где решений этих задач? Гугл не помог =(

Заранее спасибо.

Sartorius

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

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

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

Лучше чем искать решение через Гугл самому немножко подумать... Храни максимальное из всех введенных чисел и при вводе каждого последующего четного сравнивай с ним - заменяй если больше

Это сообщение отредактировал(а) Sartorius - 14.9.2006, 00:23

volvo877

Дата 14.9.2006, 08:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Sartorius @ 14.9.2006, 00:23

)

при вводе каждого последующего четного

Не совсем... При вводе каждого последующего числа с четным порядковым номером...

InviZible

Дата 16.9.2006, 18:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всё, реализовал.

Код

Program maxik;
Uses
 Crt;
Var
 n,i:integer;
 a,max:real;
Begin
 ClrScr;
 WriteLn('Let''s go');
 max:=-999999999;
 i:=0;

 WriteLn('Enter the n. Only natural numbers');
 ReadLn(n);

 for i:=1 to n do
  begin
   WriteLn('Enter a');
   ReadLn(a);
   if (i mod 2) = 0 then
    begin
     if Max < a then
      Max:=a;
    end;
  end;

  WriteLn(Max);

  WriteLn('Successful!');
  ReadLn;

End.

Это сообщение отредактировал(а) volvo877 - 16.9.2006, 23:28

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