Нужна помощь в интересной задачке..

[swink]

Прошу помочь, задали задачу, вроде решаю, но площади выходят отрицательные,да и программа длиная,на 46 строк, вобщем с небольшими знаниями,я писал обходными путями.
Вот задача:

Напишите программу,к оторая вычислит площадь закрашенной фигуры.
Составить и использовать функции вычисления площади квадрата и круга.
Значения сторон квадратов: а1=а3=5; a2=a4=4; a5=8;
Радиусы окружностей: r1=r3=3; r2=r4=2; r5=6;

[Gongled]

Если честно, то не понял к чему была иллюстрация.

program pr;
uses CRT;
const
n = 5;
var
i : integer;
a, r : real;

function square_figure(x, y : real) : real;
begin
     result := sqr(x)-sqr(y)*pi;
end;

begin
clrscr;

for i:=1 to n do
begin
     write('Введите сторону квадрата и радиус: ');
     read(a,r);
     writeln('Результат: ',square_figure(a,r));
end;

end.

[swink]

спасибо большое

[swink]

ещё одна задачка:
Пусть дан заголовок функции:
Function F(x: real;y:char;z:boolean): boolean;
Какие вызовы неверны?.Аргументируйте ответ.
a)F (4.5, 'V', TRUE)
b)F (3,'F',5<8)
c)F(5,FALSE)
d)F (4.5, '7.2',FALSE)

[__STDC__]

с) Не хватает второго аргумента
d) string вместо char

[swink]

Спасибо..

[swink]

Помогите назвать :

а)Локальные переменные:
б)Глобальные переменные:

Program Nr1;
Uses crt;
Const n=10;m=10;r=100;
Var
D,I,J,K,L:Byte;
A:Array[1..n,1..m] of Byte;
Procedure P1;
Begin
For I:=1 to n do Begin
For J:=1 to m do Begin
Write (a[I,J],'');end;
Writeln;end; end;
Procedure P2;
Begin
K:=I+1;
For I:=1 to n do Begin
For J:=1 to n do Begin
For K:=1 to n do Begin
For L:=1 to n do Begin
If a[I,J]>A[K,L] then Begin
D:=A[I,J]; A[I,J]:=A[K,L];
A[K,L]:=D; end;end;end;end;end;
end;
Begin
Clrscr;
For I:=1 to n do
For J:=1 to m do
A[I,J]:=Random(r);
Writeln('masiv1');P1;
P2;Writeln('maisv2');P1;end.

[МульТ (Татьяна)]

у тебя здесь нет локальных переменных, только глобальные.

[swink]

не могли бы вы их назвать?

[МульТ (Татьяна)]

всё что находится в var