Құрылымдық диаграмма бағдарламасы

Мазмұны

1. Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .
2. Жалпы бөлім ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .
1.1 Құрылымдық диаграмма туралы түсінік.
1.2 Құрылымдық диаграмманың сипаталуы.
1.3 Алгоритм көрсетудін ерекшеліктері және тәсілдері.
1.4 Паскаль тілі.
1.5 Паскаль тілінің элементері.
3. Іс тәжірбиелік жұмыс ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
2.1 Есептің математикалық түрде берілуі.
2.2 Блок схема.
2.3 Қолданылған процедуралар,функциялар және модульдер.
4. Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
5. Қолданылатын әдебиеттердің тізімі ... ... ... ... ... ... ... ... ... ... ... .
        
        Мазмұны
1.
Кіріспе...............................................................
..................................
2. Жалпы
бөлім.................................................................
....................
1.1 Құрылымдық диаграмма туралы түсінік.
1.2 Құрылымдық диаграмманың сипаталуы.
1.3 Алгоритм көрсетудін ерекшеліктері және ... ... ... ... ... элементері.
3. Іс тәжірбиелік
жұмыс.................................................................
.......
2.1 Есептің математикалық түрде берілуі.
2.2 Блок схема.
2.3 Қолданылған ... және ... ... ... ... ... адамзаттқа әлдеқашан пайда болады. Ал, өркениет
дамыған сайын есептеу қажеттілігі арта түсіп, ... ... ... ... ... ... есеп ... немесе абактың
арифметикалық машинаның ерекшелігі, белгілі бір ... ... ... ... ... орны мен ... тәуелді болды. Осындай алғашқы
машинаның бірін 1642 жылы француз ... Блез ... ... болатын.
Арифметикалық операцияларды орындау үшін паскаль бір – бірімен байланысқан
дөңгелектің айналуын ... ... 0 ден 9-ға ... ... әр дөңгелек толық бір айналғанда екінші дөңгелек 1 санға жылжитын
болады. Машина қосып және шегере ... ... жаңа ... ... ... бірі ... еңбектері есептеуіш техниканың дамуына ықпалын жасап осы
машина негізінде көптеген есептейтін ... ... ... жылы ... ... ... ... әрекеттердің төртеуін
орындауға арналған арифмометр жасады. Осы негізде 1820 жылы ... ... ... ... арифмометрлер ... ... ... ... ... ... емес ... жасауды мәжбүр етті.
1840 жылдары ағылшын математигі Чарльз Бэббидж жан ... ... ... ... тырысты. Ең бірінші болып компьютердің ... ... және оны ... жады ... ... ... ойлап
тапты. Бірақ сол заманның техникасының дамуы әлсіз болғандықтан құрауға
шамасы келмеді. 1820 жылы 1856 ... ... ... ... – “аналитикалық машинаны” ойлап тапты.
ХІХ ғасыр соңында Америкада Холлерит Герман перфокарталар ... ... ... есептеу перфорация машинасын жасады. Ол ... ... ... шығаратын ІВМ фирмасының негізі болып табылады.
ХХ – ғасырдың 30-шы жылдары электромагниттік реле ... ... ... есептеуіш машиналарға арналған логикалық
схемалар жасай бастады. Бұл машиналар күрделі арифметикалық әрекеттерді
орындай ... ... ... ... ... ... ... жылы Говард Эйкен ІВМ ... ... ... ... реле ... жасап шығарды. Бірақ ол өте баяу істеп,
жылдам бұзылатын ... 1943 жылы Джон ... және ... ... ... ... ENIAC ... құрады. Бұл алдынғы
“Марк-1” компьютерінен әлде ... ... ... ... Бір ... ... іске қосылуы ұзақ болды. Өйткені, әр ... ... ... ... ... болғанша көп уақытты алған. Ал
қосылғаннан кейін есептеу ... ... бір ... ... ... – ақ ... беріп отырған. Осыдан кейін компьютерге жеңіл және
жылдам енгізу үшін ... мен ... ... жадында сақтай алатын жаңа
тәсілін құрастыра бастады. 1945 жылы бұл жаңа ... ... ... фон ... ... осы ... жайында баяндама жасап, оны ... паш ... Бұл ... ... ... ... жалпы
принциптері анық көрсетілген. Өңделетін деректер мен ... ... ... ... ... сақталуы керек деген тың ой айтылды.
40-50 жылдары құралған компьютердің бәрі электрондық лампадан ... ... өте ... ... өзі ... ... ... болды,
әрі электрондық лампадан тұратындықтан олар жиі жанып кете ... 1948 жылы ... ... ... ... жылы ... фирмасы интегралдық схемамен алғашқы компьютер
шығарды. Ал, 1970 жылы Intel ... ... ... жадымен сата
бастады. Сол жылы Intel фирмасынан үлкен компьютерден орталық ... ... ... ... ... ... 3 см-лі Intel –4004
микропроцессор дүниеге келді. 1974 жылы Intel –8008 атты 8 ... ... ... ... Міне осы ... бастап жаңа
дәуірдегі компьютерлердің алғашқылары өріс алды ... ... 1975 ... ... негізінде жасалған Альтаир –8800 дербес компьютерлер
сатыла бастады. Бұл компьютерлерге қосып монитор мен клавиатура жеке ... Осы ... ... Пол Аллен мен Билл Гейтс осы компьютерге Бейсик
тілінің интерпретаторын ойлап тапты. Альтаир –8800 компьютерін ... ... ала ... соң ... ... осы ... ... шығара
бастады. 1970 жылдардың аяғында үлкен компьютерлер шығаратын ІВМ ... ... ... ... ... 1979 жылы ІВМ ... фирмасының жаңа 8088 процессоры негізінде компьютер құрастыруға
кірісті.
1981 жылы ІВМ РС 16 разрядтық жедел жады 1 ... ... ... бір
екі жылдың ішінде 8 разрядтық компьютерлерді артқа тастап алдыңғы қатарға
шықты. ІВМ фирмасы өзінің компьютерін ашық ... деп ... ... шығарып, компьютер әртүрлі ... ... ... етіп ... ... аты
Диаграмма
Бағдарлама аты-Diagram.
Турбо Паскаль бағдарлама жүйесі.
IBM PC AT/286 және жоғары-компьютер.
Сипаттау.
Оң жылдан астам жұмыс істеп отырған фирманың табысын динамикасын көрсететін
және өзгертетін ... ... ... ... ... ... болмағандықтан оған математикалық модель құру талап
етілмейді
Кірілетін шамалар.
1.Тұрғызылатын диаграмма жыл сандары 10-нан аспауы ... ... ... ... ... ... еңгізілетін шамалар бағдарламаның сұранысына байланысты қойылады.
Шығарылатын шамалар.
1.Диаграмма аты.
2.Щеңбер диаграмма.Диаграмма құратын шеңбердін максималды табысқа ... ... ... және ... керек.Диаграмма секторы
әр түрлі боялуы керек,диаграмма осы түстерге сәйкес пиктограмма орналасуы
тиіс,табыс көлемі процентпен беріліп секторлардағы ... ... ... ... ... ... аяқтаймыз.
Қателер.
1.Сан,жыл мәндерін енгізген кезде енгізілген мәнге сәйкес бақылау қойылуы
керек,және сол ... жыл, сан ... ... ... ... ... ... шығарып,енгізуді қайталау керек.
2.Табыс көлемін қате енгізген кезде,барлық жылға деректерді ендіріп
болғаннан кейін қайтадан ... ... жыл ... ... ... ... көлемі хабарлаған айнымалының типіне
сәйкестігін тексеретін бақылау қарастыру керек.Қате табылған жағдайда дыбыс
шығарып , енгізуді қайталау қажет.
Құрылымдық диаграмма.
Бағдарламаның құрылымдық диаграммасы 6.2 суретте ... ... ... ... ... ... ... он үш
модульден құралған.Екінші деңгейдің барлық модульдері белгілі бір қосымша
мысалдарды ... әрі ... ... ... етпейді.Диаграмма
деректерінің ағымдарын құрмауға да болады,себебі деректерді еңдіру және
оларды өңдеу негізгі бағдарлама модулінің тізбектелген шақыруына байланысты
орындалады.
\
6.2-сурет Бағдарламаның құрылымдық диаграммасы.Diagramm
Диаграммадағы стандартты ... ... ... ... ... алынған.
Берілген тізімде,бағдарлама модуль аттары мен оларды орындайтын
процедуралар аттары ... ... ... ... ... ... стандарты еместігі,сол
процедуралардың тақырыбында ... ... ... ... ... ... құру” модулі
Диаграмма құру процедурасы
Басты_ сектор орнаттық=0
Нөмір_ секторы үшін 1-ден процедура _санына дейін
Сектордың_ түсін орнаттық
Cектор_нөмірін бірдей толтыратын ... ... ... ... ... ... ұқсайтын болса(7)
Ендеше сектор _түсін бірдей орнаттық 12
Егер ... ... ... ... ... ... есте ... сектор _нөмірі тең сектор _нөмірі _максималды _табыс
Ендеше ... ... ... ... және Y ... ... орталығы _максималды _табыс
Секторды саламыз
Әлдеқалай секторды салдық
Егер соңы
Тік бұроышты диаграмманы саламыз
Пиктограммадан оңға қарай жыл саның бастырып аламыз
Егрде процент мағынасы 10 кіші ... оңға ... ... ... _процентін бастырамыз 9пикселге
Әлдеқалай табыс_процентін бастырдық
Егер соңы
Символ процентін бастырдық
Соңы ... ... ... және ... бағдарламасы жазылған дискіні А дисковадқа
саламыз
2.Dos шақырғанан кейін а:diagram бұйрығын енгіземіз
3. ... ... ... ... ... ақпарат пайда болған кезде кез
келген пернені басыныз
5.Экранда енгізілетін деректерді енгізуінізді ... ... ... ... ... ... ... ендіріп болғаннан кейін,Қандайда бір жылға деректерді өзгерту
туралы сұраныс болса ,қайтадан енгізу кезінде Y(және у )деп ... ... ... мәліметті енгіземіз.Қайтадан ендіру аяқталғаннан кейін
экранда пайда болған N(және n) сұранысына жауап ... ... ... ... үшін кез ... ... ... диаграмманың бағдарламалық комплексі.
Құрылымдық диаграмманың бағдарламалық комплексі Triangl 6.1-суретінде
көрсетілген .Диаграммадан ... төрт ... ... қолданады.
Бірінші қадам- модульді атқарушы (Triangl).Екінші қадам төрт модульді
қосады:Menu,Informftion,Epsilon және Resalt.Үшінші қадам 17 ... ... ... II ... ... ... ... Wait ... ... ... ... ... бағдарламасы.
Diagramm бағдарламалық комплексінің жұмысының мысалы.
Diagramm бағдарламалық комплексінің ... ... ... есебітеулері келесі мәндерге жүргізіледі(бірліктер
табысы)
1985-1
1986-2
1987-3
1988-2
1989-1
Алгоритмді көрсетудің негізгі ерекшеліктері мен тәсілдері.
Алгоритм – операциялардың құрамы мен ... ... ... ... ... ... дәл ... – келген алгоритм мынадай өзгешеліктерге ие болу керек:
• Бір ғана ... ... көп ... ... ... қайталанбалығы (қайталанғыштығы).
• Нәтижелігі – бірқатар нәтижелерді міндетті түрде, алу (сан, кесте,
мәтін, дыбыс, ... және т.б.) ... осы ... алға ... ... ... ... сигнал.
• Көпке бірдейлік (массивностью) – жиынтық міндеттердің бірқатар тобы
үшін әр түрлі бастапқы деректерден нәтижелерді алу мүмкіндігі.
• Дискреттілік – ... ... ... ... ... ... ... мынадай формалары бар:
• сөз (текстік);
• графикалық;
• бағдарламалау тілінде.
Есептеу кезеңі төртбұрышпен бейнеленеді, оның ... осы ... ... ... тексеру ромбамен ... ... ... және ... шығару параллелограммен бейнеленеді,
оның ішінде «енгізу» ... ... ... ... әрі енгізілетін
немесе шығарылуы тиіс өзгермелілер есептеледі.
Бағдарламалау тілінде жазылған ... ... деп ...... ... ... үш базалық құрылым комбинациясында
берілуі мүмкін: • қолдану (қадағалап байқау)
• тармақталу (балама, егер – онда - ... цикл ... ... өздеріне тән өзгешелігі – олардың енуі де, шығуы ...... ... ... бір ... ... уақытында
тек бір – ақ рет бірінен кейін бірі тізбектілікпен орындалуы тиіс.
Тармақталу – ... ... ... қарай (ақиқат немесе
жалған) алгоритм жұмысын балама арқылы бір тұжырыммен ... әр ... ... ... ... ...... етеді.
Іс тәжірибелік бөлім.
Блок – схемалар.
Блок – схема – ... ... ... ... арқылы
орындалатын әрекеттер мен олардың ... ... ... ... берілетін алгоритм.
Алгоритмді блок – схема түрінде жазғанда ... ... үлгі ... мына ... ... ... басы ... - эллипс , алгоритмде нәтижелерді енгізу мен ... ... ... ... ... - ... шарттарды
тексеру - ромб фигураларының ішіне жазылады.
Блок – схема алгоритмді сипаттаудың графикалық тәсілі. Блок – ... ... ... ... ... ... ... графикалық түрде жазуды айтады.
Алгоритмді блок – схема түрінде жазуда қолданылатын ... ... ... | ... ... |
| | | ... ... ... – соңы | ... басы |
| |(кіру - шығу) | |мен ... ... ... ... | ... ... ... | ... |
| | | ... |
| | | ... өңдеу)|
|3. |Логикалық блок | ... ... | | ... |
| | | ... ... |
| | | ... ... ... ... | ... |
| ... | ... ендіру|
| | | ... ... |
| | | ... ... ... | ... ... |
| | | ... ... ... ... мәтіні.
Негізгі мәтінді бағдарлама комплексі Diagramm келтіреміз.
PROGRAM CirclDiagramma
USES Crt, Graph, Dos;
CONST
Rx=148;
Ry=158;
TYPE
massiv=array[1..10] of real;
VAR
Doxod :massiv; ... ... :real; ... ... ... {Жыл ... :real; ... табысы}
Nmin ... {Жыл ... ... ... периоды}
Logic ... ... ... ... {Жыл ... ... ... ... ... :real; ... ... ... ... ... Middle ---------------------------
---------------------
Процедура текст жолын шығарады,жолда орталандырып тұрады
Stroka-енгізілетін жол
Y -Y ... ... ... Middle (Stroka ... ... wait ... ... >80
then
begin
GotoXY (18,8);
Writeln(жолақтағы текст хабарлауы,’с:басталуы’);
GotoXY(21,10);
Write(‘ ” ’,Copy(Stroka,1,30),’…” ’);
GotoXY(29,12);
Write(’80 cимволға көтерілді!’);
WaitDos(6);
Halt;{бағдарламаның авариялық аяқталуы}
End;
X:=(80-Length(Stroka)) div 2;
GotoXY(X,Y);
Writeln(Stroka);
END;
{$I zast_cs.inc } ... ... } ... ... } ... ... енгізу}
{$I readreal.inc } ... ... ... } ... ... жыл ... табыс анализін процедураға енгізу және жыл басындағы
анализ ... ... ... ... {Енгізу бақылауының
дұрыстығы}
i ... ... ... ... саны ... ... іске ... 10 жылға дейін)және енгізілген санның бақылау
типі}
TextBackGround(6);
TextColor(15);
Middle ('==== Шамаларды есепке енгізу ... ... 10-ға ... ... ... енгізу бақылау арқылы енгізіледі! }
ReadInt(Period,CodIOR);
Flag:=(CodIOR=0) and
(Period=1);
if not Flag then Signal;
until Flag;
{Жыл басындағы анализді енгіземіз}
repeat
GotoXY(2,5);
Write('Жыл басындағы анализ . . ... {27 ... ... ... ... тазарту}
ReadInt(Year,CodIOR); ... ... ... ... енгізу}
until (CodIOR=0);{
END;
{----------------------------------------------VvodDoxod--------------------
------------------
Жылдардағы кәсіпорын табысы процедурасын енгізу
---------------------------------------------------------------------------
-----------------------}
PROCEDURE VvodDoxod(var Doxod : massiv);
VAR
Flag:boolean; ... ... ... ... ... ... ... ... ... саның бақылау
типін іске асыру '};
GotoXY(2,7);
Writeln ('Кәсіпорын табысының мағынасын ... ... i:=1 to Period ... ... . . . . ... ... ... шамаларын табысты енгізу!}
Flag:=(CodIOR=0);
if not Flag then Signal;
until Flag;
end;
END;
{-----------------------------------------------PovtorDoxod-----------------
------------------------
Қайталанып енгізілетін массивпроцедурасы-табыс
---------------------------------------------------------------------------
-----------------------------}
Procedure PovtorDoxod(var Doxod :massiv);
VAR
I ... ... ... ... ... ... ... ... 1-ге ... :real; ... енгізу, дұрыс енгізуге
қолданылған,одан кейін санның орнына қандайда бір символ енгізіледі}
BEGIN
GotoXY(1,19);
TextColor(6);
Write('-----------------------------------');
Write('--------------');
TextColor(0);
repeat
GotoXY(1,22);
ClrEOL;
GotoXY(1,20);
ClrEOL:
GotoXY(2,20);
Write('Енгізуді қайталау Y/N:');
Readln(Ansver);
Ansver:=UpCase(Ansver);
if Ansver='Y'then
begin
repeat
GotoXY(2,22);
ClrEOL;
GotoXY(2,22);
Write('жылды көрсету');
ReadInt(God,CodIOR);{сан периодын енгіземіз}
Flag:=(CodIOR=0) and
(God>=Year) and
(GodMax then
begin
Max:=Doxod[i];
Nmax:=i;
end;
end;
END;
{------------------------------------------Diagramma----------------------
----------------------
Процедура ... және ... ... Diagramma;
VAR
i:integer;
Ugol:massiv; ... ... ... ... ... саны диаграманың құрылуы үшін ----------}
for i:=1 to Period do Ugol[i]:=Doxod[i]*360/Summa;
SetBkColor(7);
SetColor(1);
OutTextXY(1, 10, 'ТАБЫСТЫ ОРНАЛАСТЫРУ ... 10, 'ЖЫЛ ... ... 450, ... үшін қандайда бір батырманы басу');
Line(50, 440, 365, 440);
Line(50, 468, 365, 468);
Line(50, 440, 50, ... 440, 365, ... ... ... құрылуы ----}
VarUgol:=0;
for i:=1 to Period do
begin
SetColor(i
SetFillStyle(1, i);
if i=7 then
begin
SetColor(12);
SetFillStyle(1, 12);
end;
VarUgol:=VarUgol+Ugol[i];
VarUgolNach:=VarUgol-Ugol[i];
if i=Nmax;
then
begin
SredUgol:=(VarUgolNach+VarUgol)/2;
Y:=10 * Sin(SredUgol*Pi/180);
X:=10 * Cos(SredUgol*Pi/180);
Sector(GetMaxX div 2 - 120 + ... div 2 ... ... Rx, Ry ... div 2 - 120, GetMaxY div ... ... Rx, Ry );
Bar(450, 10+i * 40, 470, 30 + i * ... 16 + i * ... * 100 / ... ... < 10 ... 16 + i * 40, ... 16 + i * 40, ... 16 + i * 40, '%');
end;
END;
{----------------------------------------------------------------------
-----------------------------
Бағдарламалық модульді атқарушы
-----------------------------------------------------------------------
------------------------------}
BEGIN
Zast_ cs;
TextBackGround(7);
ClrScr;
TextColor(0);
NumberPeriod, Year);
VvodDoxod(Doxod);
PovtorDoxod(Doxod);
SumDoxod(Summa);;
MaxDoxod(Doxod, Period, Max, ... ... ... ... Mode, ... ...

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 20 бет
Бұл жұмыстың бағасы: 400 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Excel кестелiк процессор10 бет
MS Excel ,MS Access бағдарламасы25 бет
Excel бағдарламасында диаграмма құру28 бет
«MS Excel – гі диаграммалар» оқыту – бақылаушы бағдарламасын өңдеу13 бет
Кәсіпорынның банкроттығын диагностикалау және бейдағдарыстық бағдарламаны әзірлеу55 бет
Delphi бағдарламалау ортасына сипаттама48 бет
Delphi ортасында анимация құру13 бет
«ОҚ Қазавтосервис» ЖШС жылжымалы құрамының агрегаттарды жөндеу учаскесінің технологиясын жетілдіру34 бет
Бағдарламалық қамтаманың сапасы5 бет
Дамытушы және қалыпқа келтіруші жұмыстардың модельдері5 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь