Паскальда Геометриялық фигуралардың графигін салу курстық жұмыс
МАЗМҰНЫ
КІРІСПЕ.................................
1 КОМПЬЮТЕРЛІК ТЕХНИКАНЫҢ ҚАУІПСІЗДІК ЕРЕЖЕСІ
1.1 Компьютерлік техника қауіпсіздік ережесі................
2 НЕГІЗГІ БӨЛІМ
2.1 Турбо Паскальда жұмысты бастау..................
2.2 Программа құрылымы.........................
2.3 Графикалық режим........................
2.4 GRAPH модулінің процедуралары мен функциялары..............
2.5 Геометриалық объектілерді құру процедуралары..........
2.6 Графикалық режімде мәтін жазу процедуралары.........
2.7 Мәтіндік режимде жұмыс.........................
3 АРНАЙЫ БӨЛІМ
3.1 Есептің қойылымы...................
3.2 Идентификатор кестесі......................
3.3 Есепті шешу алгоритмі........................
3.4 Бағдарлама листингі.................
3.5 Оператордың нұсқауы..........................
3.6 Бағдарлама нұсқауы.................
ҚОРЫТЫНДЫ......................
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ...................
ҚОСЫМША
Блок-схема............................
Нәтиже......................
Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 30 бет
Пәні: Соңғы қосылған курстық жұмыстар
-----------------------------------------------------------------------------------
КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
МАЗМҰНЫ
КІРІСПЕ.................................
1 КОМПЬЮТЕРЛІК ТЕХНИКАНЫҢ ҚАУІПСІЗДІК ЕРЕЖЕСІ
1.1 Компьютерлік техника қауіпсіздік ережесі................
2 НЕГІЗГІ БӨЛІМ
2.1 Турбо Паскальда жұмысты бастау..................
2.2 Программа құрылымы.........................
2.3 Графикалық режим........................
2.4 GRAPH модулінің процедуралары мен функциялары..............
2.5 Геометриалық объектілерді құру процедуралары..........
2.6 Графикалық режімде мәтін жазу процедуралары.........
2.7 Мәтіндік режимде жұмыс.........................
3 АРНАЙЫ БӨЛІМ
3.1 Есептің қойылымы...................
3.2 Идентификатор кестесі......................
3.3 Есепті шешу алгоритмі........................
3.4 Бағдарлама листингі.................
3.5 Оператордың нұсқауы..........................
3.6 Бағдарлама нұсқауы.................
ҚОРЫТЫНДЫ......................
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ...................
ҚОСЫМША
Блок-схема............................
Нәтиже......................
КІРІСПЕ
Қазіргі компьютерлерде символдардан бөлек әр түрлі суреттер, графиктер
Курсттық жобама байланысты Графикалық режимнің мүмкіндіктерін қарастырдым яғни
Дисплей экранына график салу үшін оның нүктелерінің координаталарын көрсету
Графикалық режімде жұмыстарды атқаратын Турбо Паскальдің 7.0
Графикалық режімді алғаш рет іске қосу (инициализациялау) үшін
1 ҚАУІПСІЗДІК ЕРЕЖЕСІ
1.1 Компьютерлік техника қауіпсіздік ережесі
Компьютерлік техника кабинетінде жұмыс жасау
Аталған міндеттерді орындауда студент төмендегідей:
жалпы;
дербес компьютерде жұмыс жасау алдындағы;
жұмыс жасау кезіндегі ;
апаттық жағдайдағы;
жұмыс соңындағы талаптар мен ережелерді
Жалпы техника қауіпсіздігінің ережелеріне қойылатын
компьютерді токқа қосатын сымдарға, қос
Оқытушылардың рұқсатынсыз сыныптан шығуға
Дербес компютерді су қолмен және
Дербес компьютердің жанына портфельдер, сумкалар,
Клавиатураға артық зат қоюға болмайды.
Компьютерлік сыныпта жүгіруге, ойнауға, жанындағы құрбыларын
2. Дербес компьютермен жұмыс жасау
- Дербес компьютерді іске қосу кезінде
3.Студенттердің дербес компьютермен жұмыс жасау
- ЭВМ – мен жұмыс кезінде көзді
- Сыныпқа кірушілермен орнынан тұрмай
- Электр тогымен зақымданған жағдайда
4. Апаттық жағдайда техника қауіпсіздігі
- Жұмыс жасап отырған кезде
- Өрт сөндіруге көмек көрсету
- Электр тогымен зақымданған адамға алғашқы
- Компьютерлік сыныпта өртті сумен
- Электр тогының әсерімен зақымданған
5. Дербес компьютерде жұмысты аяқтаған
- Оқытушылардың нұсқауы бойынша аппаратты
- Жұмыс орнын ретке келтіру .
- Электр тогымен зақымданған жағдайда алғашқы
Студент компьютермен жұмыс жасау барысында
1. Токты өшіру ( щиттағы ( қалқанды) батырманы
2. Зақымданушыны ток әсерінен ( сымнан) босату.
3. Дәрігер шақыру.
4. Зақымданушыны қарап шығып, оның алған
1.2. Күйген жағдайда:
- ауырғанда сездірмейтін дәрілер (анальгин, валерион) беру
- Күйген жерге арнайы май жағу
- Зақымданған жерге суық су құю.
- Алдын- ала жараланған, микробтар түспес үшін
1.3. Есінен танып қалған жағдайда:
- Зақымданушыны жауырынмен тегіс жерге жатқызып,
1.4 Тыныс алысы тоқтаған жағдайда:
- ауызды ашып тілдің орналасу
- Дем алыс жағдайына келгенге
1.5. Шаршаған жағдайда қолданылатын жаттығулар:
- Студент компьютермен жұмыс жасай отырып
2 НЕГІЗГІ БӨЛІМ
2.1 Турбо Паскальда жұмысты бастау
Турбо Паскальдің интегралдық ортасы пайдаланушылардың сұраныстарын операциялық жүйесі-ақ қамтамасыз
Интегралдық ортаға кіру. Ds-тың командалық қатарында C:TPTURBO EXAMPLI:1PAS деп
Редактордың терезеде терілетін программа мәтінін қабылдауға немесе бұрынғы бар
Белсенді терезе. ТР интегралдық ортасы бірнеше тереземен жұмыс жасауға
Белсенді терезеде программа мәтінін жазу. Егер терезеге программа мәтіні
Программаны сақтау. Терілген белсенді терезеден Ғ2 пернесін басу арқылы
Программаны компиляциялау. Ғ9 не ALT+Ғ9 пернесі басылғанда компилятор программаны
Программаны орындау. Программаны орындау командасы Ctrl+Ғ9 пернелер комбиляциясымен іске
Көшірме алу . Жұмыс соңында дискіде файл көшірмесін алған
Файлды ашу. ТР –да дискіде сақталған программа мәтінін редактор
Жаңа экранды ашу . Alt+F пернесін басып, File мәзірінен
Тексті баспаға шығару. Принтерді іске қосып, “File” мәзіріндегі “Print”
Турбо Паскальдан щығу - Alt+X пернелерін басу арқылы орындалады.
Паскаль тілінің алфавиті
Паскаль тілінде қолданылатын символдар: 1)26 үлкен және кіші латын
1-кесте
Арнайы символдар Мағынасы
‘ Дәйекше
{ } Жүйелік жақша
= Тең
Кіші
Үлкен
Кіші не тең
Үлкен не тең
- Азайту
* Көбейту
/ Бөлу
( ) Жай жақша
[ ] Тік жақша
: Қос нүкте
. Нүкте
, Үтір
; Нүктелі үтір
+ Қосу
Паскаль тіліндегі программа - сипаттау және операторлар бөлімдерінен тұрады.
Программалауда айнымалы деп мәлімет үшін жадтан бөлінген орынды айтады.
Иденфикатор ретінде кілт сөздерді қолдануға болмайды. Айнымалылар жәй және
Мысалы: Top, X, Z5, Vol, F[1], B[2,1], A[I], B[IJ].
2-кесте
Кілттік сөздер Аудармасы
And
Array
Begin
Case
Const
Do
End
File
For
Function
If
Or
Else
Procedure
Program
Record
Repeat
Then
Type
Var
Және
Массив
Басы
Таңдау
Тұрақты
Орынды
Соңы
Файл
Үшін
Функция
Егер
Немесе
Әйтпесе
Процедура
Программа
Жазу
Қайталау
Онда
Тип
Айнымалы
2.2 Программа құрылымы
Программа мәтіні : Program ;- деп аталатын, міндетті
Label (белгілер)
Const (тұрақтылар)
Type (типтер)
Var (айнымалылар)
Function, procedure (функция,процедуре).
Сипаттау бөлімінен Begin, End – операторлық жақшаларына алнған программаның
Айнымалылар келесі схемалар түрінде сипатталады:
Var :;
- стандартты тип атауы не сипатталған тип арқылы
Type = ;
Тұрақтының сипатталуы : Const = ;
Белгідердің сипатталуы: Const = ;
Белгілердің сипатталуы : Label ; белгі – ең
Түсініктемелер фигуралық жақшаға алынып жазылады. Оларды жазу үшін орыс
Оператор – белгілі бір іс - әрекет орындау үшін
үтір (;) қойылады. Бірнеше оператолар Begin; End түсінді сөздерімен
Стандартты типтер:
Паскальда анықталған стандартты типтер:
Бүгін типтер-Shortint, Integer, Longing, Byte, Word;
Нақты типтер-Real, Single, Double, Extended, Comp;
Логиқалық тип-Boolean;
Символдық тип-Char;
Жолдық (қатарлық)тип-String;
ASCII - қатарлық тип - Pchar;
Мәтіндік файл-Text;
Нұсқағыш тип-Pointer.
Программалаудың элементтері:
Программлаудың көпшілігі белгілі бір есепті шешу үшін жазылады. Ал
Ақпараттарды программаға кіргізу-енгізу ;
Ақпараттарды сақтау-деректеу ;
Деректеудің өңдеудің дұрыс командаларын беру- операциялар;
Программардан деректерді алу – шығару керек екенін білу қажет,
Сонымен , программалаудың жеті түсініктерін атап өтейік енгізу, деректер,
Енгізу. Бұл пернеліктен келіп түсетін немесе сыртқы есте сақтау
Деректер. Бұл тұрақтылар, айнымалылар, массивтер, жазбалар, жиындар, мәтіндер, файлдар;
Операциялар. Мәтіндерді менщіктеуді өрнектеуді , мәндерді салыстыруды қамтамасыз етеді;
Шығару. Бұл ақпараттарды дербес компьютердегі мониторындағы экранға шығару немесе
Шартты орындау. Бұл бір немесе бірнешелердің командалардың белгілі бір
Циклдер. Мұнда командалардың жиыны қандай да бір шарт ақиқат
Қосалқы программалар. Программаныңғ кез-келген жерінде аты арқылы шақырып орындауға
2.3 Графикалық режим
Қазіргі компьютерлерде символдардан бөлек әр түрлі суреттер, графиктер
Біз бұл оқулықта CRT жәнеGRAPH кітапханаларындағы процедураларды пайдаланамыз.
USES GRAPH;
Түйінді сөзін пайдалану керек . график сызуда CRT
USES GRAPH CRT;
жолы қолданылады.
Жалпы дисплей адаптерлері рафикалық режімде 200, 350 тіпті 600
Графикалық режімде жұмыстарды атқаратын Турбо Паскальдің 7.0
2.4 GRAPH модулінің процедуралары мен функциялары
Графиктермен жұмыс істеу алдында оған сәйкес
GRAPH модулі іске қосылысымен оның ішіндегі процедуралар мен функцияларды
Графикалық режімді алғаш рет іске қосу (инициализациялау) үшін
Init Graph( Driver var, Mode Var: integer, Gol:string);
Мұндағы Driver Var, ModeVar деп атлатын бүтін типтегі екі
DriverVar:= VGA; DriverVar:=VGAL0;
Алғашқы параметр тұрақты түрінде немесе нөмірімен де беріле береді
DriverVar:=VGA; DriverVar:=9;
Егер дисплей типін көрсеткіміз келмесе немесе оны
Uses crt, graph;
Var drivervar,modevar: integer;
Begin
Drivervar:= detect;
Initgraph( drivervar, modevar,’ TPGraph’);
Мұндағы drivervar –графикалық адаптерінің типі;
ModeVar-оның жұмыс режімі’TP GRAPH’ – графикалық адаптердің орналасқан орны,
Графикалық режімнен шығу (программаны аяқтау ) үшін параметірсіз
Get Graph Mode:integer;функциясы адаптердің яғни графикалық драйвердің ағымдағы режімнің
SetGraphMode(Mode:integer)- бұл процедура графикалық режім орнатады да, экранды тазартады,
Pogram reg;
Uses graph;
Var f,g:integer;
Begin
F:= detect; init graph(f,g,’’);
Writeln(‘graficalk regim’);
Writeln(‘Enter-di bas’);
Readln;
RetoreCRTMode; writeln(matindik regim’)
Readln;
Setgraph Mode(get graphMode);
Writeln(‘);
Readln;
Closgraph
End.
Бұл программа графикалық режімнен мәтіндік режімге және
moveTo(X,Y:integer)- курсорды көрсетілген мәндері бойынжа жаңа координаталарға жылжыту( көрсеткіштің
MoveRel(DX,DY:integer) – курсорды тұрған нүктеден әрі қарай ДХ бірлігіне
RestoreCRTMode процедурасы графикалық режімнің алдындағы режімді қалпына келтіреді. Оның
GetX:integer функциасы Х координатасының ағымдағы мәнін береді,
GetY: integer функциасы Ү координатасының ағымдағы мәнін береді.
2.5 Геометриалық объектілерді құру процедуралары
Нүкте салу операторы . Экранның кез келген жеріне нүкте
Put Pixel (X,Y: integer; Color: word);
Мұндағы Х,Ү- нүкте координаталары , соІог оның түсін анықтайды.
GetPixel(X,Y:integer): word; функциасы қолданылады.
Түзу сызық салу процедурасы экранда екі шетінің
Line(X1,Y1,X2,Y2:integer); мұнда ағымдағы түс бойынша координаталары Х1,Ү1 нүктесінен Х2,Ү2
Lineto (X,Y :integer; - курсор тұрған орынан бастап координаталары
LineRel(DX,DY: integer) –ағымдағы нүктеден қашықтығы координаталары өсімшесіне ДХ, ДҮ
SetLineStyIy(T,O,Th:word)- сызық қалыңдығы мен стилін орнату , Т- сызық
Р параметірі ұзындығы 16 пикселден тұратын кесінді сызады,
NormWidth=1(қалыңдыға бір пиксел сызық)
ThickWidth=3;(қалыңдығы үш пиксель сызық)
Мысалы:
SetLineStylr(Dootedn,0, normWidth);
Retangle(15,15,150,130);
Сызық салу кезінде оның түсі алдыңғы орнатылған түспен беріледі,
SetColor( color: word); процедурасы қолданылады, мұндағы соІог – жаңадан
SetColor(cyan)
setColor(7)
SetBkColor(color:word) процедурасы экран түсін, яғни рең түсін өзгертеді, мұндағы
SetBkColor(blue); экран түсі көк болады
SetColor(4)экран түсі қызыл болады
Көп бұрыш сызу процедурасы көп бұрыштың бірнеше
Rectangle(x1, y1,x2,y2:integer) –сол жақ жоғарғы (х1,ү1) және оң жақ
For i:=1 to 100 do
Begin
Setcolor (grin);
Retangle(2006Random(300)250,300);
Dely(50);
ClerDevice
End;
Бойалған төртбұрыштар келсі процедуралар арқылы сызылады.
Bar(x1,y1,x2,y2:integer);- мұнда ағымдағы түспен іші бойалған төртбұрыш сызады. Бояау
SetFilleStily(Pattern6 Color:word)- объектінің ішін бояйды, толтыру стилі мен түсін
Floodfill(x,y:integer; Bor;word) –таңдалған стиль бойынша тұйық фигураның ішін бойяйды.Мұндағы
DrawPoly(N:= word; var Poins);- ағымдағы түспен және сызық түсімен
drawPoly процедурасын пайдаланып , көсбұрыш сызуға да болады.
Доға, шеңбер және эллипс сызу процедуралары фигура салу кезінде
Circle(x,y: integer;r:word); шеңбер сызу процедурасы, мұндағы х, ү –
Setcolor(green);
Circle(450,100,50);
Arc(x,y:integer;B1,B2,R:word)- доға сызу процедурасы, мұндағы х,ү – центірдің координаталары,
Setcolor(red);
Arc(450,100,,0,90,50);
Ellips(x,y:integer;B1,B2,RX,RY: word); -эллипс доғасын сызады, мұндағы х,ү – центр
Setcolor(ligthred);{ эллипс сызығының түсін орнату}
Ellips(100,100,0,360,30,50);{ толық эллипс сызуы }
Эллипс ішкі экран түсімен бірдей , оның іші
FillEllips(x,y:integer; XR
Эллипстің боялған секторын сызу процедурасы да бар, оның
Sector(x,y:integer;B1,B2,XR,YR:word)- эллипстің боялған секторын сызу, мұндағы х,ү- центірдің координаталары,
2.6 Графикалық режімде мәтін жазу процедуралары
Графикалық процедуралар кітапханасында графикалық режімде экранға символдан тұратын
Графикалық экранда мәтін жазу процедуралары экранға график
Outtext(tex:string) процедурасы арқылы берілген орынан бастап мәтін жолын
Outtexty(x,y:integer; Tex: string); мұндағы х, ү – мәтін жазылатын
SetTextStyle(Font:word, Direction:word,CharSise:word);- шығарылатын мәтінің стилін орнатады, мұндағы Font- қаріп
SetUserCharSize( MultX6 DivX6 MultY, DivY:word);- бұл процедура символдардың өлшемін
2.7 Мәтіндік режимде жұмыс
Турбо паскальдің мәтіндерді енгізіп – шығаруды жетілдіретін бірнеше
Метіндік режімде адаптерлер экранға 40 немесе 80 жолдан
Program;
Uses CRT;
CRT модулін пайдалана отырып, экранға шығарылатын символдардың түсін, мөлшерін,
Сонымен бірге экранда терезе жасауға , оны
Text Mode ( Mode: word);
Мұндағы Mode- мәтіндік режім коды.
CRT модулін пайдалана отырып, экранға шығарылатын символдардың түсін, мөлшерін,
Мәтіндік режімде символдар 16 түстің біріне, экран реңі
Экранға шығарылатын символдың түсін
TextCloro( cloro:Byte);
Процедурасы арқылы өзгертеді, мұндағы cloro- түс нөмірі.
Экранның түсін өзгерту үшін
textBackground(color:Byte);
процедурасы пайдаланылады.Соlоr айнымалысының мәні ретінде түс аты немесе нөмірі
Экран түсі мен символ түсі бірдей болса
Program sbet;
Uses crt;
Const col: array[1..15] of string;
Var k:byte; i:integer;
Begin
For k:=1to 15 do
Begin
Textclor(k);
Writeln(k,’-түс с “,”-“,col[k]);
End;
Textcolor(light Gray);
Writeln;
End.
Бұл программа орындалғанда экранға түстің нөмірі және оған
Енді экранды тазартатын бірнеше процедураларды қарастырайық.
ClrScr-экранды немесе терезені тазалап , курсорды экранның сол жақ
ClrEol-курсордан жол соңына дейінгі символдарды өшіреді
DelLine-курсор орналасқан жолдағы символдар түгел өшіріледіде төменгі жолдар бір
LnsLine- курсор орналасқан позицияға жаңа жол енгізіледі ді, төменгі
Турбо Паскаль тілінде курсорды басқаратын және оны кез
Goto XY(X,Y:byte);- курсорды координаталарыХ,Ү болып келетін экран нүктесіне көшіреді.
3 АРНАЙЫ БӨЛІМ
3.1 Есептің қойылымы
Графиктік режимде гиометриялық фигура салу
Кесте 3
3.2 Идентификатор кестесі
Атауы Идентификаторы Типі
Графикалық айнымалы Cd Integer
Графикалық айнымалы Cm Integer
айнымалы a Integer
3.3 Есепті шешу алгоритмі
Графикалық режимде геометриялық фигураны салу үшін ең алдымен
If a=49 then
begin
setgraphmode(getgraphmode);
Setcolor(5);
circle(100,100,100);
Setcolor(14);
outtextxy(10,450,'mazirge kaitu uwin
end;
дал солай етіп бірнеше фигураны да меншіктеуге болады.
3.4 Бағдарлама листингі
uses graph,crt;
Label metka;
var Cd,Cm:integer;
mode,a:integer;
Begin
Cd:=detect;
Initgraph(Cd,Cm,'С:tpbgi');
If GraphResultgrok then halt(1);
Setcolor(14);
outtext('gr rejimge otu uwin
Readln;
metka:Restorecrtmode;
clrscr;
textcolor(14);
writeln;
Writeln('1. wenber');
Writeln('2. tuzu');
Writeln('3. tortburiw');
Writeln('4. elips');
a:=ord(readkey);
If a=27 then halt;{Esc пернеси арқылы шығу}
If a=49 then{1 пернесін басу арқылы шеңбер салады}
begin
setgraphmode(getgraphmode);
Setcolor(5);
circle(100,100,100);
Setcolor(14);
outtextxy(10,450,'mazirge kaitu uwin
end;
If a=50 then{2 пернесін басу арқылы түзу салады }
begin
setgraphmode(getgraphmode);
Setcolor(5);
Line(250,100,200,200);
setcolor(14);
outtextxy(10,450,'mazirge kaitu uwin
end;
If a=51 then{3 пернесін басу арқылы төртбұрыш салады }
begin
setgraphmode(getgraphmode);
Setcolor(5);
rectangle(250,100,200,200);
setcolor(14);
outtextxy(10,450,'mazirge kaitu uwin
end;
If a=52 then{4 пернесін басу арқылы элипс салады }
begin
setgraphmode(getgraphmode);
Setcolor(5);
ellipse(250,100,0,360,100,30);
setcolor(14);
outtextxy(10,450,'mazirge kaitu uwin
end;
readln;
goto metka;
closegraph;
End.
3.5 Оператордың нұсқауы
3.5.1 Бағдарлама мақсаты
Графикалық режимде калай жұмыс істеу керектігімен және процедураларды
3.5.2 Эксплотациялау қызметі
Бұл бағдарлама кез-келген математика саласында қолданылады.
3.5.3 Бағдарламаның орындалу шарттары
Құрылған бағдарламаның талаптарына техникалық және бағдарламалық құрылғалардың сәйкестігі.
3.5.4 Техникалық құралдардың минималдық құрамы
Видео карта 128 мб
ОЗУ 2гб
Қатқыл диск 320 Гб
Процессор Intel Celeron 1.8
Қатқыл дискде бос орын 1 гб.
3 .5.5 Бағдарламалық жабдықтардың минималдық құрамы
Windaws sp3. Turbo Pascal7
3.5.6 Бағдарламаның орындалуы
Мой компьютер→Локальный диск С→TP→ Araika.pas
3.5.7 Бағдарламаның орындалу тәртібі
1 – Шеңбер салады
2 – Түзу салады
3 – Төрт бұрыш салады
4 – Элипс салады
5 – Негізгі мәзірден шығады
3.5.8 Бағдарлама жұмысының аяқталуы
Бағдарламаны өшіру Alt+x пернелігін басып шығу немесе →Exit.
3.5.9 Операторға хаттама
“Error 8: String constant exceeds line” қателігі шыққан жағдайда
3.6 Бағдарлама нұсқауы
3.6.1 Бағдарлама мақсаты мен қолдану шарттары
Бағдарламаның орындалуына қажетті шарттар:
ОЗУ 2гб
Қатқыл диск 320 гб
Қатқыл дискте бос орын 1 гб
Процессор Intel Celeron 1.8 ггц.
3.6.2 Бағдарлама сипаты
Бұл бағдарлама графикалық режимде түрлі фигуралардың графигін салады және
3.6.3 Бағдарламаға назар аудару
Мой компьютер→Локальный диск С→ТР→Bin →Araika.pas
ҚОРТЫНДЫ
Мен Устемирова Арайлым«алгоритмдеу негіздері және бағдарламалау» сабағының курстық жобасында
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ:
1. Бөрібаев Б., Нақсыбеков Б., Мадияров Г .
2. Камардинов О.С. “Есептеуіш техника және программалау
3. Бельгибаев Б.А., Бижанова А.С., Масанов Ж.Қ., Мақұлов Қ.Қ
4. Мұхамеджанова С.Т . Оқушы анықтамасы «Арман
5. Ташимов А . “Программалу
6. «Есептеуіш комплекстердің оператциялық жүйелері және оларды бағдарламамамен
8. “Информатика негіздері, ғылыми әдістемелік” журнал 2007ж.
ҚОСЫМША
Қосымша 1
Блок-схема
Қосымша 2
Нәтиже
Негізгі бет
Негізгі мәзір
Шеңбердің салынуы
Түзудің салынуы
Төртбұрыштың салынуы
Элипстің салынуы
3
a=49
Ашық қызыл туспен
шеңбер салады
a=50
Ашық қызыл туспен
түзу салады
a=51
Ашық қызыл туспен
тортбұрыш салады
a=52
Ашық қызыл туспен
элипс салады
4
3
Соңы
4
1
Setcolor(14)
Grafikalik
rejimge out
uwin
Textcolor(14)
Wenber,tuzu,
tortburiw,elips
a:=ord(readkey)
a=27
halt
3
2
Басы
1
2
Takiribi:Geometrialik figuranin grafigin salu
Orindagan:
Ustemirova A
Kabildagan:
Mirzaxmedov D
Setcolor(green)
graphResult>grok
halt
Initgraph(Cd,Cm,C:tpbgi)
Cd:=detect
2
Бет