Технический форум - Помогите написать программу на Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите написать программу на Паскале (http://www.tehnari.ru/f41/t88212/)

Алинkа

12.05.2013 21:34

Помогите написать программу на Паскале

помогите написать прогу в паскале:

Пусть вводится последовательность из вещественных чисел

, оканчивающаяся нулем.

Найдите номер большего числа из двух наименьших чисел последовательности.

Vladimir_S

12.05.2013 22:26

Цитата:

Сообщение от Алинkа (Сообщение 907149)

помогите написать прогу в паскале:

Пусть вводится последовательность из вещественных чисел

, оканчивающаяся нулем.

Найдите номер большего числа из двух наименьших чисел последовательности.

Извольте:

Код:

Var

 a,b1,b2:real;

 i,i1,i2:Integer;



Begin

 i:=1;

 i1:=i;

 write(i:3,':  ');

 readln(b1);

 b2:=1.7E308;

 Repeat

  Inc(i);

  Write(i:3,':  ');

  readln(a);

  If a<>0 then

   begin

    If a<b1 then

     begin

      b2:=b1;

      i2:=i1;

      b1:=a;

      i1:=i;

     end

    else

    If a<b2 then

     begin

      b2:=a;

      i2:=i;

     end;

   end;

 Until a=0;

 Writeln('Minimals: NN ',i1,' and ',i2,' equal to ',b1:0:3,' and ',b2:0:3);

 Writeln('Largest of them is N ',i2,' equal to ',b2:0:3);

 Readln

End.

Алинkа

12.05.2013 22:32

благодарю)

Алинkа

12.05.2013 22:56

Цитата:

Сообщение от Vladimir_S (Сообщение 907180)

Извольте:

Код:

Var

 a,b1,b2:real;

 i,i1,i2:Integer;

 

Begin

 i:=1;

 i1:=i;

 write(i:3,':  ');

 readln(b1);

 b2:=1.7E308;

 Repeat

  Inc(i);

  Write(i:3,':  ');

  readln(a);

  If a<>0 then

   begin

    If a<b1 then

     begin

      b2:=b1;

      i2:=i1;

      b1:=a;

      i1:=i;

     end

    else

    If a<b2 then

     begin

      b2:=a;

      i2:=i;

     end;

   end;

 Until a=0;

 Writeln('Minimals: NN ',i1,' and ',i2,' equal to ',b1:0:3,' and ',b2:0:3);

 Writeln('Largest of them is N ',i2,' equal to ',b2:0:3);

 Readln

End.

что значит вот это=> b2:=1.7E308;

Vladimir_S

12.05.2013 23:07

Цитата:

Сообщение от Алинkа (Сообщение 907201)

что значит вот это=> b2:=1.7E308;

А просто самое-самое большое число из допускаемых форматом Real. Можно и другое, заведомо бОльшее первых вводимых чисел.

Часовой пояс GMT +4, время: 00:40.