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

For13. Дано целое число $$N$$ ($$> 0$$). Найти значение выражения $$1.1 — 1.2 + 1.3 — …$$ ($$N$$ слагаемых, знаки чередуются). Условный оператор не использовать.

Решение:

program For13;
var
  N, i,k :Integer;
  Rez:Real;
begin
  Write('Введите N: ');
  Readln(N);
  rez:=0;
  k:=-1;
  For i:=1  to N do
   begin
    k:=k*(-1);
    Rez:=Rez+k*(1+0.1*i);
   end;
  Writeln(Rez);
end.

program For13;

var

N, i,k :Integer;

Rez:Real;

begin

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

Readln(N);

rez:=0;

k:=-1;

For i:=1 to N do

begin

k:=k*(-1);

Rez:=Rez+k*(1+0.1*i);

end;

Writeln(Rez);

end.

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

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

program For13;//pabc.net

//uses PT4;

begin
//  Task('For13');
  var N := ReadInteger();
  var a := SeqGen(N, 1.1, x -> x + 0.1);
  var b := Range(1, N).Select(x -> x.IsOdd ? 1 : -1);
  a.Zip(b, (x, y)-> x * y).Sum.Println
end.

program For13;//pabc.net

//uses PT4;

begin

// Task('For13');

var N := ReadInteger();

var a := SeqGen(N, 1.1, x -> x + 0.1);

var b := Range(1, N).Select(x -> x.IsOdd ? 1 : -1);

a.Zip(b, (x, y)-> x * y).Sum.Println

end.

program For13;//pabc.net

//uses PT4;

begin
//  Task('For13');
  var N := ReadInteger();
  var a := SeqGen(N, 1.1, x -> x + 0.1);
  a.Select((x, i)-> i.isOdd ? -x : x).Sum.Println
end.

program For13;//pabc.net

//uses PT4;

begin

// Task('For13');

var N := ReadInteger();

var a := SeqGen(N, 1.1, x -> x + 0.1);

a.Select((x, i)-> i.isOdd ? -x : x).Sum.Println

end.

Ответить

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

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

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

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