массивы и вложенные циклы

[cobrita24]

Помогите пожалуйста решить очень нужно!!!! 5 задач осталось решить нужно через 2 дня сдавать я не могу написать код((

1. Даны натуральное число n, действительные числа a1,...,an. Получить: max (-a1,a2,-a3,...,(-1)(в n степени)an);


2.Даны натуральное число n, действительные числа a1,..., an. Выяснить, является ли последовательность a1,...,an упорядоченной по убыванию.

3.Даны действительные числа х, y1,..., y25. В последовательности y1,..., y25 найти два члена, среднее арифметическое которых ближе всего к х.

4.Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица [aij] i, j = 1, ..., n, если aij=cos(t в квадрате +n);

5.Дано действительное число х. Вычислить с точностью 10 в-6 степени: сумма 1/x в квадрате+ к в кубе, где к от 1 до бесконечности

Код нужен для Паскаля
Заранее спасибо!!!!

[Stilet]

1. Даны натуральное число n, действительные числа a1,...,an. Получить: max (-a1,a2,-a3,...,(-1)(в n степени)an);

Ну предположим так:

MODULE q;
IMPORT StdLog,ObxRandom;

PROCEDURE do*;
VAR  k,cnt,i:INTEGER;max,an:REAL;
BEGIN
 StdLog.Clear;max:=0;k:=1;
  FOR i:=1 TO 10 DO
   an:=ObxRandom.Uniform()*k;
   IF max<an THEN max:=an; END;
   StdLog.Real(an);StdLog.Ln; 
   k:=-1*k;
  END; 
   StdLog.String("Максимум");StdLog.Ln; 
   StdLog.Real(max);StdLog.Ln; 

END do;

END q.

Результат:

0.4587243401718905
-0.779985268963494
0.212415469443619
-0.06679493890460345
0.6225381696701693
-0.9990176465357736
0.4895853267468444
-0.460586634213378
0.07956122424433065
-0.1854958744652084
Максимум
0.6225381696701693

Устроит такая система?

[cobrita24]

Устроит такая система?[/QUOTE]
извините, а какой это язык? мне нужно в Паскале

[IT-man]

6bI/\O y}|{e! no/\b3yuTECb nouckoM!

[Stilet]

мне нужно в Паскале

Ах вон оно что...
А указать заранее язык не судьба?
Вот тебе первое решение, остально сделаешь сам:

uses crt;
VAR  k,cnt,i:INTEGER;max,an:REAL;
BEGIN
  max:=0;k:=1;
  FOR i:=1 TO 10 DO
   an:=Random()*k;
   IF max<an THEN max:=an;
   Write(an:10:3); 
   k:=-1*k;
  END; 
  Writeln;Writeln('Максимум ',max);
END.

[cobrita24]

[QUOTE]

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

Ах вон оно что...
А указать заранее язык не судьба?
Вот тебе первое решение, остально сделаешь сам:

Извините, пожалуйста, а вы можете 4-ю посмотреть ещё? я не могу её сделать, пожалуйста!

[Stilet]

я не могу её сделать

В попытки были? Показывай что уже есть - поправим.

[cobrita24]

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

В попытки были? Показывай что уже есть - поправим.

P

rogram Z_758;
Uses crt;
const t = 0.0000001;
Var
S,X:real;
k:integer;
f:text;
begin
Clrscr;
assign(f,'D:\77E9~1\Tp\BIN\758.PAS' );
Append(f);
writeln('vvedite x');
readln(x);
S:=0;
k:=1;
while x mod 1000000=0 do
begin
S:=S+1/(sqr(x)*sqr(k));
k:=k+1;
end;
writeln('Rezultat= ',k);
Close(f);
end.

вот 5 задача, выдаёт ошибку, не могу исправить а 4 вообще не предствляю как решать

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

В попытки были? Показывай что уже есть - поправим.

4-я может так? Посмотрите:

Program 374;
   Uses crt;
   Var
     j,i,n,k:integer;
     f:text;
    begin
     Clrscr;
     assign(f,'D:\77E9~1\Tp\BIN\3742.pas');
     Append(f);
     writeln('vvedite n');
     readln(n);
     k:=0;
     for i:=1 to n do
          if Cos((i*i+n)*3.14/180) > 0 then
          k:=k*n
          else k:=0;
     writeln(f'n= ',n);
     Close(f);
   end.

[Stilet]

assign(f,'D:\77E9~1\Tp\BIN\3742.pas ');

Что это за такое-сякое?
Зачем ты это написал(а)?

мда... тебе бы литературу умную почитать...
Вот пятая:

Var
     j,i,n,k:integer;
     f:text;
    begin
     writeln('vvedite n');
     readln(n);
     k:=0;
     for i:=1 to n do begin
       if Cos((i*i+n)*3.14/180) > 0 then          k:=k+1;
       write(Cos((i*i+n)*3.14/180):10:2);
     end;
     writeln;
     writeln('k= ',k);
     readln;
   end.

Сравни со своим и подумай.

[cobrita24]

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

Что это за такое-сякое?
Зачем ты это написал(а)?

мда... тебе бы литературу умную почитать...
Вот пятая:

Var
     j,i,n,k:integer;
     f:text;
    begin
     writeln('vvedite n');
     readln(n);
     k:=0;
     for i:=1 to n do begin
       if Cos((i*i+n)*3.14/180) > 0 then          k:=k+1;
       write(Cos((i*i+n)*3.14/180):10:2);
     end;
     writeln;
     writeln('k= ',k);
     readln;
   end.

Сравни со своим и подумай.

Спасибо огромное, я поняла ошибки Вы извините что такие глупые ошибки, просто я только начала работать в Паскале и ешё мало чего умею, для этого и обратилась за помощью