помогите пожалуйста решить программу по турбо Паскалю(массивы).

[polya4ok]

Помогите плиз написать программы:
1)Вычислить площадь каждой из n окружностей, радиусы которых R1, R2,...,Rn заданы (n=4)
2) Дана квадратичная матрица порядка n. Определить, является ли заданная матрица симметричной (относительно главной диагонали).
Надеюсь на вашу помощь, Заранее огромное спасибо!

[Sazary]

Чем помочь? Где вопросы? Где ваши наработки?
Функция для первой:

function getS(R : real) : real;
begin
getS := pi*R*R;
end;

Во второй в цикле проверяете:

simm := true;
for i:=1 to n do
 for j:=i+1 to n do
  if mas[i,j] <> mas[j,i] then simm := false;

[polya4ok]

для первой программы я написал следующее:
uses crt;
var n,i:integer;
R:array [1..4] of real;
S: array [1..4] of real;
begin
n:=4;
clrscr;
for i:=1 to n do
begin
writeln ('R[',i,']=');
readln (R[i]);
end;
for i:=1 to n do
S[i]:= Pi*sqr(R[i]);
writeln ('S[',i,']=', S[i]^10^5);
readkey;
end.
так вот мне надо посчитать все четыре площади в задаче, а он считает только 4-ю, не могу понять почему...а по поводу второй задачи, то честно говоря, вариантов нет, поэтому хотел бы попросить вас написать полный алгоритм решения....спасибо.

[IT-man]

Последний writeln в цикл то засунь

[polya4ok]

в смысле? ещё дописать ридлн? та же ерунда..

[polya4ok]

и дописываю ридлн и ставлю под бегин, всё равно то же самое...

[Sazary]

Вот это:

for i:=1 to n do
S[i]:= Pi*sqr(R[i]);
writeln ('S[',i,']=', S[i]^10^5);

Изменить на это

for i:=1 to n do
begin
S[i]:= Pi*sqr(R[i]);
writeln ('S[',i,']=', S[i]^10^5);
end;

Как и сказал IT-man.

[__STDC__]

А что за "^"? Там ":" наверное должно быть?

[Sazary]

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

А что за "^"? Там ":" наверное должно быть?

Действительно

[polya4ok]

ясно, я понял, спасибо большое!!!всё получилось! а могли бы помочь по второй задаче?