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

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

Решение:

program Series5;

var

R,Sum:Real;

i,N:Integer;

begin

Sum:=0;

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

Readln(N);

for i:=1 to N do

begin

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

Readln(R);

Writeln(int(R));

Sum:=Sum+Trunc(R);

end;

Writeln(Sum);

end.

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

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

Просто trunc даст перевод в integer, отбросив дробную часть, а требуется вещественный вывод с двумя нулями в дробной части (6.00, 12,00)

uses PT4;

var n,i:integer;

var k,sum:real;

begin

Task('Series5');

read(n);

for i:=1 to n do

begin

read(k);

write(trunc(k)+0.00);

sum:=sum+trunc(k);

end;

write(sum + 0.00);

end.

Ответить

Anton

26.12.2014 в 07:15

Изменил код… Не вижу в задании, что бы надо было выводить именно два нуля. Поэтому в выводе целых частей разделил целую часть на 1.

Ответить
olegst1975

16.12.2015 в 14:23

Функция Int()
Возвращает целую часть параметра.
Function Int(X : Real) : Real;

Ответить
- Anton
  
  17.12.2015 в 08:41
  
  Поправил:
  Было:
  
  Writeln(Trunc(R)/1);
  
  1
  
  Writeln(Trunc(R)/1);
  
  Стало:
  
  Writeln(int(R));
  
  1
  
  Writeln(int(R));
  
  Ответить

begin

var n:=ReadInteger('Введите количество чисел в наборе:');

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

var a:=ReadArrReal(n);

a.Transform(x->int(x));

for var i:=0 to n-1 do

write(a[i]:0:2,' ');

writeln(NewLine,'Sum = ',a.Sum);

end.

Ответить

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

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

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

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