Nom kiritish bosManishini

3- misol. Ekran markazini koordinata boshi hisoblab nuqtalar yordamida x e [-5, 5] oraliqda ko'k rangda y=x²funksiya grafigini chizish dasturini tuzing.

Yechish. Bu vazifa quyidagicha hal etiladi:

uses Graph;

var gD,gm: Integer;

markazX, markazY: integer; x, y: real; begin

gD := 0; InitGraph(gD, gm, ");

markazX:=trunc(getmaxx/2); markazY:=trunc(getmaxy/2); x:=-5; while x<=5 do begin

y:=x*x; putpixel(trunc(10*x+markazX), trunc(-5*y+mar-kazY),blue);

x:.=x+0.01;end;

Readln; CloseGraph; end.

Dasturda masshtabni kattalashtirish uchun x ni 10 ga, y ni 5 ga ko'-paytirildi. Parabola shoxchalari quyidan yuqoriga yo'nalgan bo'lishi uchun «-» ishora qo'yilgan. Masshtabni kattalashtirishni va ishorani olib tashlab dasturni ishlatib ko'rish o'zingizga havola etiladi.