Задачи. Турбо паскаль.

[Virusyaga]

1.Найти сумму элементов массива вещественных чисел, имеющих нечетные номера. Размерность массива 20. Заполнение массива осуществить случайными числами от -π до π.


2. Получить действительный массив A[1..7, 1..7], первая строка которой задается формулой a1j=2j+3, вторая строка задается формулой a2j=j+3/(2+j), а каждая следующая строка есть сумма двух предыдущих.


Прошу помощи разобрать.

[Serge_Bliznykov]

ну так Вы начните решать, что не получается, тут, на форуме подскажут/помогут...

[domovou]

1.

const
     n=20;
var
   A:array [1..n] of real;
   i:integer;
   sum:real;
BEGIN
sum:=0;
for i:=1 to n do
    begin
    a[i]:=random(1000)/(random(1000)-random(1000));
    write(a[i]:0:3,' ');
    if i mod 2<>0 then sum:=sum+a[i];
    end;
writeln(#13,'Summa = ',sum);
readln;
END.

[Poma][a]

Домовой, позволите внести 5 копеек?
1) Нет Randomize, что не есть хорошо
2)

if i mod 2<>0 then

Тут наверное лучше использовать not (Odd(2)), т.к. это намного эффективней, и Серж в своё время нам это доказал..
Хоть опять же, на спичках не экономят
3)

#13

Что-то подсказывает мне, что у Вас Дельфи, и данным куском кода Вы хотели перейти на новую строку..
Т.к. в паскале нужно будет написать #10#13, то наверное для работе на всех компиляторах (было какое-то шибко красивое слово, но я позабыл), лучше написать WriteLn(), или вообще без скобочек..
Хотя согласен, одна лишняя строка не есть хорошо..

[eoln]

А я 4 копейки добавлю

a[i]:=random(1000)/(random(1000)-random(1000));

Тут деление на ноль может быть

[domovou]

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

a[i]:=random(1000)/(random(1000)-random(1000));

Тут деление на ноль может быть

тогда

a[i]:=random(1000)/((random(1000)-random(1000)+1));

[eoln]

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

тогда

a[i]:=random(1000)/((random(1000)-random(1000)+1));

Неа А вдруг в знаменателе первый рандом даст 100, а второй 101 ?
Тогда уж

a[i]:=random(1000)/((random(1000)+1));

Но в условии ещё и границы заданы, то есть надо просто

a[i] := 2*P*(random-0.5);

, где P - задаёт участок [-P; +P) Ну или если границы обе нужны, то что-то вроде

a[i] := (random(2*P+1)-P)/1000

, где P - задаёт интервал [-P/1000; P/1000]

[domovou]

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

Неа А вдруг в знаменателе первый рандом даст 100, а второй 101 ?
Тогда уж

a[i]:=random(1000)/((random(1000)+1));

Но в условии ещё и границы заданы, то есть надо просто

a[i] := 2*P*(random-0.5);

, где P - задаёт участок [-P; +P) Ну или если границы обе нужны, то что-то вроде

a[i] := (random(2*P+1)-P)/1000

, где P - задаёт интервал [-P/1000; P/1000]

Понял я)))

[Sciv]

Походу, в этой теме Домовой больше знаний получил, чем топикстартер

[Rififi]

Sciv

Походу, в этой теме Домовой больше знаний получил, чем топикстартер

Прокачивается на слониках - тоже полезно.
Точно также поступают игроки в Диабло - там это называется "фармить мобов" o_O