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

спецназ8 спецназ8    1   04.03.2019 12:10    14

Ответы
yuralavrenov2016 yuralavrenov2016  24.05.2020 02:15

Картинка должна быть в папке с программой и быть в формате BMP

uses
graphabc;

var
n: string;
b: Picture;
s:integer;

begin
writeln('введите расстояние до зеркала');
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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика