Задание:
Составить программу которая строит изображение предмета в плоском зеркале (расстояние от предмета до зеркала вводиться склавиатуры).
Решение:
Картинка должна быть в папке с программой и быть в формате BMPusesgraphabc; varn: string; b: Picture; s: integer; beginwriteln ('введите расстояние до зеркала'); readln (s); write ('Введите имя файла рисунка: '); readln (n); window.Clear; b: =Picture.Create (n); b.Load (n); b.Draw (50, 50); b.FlipHorizontal; b.Draw (50+2*s,50); end.
Знаете другой ответ?