Program praktyka8;
uses graphABC;
begin
setwindowsize(640,480);
setwindowtitle('Відновіть малюнок');
setbrushcolor(clgreen);
rectangle(0,350,640,480);
setbrushcolor(clbrown);
rectangle(70,275,215,415);
line(150,180,70,275);
line(70,275,215,275);
line(215,275,150,180);
floodfill(150,250,clbrown);
circle(150,250,18);
setbrushcolor(clblue);
floodfill(150,250,clblue);
setbrushcolor(clblue);
rectangle(75,315,120,375);
setbrushcolor(clsilver);
rectangle(150,315,200,415);
setpencolor(clyellow);
setbrushcolor(clyellow);
line(25,25,150,75);
line(25,25,145,80);
line(25,25,140,85);
line(25,25,130,95);
line(25,25,125,100);
line(25,25,115,110);
line(25,25,110,115);
line(25,25,100,125);
line(25,25,95,130);
line(25,25,85,135);
line(25,25,80,140);
line(25,25,75,145);
setbrushstyle(bssolid);
circle(25,25,30);
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(307,425,317,400);
setbrushcolor(cllime);
setpencolor(clblack);
ellipse(250,150,375,400);
setpencolor(clblack);
rectangle(450,400,465,375);
rectangle(500,400,515,375);
rectangle(425,375,540,365);
end.
Объяснение:
Во многих местах были орфографические ошибки, поэтому и не запускалось.
просто перевод строк на паскаль. Логики тут искать не стоит. Первоначальное задание не полностью дано.
Объяснение:
const
size = 6
var
a : array [0..size, 0..size] of integer;
d, v : array [0..size] of integer;
i, temp, minindex, min, begin_index : integer;
begin
begin_index := 0;
for i:=0 to size-1 do begin
temp := min + a[minindex][i]
if temp < d[i] then
d[i] := temp
end;
v[minindex] := 0;
writeln('Кратчайшие расстояния до вершин')
for i := 0 to size-1 do
writeln(ver[i])
end.
