Нет перегруженной подпрограммы с такими типами параметров. !
program upr;
uses crt,graphabc;
var pic: picture; r: integer;
begin
setwindowsize(640,450);
write('введите расстояние от предмета до зеркала(1-100): ');
readln(r);
pic: =picture.create('raskraska-shenok18.jpg');
pic.draw(pic,320+r,100,200,290);
pic.draw(pic,320-r,100,-200,290);
setpencolor(clgreen);
setpenwidth(5);
line(320,50,320,400);
line(50,400,590,400);
setpenwidth (2);
line(trunc(120+r/2),100,trunc(520-r/2),100);
end.
FisicAnya
2
05.12.2019 21:51
0
Другие вопросы по теме Информатика
ruslanchik1999
03.10.2019 14:50
varvarataraskina
03.10.2019 14:50
Jeka5A
03.10.2019 14:50
валенок123
03.10.2019 14:50
pnzarKarina
03.10.2019 14:40
yuakomlev
03.10.2019 14:40
kingoflfmvd
03.10.2019 14:40
OvenNeON
03.10.2019 14:40
Популярные вопросы
- Разложить на множители : a+3b+9b^2-a^2 (^2-это в квадрате)...
1 - Разложите многочлен a^2+6a-40 на множители, полный квадрат двучлена....
2 - Сравните рычаг с подвижным блоком: что у них общего и чем различаются....
1 - Spotlignt workbook стр 48 модуль 6, №1,2...
1 - Решите уравнения : 1) 5/6*х=1; 2) 2/5*k+1/5*k=1; 3) 2/3*z-5/6=1/6;...
1 - Нагруски какое проверочное слово лесных какое проверочное слово по тропинка...
3 - Какое произведение пушкина воодушевило чайковского на создание одоимеюнной оперы...
3 - Чему равна 1.скорость движения улитки,если она за 7мин. проползла 7дм. 2.скорость...
3 - Тоня и маша соревновались в плавании.они поплыли одновременно от лодки к берегу...
3 - Как сделать схему к предложению петя пошёл в лес за земляникой и заблудился...
1
Program upr;
uses crt,GraphABC;
var pic:Picture; R,c:integer; b:string;
begin
SetWindOwSize(640,450);
write('Введите расстояние от предмета до зеркала(1-100):');
Readln(R);
pic:=Picture.Create('raskraska-shenok18.jpg');
pic.load('raskraska-shenok18.jpg');
Pic.Draw(320+R,100,200,290);
Pic.Draw(320-R,100,-200,290);
Setpencolor(clgreen);
Setpenwidth(5);
lINE(320,50,320,400);
LINE(50,400,590,400);
Setpenwidth (2);
Line(trunc(120+r/2),100,TRUNC(520-r/2),100);
END.