помогите с программой на Object Paskal Опции

В компьютер вводится N вещественных чисел. Составить программу, выдающую на экран сумму наименьшего и наибольшего из них.

В компьютер вводится N вещественных чисел. Составить программу, выдающую на экран сумму наименьшего и наибольшего из них.

Это в каком классе такие страшные задачи задают?

Это 2-ой курс универа....

Это 2-ой курс универа....

:D Держи.

Код

program SumMinMax;

var
  n, i: integer;
  d, min_d, max_d: double;

begin
  min_d := 0;
  max_d := 0;
  write('N? ');
  read(n);
  for i := 1 to n do begin
    write('D', i, '? ');
    read(d);
    if (d < min_d) or (i = 1) then min_d := d;
    if (d > max_d) or (i = 1) then max_d := d;
  end;
  writeln('SUM Min_D + MaxD = ', min_d + max_d);

end.

Nickolai, а так прикольней

Код

program SumMinMax;

var
  n, i: integer;
  d, min_d, max_d: double;

begin
  write('N? ');
  read(n);
  if n > 1 then
   begin
    write('D', 1, '? ');
    read(d);
    min_d := d;
    max_d := d;
    for i := 2 to n do begin
     write('D', i, '? ');
     read(d);
     if (d < min_d) then min_d := d;
     if (d > max_d) then max_d := d;
    end;
    writeln('SUM Min_D + MaxD = ', min_d + max_d);
   end
  else  writeln('Error N');

end.

Nickolai, а так прикольней

Код

program SumMinMax;

var
  n, i: integer;
  d, min_d, max_d: double;

begin
  write('N? ');
  read(n);
  if n > 1 then
   begin
    write('D', 1, '? ');
    read(d);
    min_d := d;
    max_d := d;
    for i := 2 to n do begin
     write('D', i, '? ');
     read(d);
     if (d < min_d) then min_d := d;
     if (d > max_d) then max_d := d;
    end;
    writeln('SUM Min_D + MaxD = ', min_d + max_d);
   end
  else  writeln('Error N');

end.

Не согласен. Кода больше, а функциональность та-же.
Случай, когда n<=0, я думаю даже препод не рассматривает, не говоря уже о студнях.

Не согласен. Кода больше, а функциональность та-же.

А работает быстрее :D а если числа не с клавиатуры, а по сеточке лезут и мульёнами

Случай, когда n<=0, я думаю даже препод не рассматривает, не говоря уже о студнях.

Он - то гад не рассматривает, а должен, детей сразу надо правильно учить, а то потом плодят быдлокод ... типа юзер всё равно сюда не ткнёт, а юзер он такой, изобретательный :D

Не согласен. Кода больше, а функциональность та-же.

А работает быстрее :D а если числа не с клавиатуры, а по сеточке лезут и мульёнами

Случай, когда n<=0, я думаю даже препод не рассматривает, не говоря уже о студнях.

Он - то гад не рассматривает, а должен, детей сразу надо правильно учить, а то потом плодят быдлокод ... типа юзер всё равно сюда не ткнёт, а юзер он такой, изобретательный :D

:D Согласен. При N=>к_бесконечности работать будет быстрее. Но код стал более громоздкий и избыточный.

Для студня главнее, чтобы буковок поменьше было, чтобы меньше ошибок при перепечатке сделать.
Так что свой вариант считаю более подходящим для данного случая. :D

Сообщение отредактировал Nickolai - 25.6.2010, 14:05

Для студня главнее, чтобы буковок поменьше было, чтобы меньше ошибок при перепечатке сделать.

Балуете их, а потом СуперПуперы с пятнадцатилетним стажем по форумам бегают и КИСы для госконтор на ацессе рисуют

Для студня главнее, чтобы буковок поменьше было, чтобы меньше ошибок при перепечатке сделать.

Балуете их, а потом СуперПуперы с пятнадцатилетним стажем по форумам бегают и КИСы для госконтор на ацессе рисуют

С чего-то им все равно начинать нужно.
Куда страшнее преподы, которые сами не в зуб ногой.
Частенько вообще не понимают смысла того, что преподают.

А выбор СуперПупера, думаю, определяется черезмерной любовью к МС. :D

Согласен. При N=>к_бесконечности работать будет быстрее.

Кстати, нужно Орлушу попросить потестить при каких N разница будет существенной, любит он это дело :D заменит инт на суперлонг :D напишет скриптик, тамингов наставит и погоняет пару суток на каком-нибудь спарке под виндами и солярками

Согласен. При N=>к_бесконечности работать будет быстрее.

Кстати, нужно Орлушу попросить потестить при каких N разница будет существенной, любит он это дело :D заменит инт на суперлонг :D напишет скриптик, тамингов наставит и погоняет пару суток на каком-нибудь спарке под виндами и солярками

Да, интересно.
Думаю, что на получение данных из файла/сети ресурсов гораздо больше используется, чем на этот расчет. :D

Всем, конечно, спасибо огромное!!! Еще бы опять проканало, а то моему преподу ничего не нравиться, уже скидывала одЫн код - забраковала. А по поводу обучения, то у нас установочную провели, задание дали и делайте как хотите, а если я в этот не бум-бум, то что я могу сделать!!! <_<

Согласен. При N=>к_бесконечности работать будет быстрее.

Кстати, нужно Орлушу попросить потестить при каких N разница будет существенной, любит он это дело :D заменит инт на суперлонг :D напишет скриптик, тамингов наставит и погоняет пару суток на каком-нибудь спарке под виндами и солярками

Не слишком люблю, но бывало и такое, когда диднотменеджер™ баранил вместо работы... :lol:

А исследовать разницу в таймингах в зависимости от алгоритма и параметров -- отличная курсовая по программированию для студента профильной специальности курсе на втором-третьем.

orlusha, помнится в далёкой юности ваще без таймингов прямо по коду высчитывали и спорили какой командой лучше регистр обнулять, типа ксором, прямым занисением нуля и тд .... эх молодость - молодость, а тайминговали и моделировали СМО, интересно было

Kukolka, а Вы ей оба варианта и разницу между ними расскажите и будет Вам счастье :D

orlusha, помнится в далёкой юности ваще без таймингов прямо по коду высчитывали и спорили какой командой лучше регистр обнулять, типа ксором, прямым занисением нуля и тд .... эх молодость - молодость, а тайминговали и моделировали СМО, интересно было

Было, было... :D И начало умирать с появлением у массовых процессоров больших кэшей и хитрых конвейеров -- ЕМНИП на второпнях и К6...

Кстати, УВАЖАЕМЫЕ ГОСПОДА ПРОГРАММИСТЫ, как вы можете прокомментировать на это задание следующий код???
Код:
program hh;
uses crt;
const n=10;
var
a:array[1..n] of integer;
min, max, i, s:integer;
begin
clrscr;
for i:=random (50)-10;
write (a[i]:3);
end;
writeln;

begin
max:=a[1];
for i:=1 to n do begin
if max<a[i] then
max i=a[i];
end;
write (`max=`,max);
end;
writeln;
begin
min:=a[1];
for i:=1 to n do begin
if a[i]<min then
min:=a[i];
end;
write (`min=`,min);
end;
writeln;

s:=0;
begin
s:=min+max;
end;
write (`s=`,s);
end.

Ужасть, наверно СуперПупер помогал писать
А где страшные вещественные числа в принципе :D

Nickolai, вот Вам Ваша забота о студентах ... а то код ему избыточный

Kukolka
Я бы как преподаватель прицепился к тому, что без должной необходимости манипуляции с данными чередуются со вводом-выводом. Это нерационально во всех отношениях, хотя в данном случае может и не быть криминалом.

uses crt и clrscr здесь в принципе излишни и очень сильно ухудшают переносимость программы (например, на fp на линукс под какой-нибудь примитивный терминал типа последовательного порта). Выкинуть к лешему.

В отношении времени исполнения -- Ваша программа будет исполняться примерно вдвое дольше, чем программы, приведённые коллегами: два последовательных цикла вместо одного -- по классическим воззрениям, криминал. (Хотя на два процессора по OpenMP проще распараллелить Вашу программу, а не их решения. :D)

:+: :+: :+: