На языке паскаля
1.В заданном числовом массиве каждый элемент с четным индексом заменить на нуль.
2.Составьте программу табулирования функции:
Приложения:
![](https://st.uroker.com/files/e03/e03cf3d358affc94eda94f330a1c485f.png)
BobbyFresnel:
Проект Pascal ABC закрыт 14 лет назад в связи с переходом на PascalABC.NET и достать дистрибутив Pascal ABC нереально.
Ответы
Ответ дал:
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/228/2289fc2a3ec3d791a5765f4e8675f2dc.png)
![](https://st.uroker.com/files/5ec/5ece6c92ec3c49e85ec3e9a9386637ed.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад