Решаем задачи Абрамян на Паскале. Series6

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

Решение:

program Series6;
var
  R,Pro:Real;
  i,N:Integer;
begin
  Pro:=1;
  Write('Введите N: ');
  Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     Writeln(Frac(R));
     Pro:=Pro*(Frac(R));
   end;
  Writeln(Pro);
end.

program Series6;

var

R,Pro:Real;

i,N:Integer;

begin

Pro:=1;

Write('Введите N: ');

Readln(N);

for i:=1 to N do

begin

Write('Введите ',i,' число: ');

Readln(R);

Writeln(Frac(R));

Pro:=Pro*(Frac(R));

end;

Writeln(Pro);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 3

olegst1975

16.12.2015 в 14:43

Frac (функция)
Возвращает дробную часть аргумента.
Function Frac(X : Real) : Real;

Ответить
Anton

17.12.2015 в 08:45

Поправил:
Было:

Writeln(R-Trunc(R)/1); Pro:=Pro*(R-Trunc(R));

1
2

Writeln(R-Trunc(R)/1);
Pro:=Pro*(R-Trunc(R));

Стало:

Writeln(Frac(R)); Pro:=Pro*(Frac(R));

1
2

Writeln(Frac(R));
Pro:=Pro*(Frac(R));

Ответить

begin
  var n:=ReadInteger('Введите n:');
  Println('Введите',n,'вещественных чисел:');
  var a:=ReadArrReal(n);
  a.Select(x->frac(x)).Println;
  a.Select(x->frac(x)).Aggregate(1.0,(x,y)->x*y).Println;
end.

begin

var n:=ReadInteger('Введите n:');

Println('Введите',n,'вещественных чисел:');

var a:=ReadArrReal(n);

a.Select(x->frac(x)).Println;

a.Select(x->frac(x)).Aggregate(1.0,(x,y)->x*y).Println;

end.

Ответить

Решаем задачи Абрамян на Паскале. Series6

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ