Ребята!Помогите пожалуйста!Работаем в...

Тема в разделе "Информатика", создана пользователем Marry, 26 мар 2010.

  1. Marry

    Marry New Member

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

    Жительница области New Member

    Картинка должна находиться в папке программы и иметь расширение .jpg. У меня по умолчанию название папки PABCWork.NET. И размер картинки бери не большой))
     
     
     
     
     
    uses
    graphabc;
    var
    a:string;
    b:picture;
    c:integer;
    begin
    writeln('Введите расстояние до зеркала');
    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.
     
    Жительница области, 26 мар 2010
    #2

Поделиться этой страницей

Наша группа