3 простые задачки на Паскале

[Vladislaff]

Есть беда, состоит она вот в чем: эти задачи как закалдованные. Никак мне не дются. Помогите, чем сможете.
1. Циклы: Вычислить сумму функционального ряда:
image142.gif
2. Одномерные массивы: Найти количество элементов массива {xk}, абсолютное значение которых не превышает 2:
image004.gif
3. Матрицы: Вычислить произведение положительных элементов главной диагонали матрицы (MxN). M=5; N=6.


Спасибо огромное всем откликнувшимся.

[puporev]

Есть беда, состоит она вот в чем: эти задачи как закалдованные.

Беда не в этом. Это Вы заколдованы ленью. Не зная Паскаля вообще, расколдовать эти задачи можно максимум за два дня.

[alex_fcsm]

1

uses crt;
const eps=0.00001;
var x,temp,sum:real;
    i:integer;
function power(x:real;y:integer):real;
begin
if y=1 then power:=x
   else power:=power(x,y-1);
end;
begin
writeln('input x');
readln(x);
writeln('press a b c');
case readkey of
'a': begin
    sum:=0;
    for i:=1 to 10 do
    sum:=sum+i*(i+2)*power(x,i);
    writeln(sum);
   end;
'b': begin
    i:=1;
    x:=i*(i+2)*power(x,i);
    sum:=x;
    while x>=eps do
     begin
      sum:=sum+x;
      inc(i);
      x:=i*(i+2)*power(x,i);
     end;
    writeln(sum);
   end;
'c': begin
   i:=1;
   x:=i*(i+2)*power(x,i);
   sum:=x;
   repeat
   inc(i);
   x:=i*(i+2)*power(x,i);
   sum:=sum+x;
   until x<=eps;
   writeln(sum);
   end;
end;
 readln;
end.

2:

var i,n:integer;
    x:array[1..13] of real;
begin
n:=0;
 for i:=1 to 13 do
 if i mod 2=0 then x[i]:=ln((sqr(i)+i)/15)
    else x[i]:=-ln((sqr(i)+i)/15);
for i:=1 to 13 do
 if abs(x[i])<=2 then inc(n);
Writeln(n);
end.

3: Почитайте что такое главная диагональ и для каких матриц это понятие вводится

uses crt;
const m=6;
      n=6;
var a:array[1..m,1..n]of integer;
    i,j:integer;
    mult:real;
begin
clrscr;
randomize;
for i:=1 to m do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(20)-10;
  write(a[i,j]:3);
  end;
writeln;
end;
mult:=1;
for i:=1 to m do
 for j:=1 to n do
  if(i=j)and(a[i,j]>0)
   then mult:=mult*a[i,j];

writeln(mult:5:0);
end.

[Vladislaff]

alex_fcsm, огромное спасибо!!! ...нет слов!!!