интервал+ изменение. массив. как вывести на печать?

[ayPinki]

первая программа сделана, только как распечатать "у" распишите четко, ото в интернетах какаето фигня.
вторая задача, вот листинг:
program sem2;
var n:integer;
F,x:real;
begin
cls;
x:=-3;
while x<=3 do
begin
for n:=1 to 10 do
F:=f+exp(n*ln(x-1))/sqr(n);
writeln( f:4:4) ;
x:=x+0.1;
end;
end.
получается отрицательный логарифм, и пишет - "»*Ошибка: неверная вещественная операция (stm2.pas, строка 10)"
я думаю, всётаки я ошибаюсь, как исправить.
и возникли проблемы с созданием циклов для третей программы... как его реализовать.

[IT-man]

получается отрицательный логарифм, и пишет

а зачем его использовать то?

sl:=1;for i:=1 to 10 do
begin
sl:=sl*(x-1);
f:=f+sl/i/i;
end;

[ayPinki]

там же в n-ной степени. вы всётаки правы?) вы задание смотрели?

[IT-man]

там же в n-ной степени

а подумать?

n=1 sl=(x-1);
n=2 sl=sl*(x-1)=(x-1)*(x-1);
n=3 sl=sl*(x-1)=(x-1)*(x-1)*(x-1);

дальше продолжать?

[ayPinki]

program sem2;
var n,i:integer;
F,x,sl:real;
begin
cls;
x:=-3;
while x<=3 do
begin
for n:=1 to 10 do

for i:=1 to n do
begin
sl:=1;
sl:=sl*(x-1);
F:=f+sl/(n*n);
writeln('Ïðè x=',x:4:2, ',n=', n, ' f=',f:2:2 );
end;
x:=x+0.1;
end;

end.

вот что получилось, он выдаёт много строк... - но это правильно?

[IT-man]

но почему то F всегда 0 ...

внимательно смотрим
у меня

sl:=1;

у тебя sl вообще не проинициализировано)
у меня

for i:=1 to 10 do

у тебя

for n:=1 to 10 do
for i:=1 to n do

Рабочая прога

program sem2;
var n,i:integer;
f,x,sl:real;
begin
cls;
x:=-3;
while x<=3.1 do
begin
sl:=1;
F:=0;
for i:=1 to 10 do
begin
sl:=sl*(x-1);
f:=f+sl/(i*i);
end;
writeln(' x=',x:4:1,' f=',f:4:2);
x:=x+0.1;
end;
end.

результат

x=-3.0 f=8020.75
x=-2.9 f=6189.12
x=-2.8 f=4743.04
x=-2.7 f=3608.55
x=-2.6 f=2724.44
....
x= 3.0 f=31.12

[ayPinki]

спс. буду разбираться. завтра как наработки появятся, мб поможете с массивом. )

[IT-man]

извините , всё разобрал уже правки 20 раз делал

Пост N6 глянь) там рабочая прога и результат

[ayPinki]

Program massive;
Var i,n,k,max:integer;
A : array [1..90] of integer;

begin
cls;
writeLn('Ââåäèòå ðàçìåðíîñòü ìàññèâà =');
readLn(n);
for I:=1 to n do
begin Write('A[',I:2,']=');
Readln(A[I])
End;
For k:=1 to n do
if a[k]>max then
begin
max:=a[k]; i:=k;
end;
writeln('Ìàêñèìàëüíûé ýëåìåíò ìàññèâà A[',i,']=',max);

for I:=i to n do /выводит после максимума. он сохраняет i- позицию именно Максимума, т.к. мы сверху сделали i:=k правильно?
begin
Writeln('A[',I:2,']=' ,a[i]);
end;

end.

вот что смог сделать насчет третей задачи, осталось только отсортировать от A[i]=max до n по возростанию, но как это сделать...подскажите(

[Leshii]

Держи, и не мучайся =) Но вот ответ тоже частичный) т.к. упорядочивает не после мах элема, а во общем варианте ( ну а с условием я думаю подумать будет не сложно )

Program massive;
Uses crt;
type 
    Massiv = Array [1..90] Of integer;
Var A ,az:  Massiv;
   Buffer, imax, max: integer;
   i, j, n: Integer;
Begin
clrscr;
Write ('Vveditb razmernost masuva ( no ,bolshe 4em 90) : ');
ReadLn (n);
for I:=1 to n do begin
    Write('A[',I:2,']=');
    Readln(A[I])
End;
max:=a[1];imax:=1;
if a[i]>max then begin
  max:=a[i];
  imax:=i;
end;
writeln('max elem ',max:3,' ','index ',imax);
     for i:=1 to n do az[I]:=a[I];
     for i:=1 to n do
         for j:=i to n do Begin
             If az[i]>az[j] Then Begin
                Buffer:=az[j];
                aZ[j]:=az[i];
                aZ[i]:=Buffer;
             End;
         End;
     WriteLn ('Упорядочен по возрастанию:');
     for I:=1 to n Do Begin
         Write (az[I]:4,' ');
     end;
readln;
end.

переделал, теперь помозгуй как отсортировать от max элемента.