Question

Составьте программу которая загружает из файлов и выводит на экран изображение животных, растений, памятников архитектуры.

Answer 1

Ответ:

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.

Объяснение: