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

Автор: Bronislav

Bronislav — Tue, 20 Feb 2018 12:03:54 +0000

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.

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.

Автор: Anton

Anton — Thu, 17 Dec 2015 04:41:07 +0000

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

Writeln(Trunc(R)/1);

1	Writeln(Trunc(R)/1);

Стало:

Writeln(int(R));

1	Writeln(int(R));

Автор: olegst1975

olegst1975 — Wed, 16 Dec 2015 10:23:49 +0000

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

Автор: Anton

Anton — Fri, 26 Dec 2014 03:15:37 +0000

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

Автор: Кирилл

Кирилл — Thu, 25 Dec 2014 19:23:31 +0000

Просто 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.

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.