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

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


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

ghaban ghaban    2   13.06.2020 10:36    1

Ответы
99669888Nina 99669888Nina  15.10.2020 13:54
PascalABC.NET

Здание 1:

beginvar a := ReadArrInteger(ReadInteger('N:')); a.Transform((x,i)->i.IsEven?0:x); a.Printend.

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

Задание 2:

const a=0; b=1; h=0.1; n=Trunc((b-a)/h); beginvar 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.

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


На языке паскаля 1.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль. 2.
На языке паскаля 1.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль. 2.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика