56

Ребята! Помогите пожалуйста! Работаем в PascalABC. Нужно составить программу, которая…

03 марта 2023

Ребята! Помогите пожалуйста! Работаем в PascalABC. Нужно составить программу, которая строит изображения предмета в плоском зеркале (расстояние от предметадо зеркала вводятся с клавиатуры). Очень срочно. Заранее спасибо)

категория: информатика

45

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

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...