Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Мар

Создать класс: морская волна

Posted by Chas under Delphi

Разработать программу для рисования на форме геометрического объекта, используя объектно-ориентированное программирование. В программе должно быть не менее 1 класса.
Морская волна (синусоида, задается высота и длина, и фаза — положение синусоиды относительно начала координат).

Sibedir
Вот, что-то подобное.
Только там лопости рисует, а у вас волна, причем одна. Замените соответствующие функции рисования в тамошнем классе и назовите его TVolna.

TVolna = class (TObject)

  private

    FFaza     : Real;

    FAmpletuda: Real;

  protected

  public

    constructor Create (AFaza, AAmpletuda: Real);
    procedure Depose (DeltaFaza: Real);

    procedure Draw (ACanvas: TCanvas);
    property Faza     : Real read FFaza      write FFaza     ;

    property Ampletuda: Real read FAmpletuda write FAmpletuda;

  end;

тема на форуме