1

Здравствуйте!

Я только начала изучать Pascal. Дело очень интересное. Но вот моя задача: Мне нужно составить простую программу на нахождение максимального и минимального значения из N введенных чисел.

Вроде бы все сделала правильно. И ошибок компилятор не выдает. Но работает программа не совсем верно.

{Программа для определения максимального  и минимального значения из N введенных чисел}

program max_i_min_iz_N;

uses crt;

var N,min,max,a,i,m:integer;

BEGIN
  clrscr;

    repeat

          repeat
             write('Введите любое положительное число: '); readln(N); writeln();
          until(N>0);

          write('Введите ',N,' чисел(-а) через пробел: ');

            i:=2;

            read(a);

            max:=a;
            min:=a;

         repeat
            read(a);
            if(a>max)then max:=a else max:=max;
            if(a<min)then min:=a else min:=min;
            i:=i+1;
         until(i>N);

     writeln();
     writeln('max=',max);
     writeln('min=',min);
     writeln();

  writeln('Для продолжения программы нажмите цифру 1');
  writeln('Для завершения программы нажмите цифру 2'); writeln();
  readln(m);
  writeln();
until(m=2);
END.

Вообще программа работает правильно во всех случаях, кроме одного...

Если здесь

write('Введите ',N,' чисел(-а) через пробел: ');

пользователь вводит значение переменной N = 1, то программа все равно ждет ввода следующей переменной для сравнения.

Я понимаю, что так происходит потому, что у меня в коде прописано дважды считывание переменной a, но по-другому сделать у меня не получилось.

Если сделать так:

i:=1;
max:=a;
min:=a;
repeat 
read(a);
if(a>max)then max:=a else max:=max;
if(a<min)then min:=a else min:=min;
i:=i+1;
until(i>N);

Тогда переменной i присваиваю 1 и дополнительного значения вводить не надо, в этом плане цикл работает правильно. Но находит из введенных значений правильно только максимальное число. Минимальному присваивает 0. Интересно то, что, если программу не закрыть, а продолжить дальше, то тогда программа начинает находить минимальное и максимальное число правильно. Но не из только что введенных значений, а из всех значений, которые были введены.

Если сделать так:

i:=1;
read(a);
max:=a;
min:=a;
repeat
    if(a>max)then max:=a else max:=max;
    if(a<min)then min:=a else min:=min;
    i:=i+1;
until(i>N);

То здесь программа присваивает первое значение и max, и min, и следующие значения не сравнивает. При этом цикл на повторение программы не срабатывает. Программа просто закрывается и все. В приниципе, понятно, почему не сравнивает значения, ведь в следующем цикле учавствует только одно и то же значение переменной а, которое было введено первым. А вот почему тогда программа закрывается сама, не считывая переменную m?

В общем, я отказалась от идеи использовать только одно считывание переменной N. Но только тогда как можно сделать так, чтобы программа в случае ввода цифры 1 для переменной N все работало правильно? Может быть просто добавить для 1 конструкцию case?

Еще мне не очень нравиться i:=2; Не красиво как-то что ли. Привычнее видеть i:=1; Но если я присваиваю переменной i значение 1, то программа запрашивает для сравнения введенных значений на одно больше.

Но вообще стукаюсь глазами и не вижу, что делаю не так.

Не сочтите за труд, подскажите, пожалуйста, где я ошибаюсь.

17
  • 3
    Сразу виден восточный мужчина.
    – skegg
    3 дек 2011 в 20:10
  • 3
    Девушкам нужно изучать программирование по трем причинам - она планирует стать женой умного мужчины (программирование развивает). - она планирует хорошо воспитать детей. - ей это интересно.
    – KoVadim
    4 дек 2011 в 9:42
  • 5
    Тут стОит вопрос поставить шире: имеет ли женщина право заниматься техникой, наукой, искусством, бизнесом, вообще работать где-то или она должна только сидеть дома, готовить обеды и воспитывать детей. Программирование - один из вариантов занятий "вне дома", если конкретная женщина имеет к этому способности и желание. А программированием и многим мужчинам не стоит заниматься.
    – skegg
    4 дек 2011 в 12:26
  • 1
    Дико извиняюсь, синтаксис pascal не помню (пишу на C), но алгоритмы почти всюду одинаковы. Самое простое начать с i := 1 и поместить во внутренний repeat после read(a) if (i=1) then begin max := a; min := a; end; а дальше как у Вас написано. Во внешнем repeat напишите i := 1, а read(a), min := a и max := a выбросите. Ну, и конечно, else в if для min и max не нужны.
    – avp
    4 дек 2011 в 12:50
  • 3
    А кто сказал, что программирование именно мужское дело? Особенно учитывая то, что первым программистом была Ада Лавлейс. Я полностью согласна с @mikillskegg Нужно уметь разделять обязанности, вместе заниматься домашними делами, тогда и дом действительно превратиться в уютный семейный очаг, который создали вместе, в который хочется вернуться, в котором хочется быть. И так же согласна с тем, что нужно уважать интересы друг друга. Не спорю, у многих мужчин получается отлично программировать, но и не нужно рубить на корню желание женщин заниматься этим. 7 дек 2011 в 17:07

4 ответа 4

4

Первое, что бросается в глаза - это такие строки:

 if(a>max)then max:=a else max:=max;
 if(a<min)then min:=a else min:=min;

Их точно можно записать короче:

 if(a>max)then max:=a;
 if(a<min)then min:=a;

Функционал тот же, а глазу приятнее. Теперь перейдем к самому главному. К этому циклу

repeat
  read(a);
  if(a>max)then max:=a else max:=max;
  if(a<min)then min:=a else min:=min;
  i:=i+1;
until(i>N);

Его можно записать красивее:

while(i <= N) do begin
  read(a);
  if(a>max)then max:=a;
  if(a<min)then min:=a;
  i:=i+1;
end;

И все должно работать.

Если не нравится i := 2; то можно заменить на i := 1;, но нужно ещё одно изменение - while(i <= N) заменить на while(i < N).

3

Чтобы прога не мотала цикл, нужно вложенный Repeat заменить на While так:

            i:=1;

            Write('a = ');
            read(a);
            max:=a;
            min:=a;

            While (i<N) Do // если ввести 1, цикл работать не будет
              Begin
                Write('a = ');
                read(a);
                if(a>max)then max:=a;
                if(a<min)then min:=a;
                i:=i+1;
              End;

Или написать такое условие после первого вложенного цикла Repeat:

If (N=1) Then Break;

Но, я бы сделал так: изменил бы условие на цикле:

repeat
  write('Введите любое положительное число: '); readln(N); writeln;
until(N>1);

Сразу от пользователя ввод положительного числа требовать. Тогда и счётчику i:=1 единичку присвоить можно.

1

Еще совет: не спешите переписывать и дописывать свой код. Ошибки компиляции ищутся просто, а логические ошибки намного сложнее.

А я уж начала и case добавлять и через while и for писать программу.

Все циклы взаимозаменяемые и лучше разобраться для начала нормально хотя бы с одним:) настолько огромная программа) я бы написал так:

Program max_i_min_iz_N;
var
i, n, a, max: LongInt;
begin
   write('Введите количество чисел: ');
   readln(N);
   max := MaxLongInt;
   min := -MaxLongInt;
   for i := 1 to N do
   begin
      write('Введите ',i,'-oе число: ');
      readln(a);
      if a > max then max := a;
      if a < min then min := a;
   end;
   writeln('Max = ', max);
   writeln('Min = ', min);
end.

MaxLongInt - зарезервированная переменная во FreePascal, советую писать на нем. MaxLongInt = 2147483648 - максимальное число, которое влазит в тип LongInt FreePascal может испугать досовским окошком, по сравнению с ABC:) но в нем можно выделять намного больше памяти.. Если кратко, то Pascal ABC для детей:)

1
  • забыл в конце readln; но не суть:)
    – pisarik
    1 фев 2012 в 10:56
0

@avp, благодарю за дельный совет! Действительно, все гениальное просто :) Добавлена всего одна строчка => и программа работает как надо :) А я уж начала и case добавлять и через while и for писать программу. Оказывается ответ лежал на поверхности :) Еще раз Вам огромное спасибо и удачи Вам, @avp !

2
  • И Вам, Елена, успехов и множества victory.
    – avp
    7 дек 2011 в 18:57
  • Как же эти victory особенно нужны мне сейчас:) Спасибо за пожелание :) 7 дек 2011 в 19:22

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.