Nom kiritish bosManishini

1- misol. Nuqtalar yordamida ekranning (0,0) nuqtasini (639,479) nuqtasi bilan tutashtiruvchi qizil rangli kesma chizish dasturini tuzing.

Yechish. Quyidagicha butun o'zgaruvchilarning qiymati bilan olinadi: bx:=0; ox:= GetMaxX; (ox:=639; kabi olish mumkin). Tekshirib ko'rishingiz mumkin, [bx, ox] oraliqda y=[GetMaxYx/GetMaxX] butun qiymatli chiziqli funksiyaning boshlang'ich qiymati 0 va oxirgi qiymati 479 boiadi (GetMaxY o'rniga 479 yozish ham mumkin). Endi parametrli takrorlash operatori yordamida tuzilgan quyidagi dastur misol yechimini' beradi.

Uses Graph;

Var gd, gm:integer;

bx, y, ox: Integer; x: Longlnt; Begin

Gd := 0; InitGraph(Gd, Gm, "); bx:=0; ox:= GetMaxX; For x:= bx to ox dobegin

y:= trunc(GetMaxY*x/GetMaxX); putpixel(x, y, red); end; ■

Readln; CloseGraph; End. Nima uchun x o'zgaruvchi Longlnt turida olinganini o'ylab ko'ring!