Комментарии: Решаем задачи Абрамян на Паскале. Minmax8

Автор: Anton

Anton — Fri, 25 Nov 2016 16:25:31 +0000

В ответ на Olga. дело в том, что до понедельника у меня нет винды, в контексте VBA у меня нет компилятора. Я вот такое набросал в блокноте... http://coolcode.ru/reshaem-zadachi-abramyan-na-visual-basic-minmax8/ но будет ли оно компилироваться большой вопрос. :)

Автор: Olga

Olga — Fri, 25 Nov 2016 15:59:34 +0000

В ответ на Anton. мне бы завтра сдать(

Автор: Anton

Anton — Fri, 25 Nov 2016 15:49:39 +0000

В ответ на Olga. Надеюсь до понедельника терпит?

Автор: Olga

Olga — Fri, 25 Nov 2016 15:40:44 +0000

А можно решение этой задачи, только в VBA?

Автор: Newton

Newton — Sun, 13 Nov 2016 10:38:28 +0000

Почти такое же решение с небольшими перестановками:

program MinMax8;

// ---------------------------------- Begin of procedure Quit 
Procedure Quit;
begin
   writeln;
   writeln;
   writeln('Press Enter to Quit');
   readln;
   writeln;
end;
// ----------------------------------- End of procedure Quit 

const
   RandLimit = 5;

var
   Number, Counter, FirstMinNum, LastMinNum : byte;
   Foo, Min                                 : integer;

begin
   write('Enter the number of elements: ');
   readln(Number);
   for Counter := 1 to Number do
      begin
         Foo := random(RandLimit);
         writeln(Counter :2, '.', Foo :5);
         if Counter = 1 then 
            begin
               Min         := Foo;
               FirstMinNum := Counter;
               LastMinNum  := Counter;
            end
         else
            begin
               if Foo < Min then
                  begin
                     Min         := Foo;
                     FirstMinNum := Counter;
                     LastMinNum  := Counter;
                  end
               else 
                  if Foo = Min then
                     LastMinNum := Counter;
            end;
      end;
   writeln;
   writeln('The number of the first min element is: ', FirstMinNum);
   writeln('The number of the last min element is: ', LastMinNum);
   Quit;
end.

program MinMax8;

// ---------------------------------- Begin of procedure Quit

Procedure Quit;

begin

writeln;

writeln('Press Enter to Quit');

readln;

writeln;

end;

// ----------------------------------- End of procedure Quit

const

RandLimit = 5;

var

Number, Counter, FirstMinNum, LastMinNum : byte;

Foo, Min : integer;

begin

write('Enter the number of elements: ');

readln(Number);

for Counter := 1 to Number do

begin

Foo := random(RandLimit);

writeln(Counter :2, '.', Foo :5);

if Counter = 1 then

begin

Min := Foo;

FirstMinNum := Counter;

LastMinNum := Counter;

end

else

begin

if Foo < Min then

begin

Min := Foo;

FirstMinNum := Counter;

LastMinNum := Counter;

end

else

if Foo = Min then

LastMinNum := Counter;

end;

writeln;

writeln('The number of the first min element is: ', FirstMinNum);

writeln('The number of the last min element is: ', LastMinNum);

Quit;

end.

Автор: Anton

Anton — Tue, 17 Nov 2015 04:02:14 +0000

В ответ на Z. Рад помочь.

Автор: Z

Tue, 17 Nov 2015 03:53:53 +0000

Теперь понятно, спасибо.

Автор: Anton

Anton — Wed, 11 Nov 2015 08:17:04 +0000

В ответ на Z. Мда запутанно немного... Дело в том что элементы в наборе не уникальны, тоесть могут повторяться. Например: (1,2,1,2,3,3,1) В этом наборе значение минимального элемента 1. Он встречается первый раз в начале набора и последний в конце. Тоесть ответ в нашем задании 1 и 7.

Автор: Z

Wed, 11 Nov 2015 08:02:16 +0000

Не могу понять само значение фразы «Первое/последнее минимальное/максимальное число». Я так понял, в коде к последнему добавляется знак «=» в условии, но не знаю почему.