Question

Помогите пожалуйста записать эту программу в массивах, программу написал но в массивах слабо разбираюсь. или объясните как ее записать? Если нужен файл 'belarus.jpg' он прикреплен. Спасибо

program Geograf1;

uses GraphABC;

var karta, A, S: integer;

begin SetWindowSize(520,480);

karta := LoadPicture('belarus.jpg');

DrawPicture(karta,10,10);

setBrushColor(clRed);

S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+A);

S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+A);

S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);

S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);

S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);

S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);

end.

Answer 1

Забиваем константы

const

  s : array [1..6] of integer = (S1, S2, S3, S4, S5, S6); //Подставить нужные значения

  arr: array [1..6, 1..4] of integer ((x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2), (x, y, x2, y2)); //Подставить нужные значения

 

Cчетчик var i : integer;

 

После чего вместо этого

S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+A);

S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+A);

S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);

S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);

S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);

S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);

вставляем это

for i := 1 to 6 do

begin

   a := round (sqrt (s[i]);

   Rectangle (arr[i, 1], arr[i, 2], arr[i, 3]+a, arr[i,4]+A);

end;