Ребята!Помогите пожалуйста!Работаем в PascalABC.Нужно составить ...
Ребята!Помогите пожалуйста!Работаем в PascalABC.Нужно составить программу,которая строит изображения предмета в плоском зеркале(расстояние от предмета до зеркала вводятся с клавиатуры).Очень срочно.Заранее спасибо)
Есть ответ
17.12.2022
498
Ответ
Картинка должна находиться в папке программы и иметь расширение .jpg. У меня по умолчанию название папки PABCWork.NET. И размер картинки бери не большой))
usesgraphabc;vara:string;b:picture;c:integer;beginwriteln('Введите расстояние до зеркала');readln(c);writeln('Введите имя файла рисунка (.jpg): ');readln(a);window.Clear;b := Picture.Create(a);b.Load(a);b.Draw(50, 50);b.FlipHorizontal;b.Draw(300+5*c,50);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
