Практикалық жұмыс №10 «Бейнелерді құру»

Практикалық жұмыс №10 «Бейнелерді құру»

1. 
   Келесі түрдегі Y=F(x) функциясының графигін тұрғызыңыздар:
   

50≤x<100 Y=x-50

100≤x<150 Y=50

150≤x<200 Y=-(x-200)

200≤x<250 Y=0

Барлық өлшемдері пиксельмен берілген.

2. 
   Rectangle әдісін қолданып, оған қажетті координаталарды бере отырып, тіктөртбұрыш сызыңыздар.Төмендегі қасиеттерді орнатыңыз:
   

3. 
   RadioGroup құрауышын және TCanvas класының негізгі әдістерін қолдана отырып, геометриялық фигураларды сызатын қосымша құрыңыз (шеңбер, элиипс, бұрыштары дөңгелектенген тіктөртбұрыш, бұрыштары дөңгелектенген квадрат, квадрат және т.б.).
   
4. 
   Алдыңғы тапсырманың бағдарламасын өзгертіңіз, геометриялық фигураны салу үшін Additional парағының Shape құрауышын қолданыңыз.
   

Samples парағының ColorGrid құрауышын қолдана отырып, геометриялық фигураның түрін өзгертіңіз.

Shape1.Brush.Color:=
ColorGrid1.ForeGroundColor;

5. 
   Пішіннің канвасында сурет салуға мысал:
   

Келесі оқиғаларға реакцияны өңдейтін процедурураларды жазыңыздар:

isdown:=true;

form1.canvas.moveto(x,y);

end;

procedure Tform1.Form1MouseMove(…);

begin

if isdown then Form1.Canvas.LineTo(X,Y);

isdown:=false;

end

Осы бағдарламаны іске қосыңыз, сонда сіз пішіннің терезесінде тышқанның көмегімен сурет сала аласыз.

5. 
   Image немесе PaintBox құрауыштарын қолдана отырып, көпбұрыштардың интерактивті салынуын көрсетіңіз (сызықтың тізбектей салынуын қолмен жүргізіңіздер).
   
6. 
   Pixels қасиетін қолдана отырып функциясының графигін шығаратын бағдарламаны құрыңыз және талдаңыз. Графикті тұрғызу үшін барлық мүмкін аймақтар қолданылады, сонымен қатар бағдарламаның орындалу барысында терезенің өлшемі өзгеретін болса, онда график нақты өлшемді ескере отырып, қайтадан шығады.