PascalABC.NET составить массив из первых 10 результатов вычислений.

[ser18]

program three;
const
N=10;
var
s,x1,x2,w,h,x:real;
A:array [1..N] of real;
i:integer;
begin
x1:=-5;
x2:=10;
x:=x1;
h:=1;
s:=0;
while x<=x2 do
   begin
     if (0<=x)and(x<=4) then w:=0.4*10*10*10*sin(x)
     else
     w:=0.5*exp(ln(10)*1.5)*x-10*10*exp(sin(x));
     writeln('W=',w,' x=',x);
     s:=s+w;
     x:=x+h;
   end;
   s:=s/16;
   writeln('среднее арифметическое=',s);
   for i:=1 to N do
   begin
   A[i]:=W;
  writeln(A[i]);
 end;
end.

Пытался сам, но он выводит 10 раз последнее вычисление. Я новичек в паскале, объясните пожалуйста.

[type_Oleg]

Сообщение от ser18

... Пытался сам, но он выводит 10 раз последнее вычисление. Я новичек в паскале, объясните пожалуйста.

А что же она должна выводить, если у вас:

 for i:=1 to N do
   begin
    A[i]:=W;    //  ********
    writeln(A[i]);
   end;

Вот она и выводит одно и то же значение W.

Вообще непонятно, что вам надо посчитать.
Кстати, вроде в PascalABC.NET есть функция Power для степени. Чтобы не городить логарифмы-экспоненты.

[ProBeginner]

Если надо сделать массив, то цикл FOR д.б. на верхнем уровне.

for i:=1 to 10 do
Begin
   Тут Вычисляете i-ый элемент
   A[i]:=Присваиваете то, что вычислили
End;

Напишите такую болванку, вместо вычислений пусть будет i*i.
Проверьте программу, чтоб она работала.
Дальше уже будет проще писать программу, т.к. останется проблема с логикой вычислений.
Если будут вопросы, покажите собственно задание. Соображать, что было задано по неправильной программе весьма тяжко %-)

[ser18]

Постановка задачи:
Вычислить значения ф-и W=0,4*10^3*sin(^2)x, если 0<=x<=4, W=0,5*10^(1,5)*x-10(^2)*e^sinx, в остальных случаях для x, изменяющегося от x1 до x2 с шагом h. определить среднее арифметическое результатов, полученных по первой и второй формулам. Сформировать массив из первых 10 результатов. x1=-5, x2=10, h=1.

Там все работает кроме массива, я не знаю как правильно написать, чтобы он записывал результаты вычислений.

[ser18]

type_Oleg
Нет, такая функция есть в турбо при подключении плагина.

[dimon_snake]

Сообщение от type_Oleg

А что же она должна выводить, если у вас:

 for i:=1 to N do
   begin
    A[i]:=W;    //  ********
    writeln(A[i]);
   end;

Вот она и выводит одно и то же значение W.

Правильно вам сказали.
Вы каждый раз присваиваете элементу массиву последнее из заданных w значений. Раз последнее было 100, то и массив получится из элементов 100.
Нужно еще в первом цикле while присваивать массиву w, а в конце просто вывести его.