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

Алинkа · 12.05.2013, 21:34

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

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

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

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

Vladimir_S · 12.05.2013, 22:26

Цитата:

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

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

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

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

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

Извольте:

Код:

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

Извольте:

Код:

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а

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

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

12.05.2013, 21:34	#1 (permalink)
Алинkа Новичок Регистрация: 12.05.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать программу на Паскале помогите написать прогу в паскале: Пусть вводится последовательность из вещественных чисел , оканчивающаяся нулем. Найдите номер большего числа из двух наименьших чисел последовательности.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

12.05.2013, 21:34
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Темы уже встречались, ознакомьтесь с информацией которую они содержат Помогите написать программу в Паскале Помогите написать программу на Паскале Помогите написать программу в паскале

12.05.2013, 22:32	#3 (permalink)
Алинkа Новичок Регистрация: 12.05.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	благодарю)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070