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.
Объяснение:
Во многих местах были орфографические ошибки, поэтому и не запускалось.
№1
pers1 = 'китенок'
print(pers1)
pers2 = 'динозавр Митя'
print(pers2)
pers3 = 'Леонид Васильевич'
print(pers3)
act1 = 'плыл по морю'
print(act1)
act2 = 'рыбачил'
print(act2)
act3 = 'решал задачу'
print(act3)
def1 = 'в кузове грузовика'
print(def1)
def2 = 'в красных башмаках'
print(def2)
def3 = 'в пурпурном пиджаке'
print(def3)
print(pers2, act1, def3)
print(pers1, act2, def2)
print(pers3, act2, def1)
print(pers2, act3, def2)
№2
print('|-|--|---||||||||||||||')
№3
print(2, 3, 5, 7)
print(11, 13, 17, 19)
print(23, 29, 31, 37)
print(41, 43, 47)
№4
print('print("Привет, мир!")')
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26