Сабақтың тақырыбы:"Программа мәтіндерін зерттеу"

1. . Программа мәтіндерін зерттеу

1-жаттығу. Бейнемониторды графикалық режімге ауыстыратын, режім туралы хабар шығараған соң экранда тік тӛртбҧрышты салатын, одан соң радиустары ӛсіріле бірнеше шеңберді салатын, әры қарай, берілген сандар кездейсоқ, тҥстері және координаталары кездейсоқ нҥктелермен экранды толтыратын, одан соң Sin(x) графигін сызатын және аяғында бейнемониторды мәтіндік режімге ауыстыратын программаның мәтінін зерттеңіз.

program Dem_Graf_1;

uses Crt, Graph;

begin

DriverVar, ModeVar, ErrCode, I, J, X, Radius : Integer; X_t, Y_t : string;

ClrScr;

Writeln('Текстовый режим. Для продолжения нажмите Enter'); Readln;

DriverVar:= Detect;

InitGraph(DriverVar,ModeVar,'c:\bp\bgi'); {графикалық режімді инициалдау}

SetTextStyle(DefaultFont,HorizDir,I); {үндемегендегі шрифт драйвері}

ErrCode := GraphResult;

if ErrCode = grOk then {егер графикалық режімнің инициалдануы ойдағыдай ӛтсе}

for I:= 0 to ModeVar do {графикалық режімді 0-ден ModeVar- дың мәніне дейін ӛзгерту}

SetGraphMode(I);

Str(GetMaxX,X_t); {GetMaxX функциясы қайтаратын сандық мәнді, графикалық режімде экранға шығару үшін, жолға түрлендіру}

Str(GetMaxY,Y_t);

OutTextXY (I*30, GetMaxY div 2,'Графический режим:‘+ X_t +‘x‘

+ Y_t);

Rectangle(1*20, I*20, GetMaxX-I*20, GetMaxY-I*20); for Radius := 1 to 10 do {10 шеңберді салу} begin

SetColor(Radius);

Circle(GetMaxX div 2, GetMaxY div 2, Radius * 20); Delay(200);

end;

for J:=l to 10000 do {экранда 10000 нүктелерді қою} PutPixel(Random(GetMaxX), Random(GetMaxY), Random(15));

end;