ТутРешу.Ру

составить программу в Pascal ABC…

Задание:

составить программу в Pascal ABC, которая строиит изображение предмета в плоском зеркале (расстояние от предмета до зеркала вводится с клавиатуры)

Решение:

Картинка длжна быть в папке с программой и быть в формате 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.




Знаете другой ответ?

Отправить свой ответ