Задать вопрос Регистрация
Помочь другим

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

Ответы 1

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

    usesgraphabc;

    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.

    • Автор:

      skeeter
    • 6 лет назад
    • 0

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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