Задачка на Паскале

Тема в разделе "Delphi - FAQ", создана пользователем InviZible, 13 сен 2006.

Статус темы:
Закрыта.
  1. InviZible

    InviZible Гость

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

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

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

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

    and75 Гость

    А что сложного?
    Вводим с консоли n, затем к цикле от 1 до n вводим действительные числа...
    В процессе ввода проверяем счетчик на четность (i mod 2 =0) и сравниваем числа для нахождения максимального... (if MaxEl < A then MaxEl:=A)
    Ну примерно так....

    Readln(n);
    MaxEl:=-99999999999 // Выбираем какое то заведомо маленькое число.... Оно может быть и другим
    For i:=1 to n do
    begin
    Readln(A);
    if (i mod 2) = 0 then
    if MaxEl < A then MaxEl:=A;
    end;

    Writeln(MaxEl);
     
  3. InviZible

    InviZible Гость

    and75, спасибо. Я не мог понять как сравнивать a1....an между собой

    Код (Text):
    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.
    Если кому надо.
     
Загрузка...
Похожие Темы - Задачка на Паскале
  1. Hehabr
    Ответов:
    1
    Просмотров:
    486
  2. Gepard26
    Ответов:
    0
    Просмотров:
    1.114
  3. lisica198808
    Ответов:
    0
    Просмотров:
    1.018
  4. student55
    Ответов:
    1
    Просмотров:
    1.711
  5. vbs
    Ответов:
    21
    Просмотров:
    7.506
Статус темы:
Закрыта.

Поделиться этой страницей