Question

На языке паскаля

1.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль.

2.Составьте программу табулирования функции:

Answer 1

PascalABC.NET

Здание 1:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• a.Transform((x,i)->i.IsEven?0:x);
• a.Print
• end.

(можно "i.IsEven" заменить на "(i+1).IsEven", если считать индекс от 1)

Задание 2:

• const a=0; b=1; h=0.1; n=Trunc((b-a)/h);
• begin
• var f: real->real := x-> x**2 / Tan(x) + ArcSin(x**2)**2;
• PartitionPoints(a,n*h,n).Foreach(x -> Writeln(x:3:1, f(x):6:2))
• end.

Примеры работ: