На языке паскаля
1.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль.
2.Составьте программу табулирования функции:
Приложения:
![](https://st.uroker.com/files/3c5/3c57d15c9aebfc811f77f4d8a424ff24.png)
BobbyFresnel:
Сразу представился мне некто Паскаль, высунувший язык, на котором надо писать )))
Ответы
Ответ дал:
0
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.
Примеры работ:
Приложения:
![](https://st.uroker.com/files/88b/88bdc51efdf8e93c73ef45a39861c2c1.png)
![](https://st.uroker.com/files/2ba/2ba58be808ba6e2663b1bca2b056f5ee.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад