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

Автор: Anton

Anton — Mon, 04 Apr 2016 09:02:04 +0000

В ответ на olegst1975. чуть подумал.. решил, что всё таки это может быть тем, что подразумевал автор задачи:)

Автор: Anton

Anton — Wed, 20 Jan 2016 05:12:33 +0000

Точно строка 45:
i:=i-RezMinNum-RezMaxNum-1;
это i после счётчика! то есть у меня в Delphi там i+1 элементов, а в другом компиляторе может быть i элементов.
В общем надо запомнить, что этим пользоваться нельзя.

Было:

 i:=i-RezMinNum-RezMaxNum-1;

1	i:=i-RezMinNum-RezMaxNum-1;

Исправил на

i:=N-RezMinNum-RezMaxNum;

1	i:=N-RezMinNum-RezMaxNum;

Автор: Anton

Anton — Wed, 20 Jan 2016 05:08:37 +0000

надо читать вместе с 47 🙂

if i<>0 then writeln(Sum/i)
   else writeln(0);

1 2	if i<>0 then writeln(Sum/i) else writeln(0);

Если кол-во элементов, кроме экстремумов 0, то выводится 0. Иначе бы было деление на 0, а это в паскале очень плохо. 🙂

Автор: Anton

Anton — Wed, 20 Jan 2016 05:05:10 +0000

В ответ на olegst1975. ээ... при таких параметрах моя программа выдаёт так : 5,13 И у вас вроде тоже %) Компилирую всё, на Delphi 7.

Автор: olegst1975

olegst1975 — Tue, 19 Jan 2016 12:36:47 +0000

Да, почему ноль в строке 48 ?

Автор: olegst1975

olegst1975 — Tue, 19 Jan 2016 12:34:26 +0000

В строку 45 к виду i:=i-RezMinNum-RezMaxNum; — ?? Про повторяющиеся экстремумы..Скорее Вы правы, но «…минимальное и максимальное ..», а не -льные, плюс вещественные числа увели на путь упрощения

Автор: olegst1975

olegst1975 — Tue, 19 Jan 2016 12:26:56 +0000

Исходные данные N = 5 6.53 2.15 2.30 9.20 6.56 Полученные результаты 7.69

Автор: Anton

Anton — Tue, 19 Jan 2016 10:52:19 +0000

А можно привести пример, где не совпадают?
На тех примерах, которые придумал я, с вашей коррекцией задания :). У нас ответы получаются одинаковые..

У меня как раз программа написана, что бы учитывать повторяющиеся min и max. Поэтому она такая и большая, RezMaxNum и RezMinNum считают сколько максимумов и минимумов было, чтоб потом столько же вернуть если это оказался не экстремум…
А не учитывать это … наверно всё таки не соответствует заданию…

Автор: olegst1975

olegst1975 — Tue, 19 Jan 2016 10:18:05 +0000

Ваше решение ниасилил). Ниже приведу свое, но, что характерно, результаты у нас не совпадают. Без учета, что максимумы и минимумы могут повторяться. Отбрасываю лишь 2 числа из условия "…минимальное и максимальное из имеющихся..".

[crayon-699905fcdfc45671336269 inline="true" ]
var
  n,i:integer;
  k,min,max, mean:real;
begin  
  read(n);
  read(k);
  min:=k;
  max:=k;
  mean:=k; //среднее арифм. 
  for i:=2 to n do
    begin
      read(k);
      if k<min then min:=k;       
      if k>max then max:=k;      
      mean:=mean+k; 
    end;
mean:=(mean-min-max)/(n-2);
//if min=max then mean:=k;//если все цифры одинаковы - !!лишнее
write(mean);
end.

[crayon-699905fcdfc45671336269 inline="true" ]

var

n,i:integer;

k,min,max, mean:real;

begin

read(n);

read(k);

min:=k;

max:=k;

mean:=k; //среднее арифм.

for i:=2 to n do

begin

read(k);

if k<min then min:=k;

if k>max then max:=k;

mean:=mean+k;

end;

mean:=(mean-min-max)/(n-2);

//if min=max then mean:=k;//если все цифры одинаковы - !!лишнее

write(mean);

end.

[/crayon]