51
procedure TForm1.FormActivate(Sender: TObject);
var k: integer;
begin
for k:=0 to 20 do
Chart1.SeriesList[0]. AddXY(k,(sin(k*pi/10)),' ', clGreen);
end; end.
Синус функциясының графигі
Негізгі әдебиет: 2 [стр.170-180]
Қосымша әдебиет: 11 [стр.165 -199]
Бақылау сұрақтары
1. Қозғалысты қалай программалаймыз?
2. Графиктік функцияларды атаңыз?
3. Графиктік процедураларды атаңыз?
4. Диаграмма және график салу жолдары.
5. Индикаторларды пайдалану жолдары.
6. Функциялардың графиктері мен диаграммаларды қалай сызамыз?
11-12 дәрістің тақырыбы: Delphi-дің мультимедиалық мүмкіндіктері
Жоспар:
Кіріспе
Animate компоненті
MediaPlayer компоненті
Достарыңызбен бөлісу: