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

Ответы 1

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

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years