Задача с матрицей

[Kawun]

Добрый день. Не знаю как решить ниже представленную задачу в Delphi.
Напишите, пожалуйста, программу. Заранее спасибо!

Дана матрица А с 2 строками и 10 столбцами.
Первый элемент каждого столбца рассматривается как диаметр внутренней, а второй - как диаметр внешней окружности кольца.
В цикле вывести площади колец начиная с кольца, представленного первым столбцом, заканчивая цикл, если (по ошибке) второй элемент какого-либо столбца оказывается меньше первого.

[NeshSoft]

Пи*R1^2 - Пи*R2^2 - вот площадь кольца, где R1- внешний радиус, а R2 - внутрений.

[alex_fcsm]

Пример на Паскале.

uses crt;
var a:array[1..2,1..10] of integer;
     i,j:integer;
     s:real;
     
begin
clrscr;
for i:=1 to 2 do
 for j:=1 to 10 do
  a[i,j]:=(3-i)*(random(10)+1);
  for j:=1 to 10 do
   begin
    s:=3.14*(sqr(a[1,j])-sqr(a[2,j]));
    if s>0 then writeln(s:8:4)
       else begin
            writeln('Error!');
            break;
            end;
   end;
end.

[NeshSoft]

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

Пример на Паскале.

  a[i,j]:=(3-i)*(random(10)+1);

3-i Прикол

[alex_fcsm]

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

3-i Прикол

Ну чтобы больше вероятность была, что первое число больше второго

[Kawun]

Спасибо за пример на паскале, но переделать его под делфи у меня не получается =(. Может кто-нибудь сможет его переписать в делфи?
PS: Значения матрицы должны вводится в стрингрид (табличку/сеточку).

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

Спасибо за пример на паскале, но переделать его под делфи у меня не получается =(. Может кто-нибудь сможет его переписать в делфи?
PS: Значения матрицы должны вводится в стрингрид (табличку/сеточку).

Все еще актуально. Напишите пожалуйста, иначе преподаватель мне голову открутит

[alex_fcsm]

Ваш код покажите

[XuTpbIu]

В делфи консольное приложение или с аппликейшн(с расстановкой компонентов на форме)
-------
Упс... невнимателен я...

[Kawun]

Procedure TForm1.Button1Click(Sender:TObject);
Type
TMas = Array [1..2,1..10] of integer;
Var
a:array[1..2,1..10] of integer;
i,j:integer;
s:real;
begin
for i:=1 to 2 do
 for j:=1 to 10 do
a[I]:=StrToInt(StringGrid1.Cells[0,I-1]);
for j:=1 to 10 do
begin
    s:=3.14*(sqr(a[1,j])-sqr(a[2,j]));
    if s>0 then writeln(s:8:4)
       else begin
            writeln('Error!');
            break;
            end;
   end;
end.

[DENCREAT]

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

Procedure TForm1.Button1Click(Sender:TObject);
Type
TMas = Array [1..2,1..10] of integer;
Var
a:array[1..2,1..10] of integer;
i,j:integer;
s:real;
begin
for i:=1 to 2 do
 for j:=1 to 10 do
a[I]:=StrToInt(StringGrid1.Cells[0,I-1]);
for j:=1 to 10 do
begin
    s:=3.14*(sqr(a[1,j])-sqr(a[2,j]));
    if s>0 then writeln(s:8:4)
       else begin
            writeln('Error!');
            break;
            end;
   end;
end.

а куда, позволь спросить, ты собираешься выводить результаты))?? добавь на форму компонент, например, TMemo и выводи результаты в него.. или в StringGrid в третью строку..