|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2016, 17:02 | #1 |
Регистрация: 16.05.2016
Сообщений: 5
|
Использование класса данных «объект» (ABCObject)
Составить программу для решения этого кода с использованием класса данных «объект».
uses GraphABC; const R = 20; begin var x0 := 0; var y0 := Window.Height div 2; TextOut(10, 20, 'Введите амплитуду (в пикселях):'); var A := ReadInteger; TextOut(10, 40, 'Введите период (в пикселях):'); var P := ReadInteger; var Left_Right := true; var i := 0; var w := Window.Width; LockDrawing; while true do begin if Left_Right then if (i < w) then inc(i) else Left_Right := false else if Left_Right = false then if i > 0 then dec(i) else Left_Right := true; var t : real := pi * i / 500; var x := i; var y := round(A * sin(2 * pi * i / P) / 2); if frac(x / P) < 1E-7 then begin end; Circle(x, y0 - y, R); redraw; Window.Clear; sleep(0) end end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определение типа класса по переменной на объект этого класса при компиляции | phomm | Общие вопросы Delphi | 24 | 08.04.2011 14:11 |
Шаблоны - нужно создать объект класса abc в котором вместо aa использовался бы объект класса fff? | Farrel | Общие вопросы C/C++ | 2 | 13.11.2010 17:37 |
Параметр конструктора класса = объект этого класса | nazavrik | Общие вопросы C/C++ | 6 | 14.02.2010 13:48 |
Если в классе объявить объект другого класса,будет ли видно переменные первого класса из объекта второго? | TwiX | Общие вопросы Delphi | 3 | 15.11.2009 00:54 |
арифметика класса + объект this | Nitrino | Общие вопросы C/C++ | 4 | 19.10.2009 21:00 |