Последовательности, Паскаль

Абай · 12.06.2011, 21:49

Series6. Дано целое число N и набор из N положительных вещественных
чисел. Вывести в том же порядке дробные части всех чисел из данно-
го набора (как вещественные числа с нулевой целой частью), а также
произведение всех дробных частей.

Vladimir_S · 13.06.2011, 10:30

Цитата:

Сообщение от Абай

Series6. Дано целое число N и набор из N положительных вещественных
чисел. Вывести в том же порядке дробные части всех чисел из данно-
го набора (как вещественные числа с нулевой целой частью), а также
произведение всех дробных частей.

Код:

CONST
 N=10;
VAR
 A:Array[1..N] of Extended;
 P:Extended;
 i:Integer;
BEGIN
 Randomize;
 P:=1;
 For i:=1 to N do
  begin
   A[i]:=Random*100;
   Write(A[i]:7:3);
   P:=P*Frac(A[i]);
  end;
 Writeln;
 Writeln;
 For i:=1 to N do
  Write((A[i]-1.0*Trunc(A[i])):7:3);
 Writeln;
 Writeln;
 Writeln('Product = ',P:20:18);
 readln
END.

12.06.2011, 21:49	#1 (permalink)
Абай Member Регистрация: 03.06.2011 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Последовательности, Паскаль Series6. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке дробные части всех чисел из данно- го набора (как вещественные числа с нулевой целой частью), а также произведение всех дробных частей.

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

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