Составьте программу которая загружает из файлов и выводит на экран изображение животных, растений, памятников архитектуры.
Ответы
Ответ дал:
4
Ответ:
uses GraphABC;
var pic : integer;
begin
SetWindowSize (700, 750);
ClearWindow (clBlack);
SetFontSize(20);
pic:=LoadPicture('bohr.jpg');
DrawPicture (pic, 30, 30, 180, 200);
SetFontColor(clGreen);
TextOut(100,240,'Бор');
pic:=LoadPicture('Galileo.jpg');
DrawPicture (pic, 210, 230, 200, 230);
SetFontColor(clBrown);
TextOut(250,470,'Галилео');
pic:=LoadPicture('Einstein.jpg');
DrawPicture (pic, 30, 460, 180, 210);
SetFontColor(clRed);
TextOut(50,680,'Эйнштейн');
pic:=LoadPicture('Leonardo.jpg');
DrawPicture (pic, 410, 60, 180, 210);
SetFontColor(clBlue);
TextOut(440,280,'Леонардо');
pic:=LoadPicture('Newton.jpg');
DrawPicture (pic, 410, 400, 190, 210);
SetFontColor(clPurple);
TextOut(450,620,'Ньютон');
end.
Объяснение:
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
2 года назад
2 года назад