logo
  1. Главная страница
  2. Рефераты
  3. Информатика и ИТ
  4. Карат мухитида дастур тузиш

Карат мухитида дастур тузиш

Загружено в:

20.09.2019

Скачано:

0

Размер:

56.5 KB
Скачать
www.arxiv.uz Карат мухитида дастур тузиш Дастур тузувчи энг аввало бажариладиган вазифанинг алгоритмини билиши, команда ва функциялар тугрисида маълумотга эга булиши керак. Агар дастур маълумотлар базаси (МБ) файли билан ишлаш учун тузилса, МБ нинг жорий каталогда мавжуд булиши, еки уни дастур тузишдан аввал ташкил килиб олиш керак. Дастур тузиш учун тахрирловчини чакириш учун интерактив режимда туриб . MODIFY COMMAND <файл> командаси берилади. Агар <файл> мавжуд булмаса, янги <файл> ташкил килинади. Бу файлнинг кенгайтмасини система автоматик равишда.PRG деб кабул килади. Тахрирловчи (редактор) нинг куриниши куйидагича булади : Тахрирловчидан CTRL+END тугмачаларни босиб, интерактив режимга утиш мумкин. Дастурни ишга тушириш учун .DO <файл> командаси берилади. Интерактив режимдан туриб берилган буйрукларни кайта ишлатиш учун пастга ва юкорига стрелкаларини босиш кифоя, чунки бу буйрукларнинг руйхатини система махсус буферда саклаб туради. Системадан чикилганда бу руйхат бекор килинади. (MODIFY ва DO командаларига каранг). www.arxiv.uz Куйида дастур тузиш учун мухим булган меню тузишни куриб чикайлик. ***** Меню ташкил килиш SET STAT OFF && статус катоpини олиб ташлаш SET TALK OFF && командалаp пpотоколини олиб ташлаш SET COLO TO B/W,GR+/R+ && pанглаpни уpнатиш gr+ менюни; ************************* pанги, r+ меню фонининг pанги SET MESSAGE TO 24 && билди p ишни 24 сат p га жойлаяпти SET DEVICE TO SCREEN @ 0,0 CLEAR && Эк p анни тозалаш @ 1,1 TO 22,78 DOUBLE &&p амка чизиш @ 3,3 TO 10,76 DOUBLE @ 6,8 SAY &#34; ТАБИИЙ ГАЗ БИЛА H ТАЪМИ H ЛАШ П P ОГ P АММАСИ &#34; @ 8,8 SAY &#34;Автоp: 27-97 гуpух толиби Обидов Азиз&#34; @ 13,3 TO 15,76 DOUBLE && p амка чизиш ******** МЕНЮ ТУЗИЛИШИ @ 14,15 PROMPT &#34; Сервис &#34; MESS &#39; Ки p итиш , тузатиш ишла p ини бажа p иш &#39; @ 14,30 PROMPT &#34; Тулов счетлари &#34; MESS &#39; Киди p иш ва хисоблаш &#39; @ 14,56 PROMPT &#34; Чикиш &#34; MESS &#39; П p ог p аммадан чикиш &#39; MENU TO n && n - менюнинг номи DO CASE CASE n=1 www.arxiv.uz DO kir && kir номли п p ог p аммани ишга туши p иш CASE n=2 DO ts && ts номли п p ог p аммани ишга туши p иш CASE n=3 QUIT && п p ог p аммадан чикиш (MS DOS га ) ENDCASE А гар меню 2 та булимдан ташкил топган булса , DO CASE ... ENDCASE командалари урнига IF... ELSE ... ENDIF командаларидан фойдалансак хам булади. Масалан : MENU TO n IF n=1 <1 - ходисага тегишли командалар руйхати> ELSE <2 - ходисага тегишли командалар руйхати> ENDIF Вазифа. Институтга Фаргона водийсидан келиб укийдиган студентлар тугрисида куйидаги маълумотларни янги МБ га киритинг: 1) Фамилияси - 20 та позиция; 2) Исми - 15 та позиция; 3) Вилояти - 8 та позиция; 4) Еши - 8 та позиция (еш сана форматида курсатилади); 5) Жинси - 5 та позиция. Талабалар тугрисида киритилган маълумотларни вилояти ва жинси буйича саралаш программасини тузинг. Саралаш натижаларини экранга ва принтерга чикаринг. www.arxiv.uz *** 1 - дастур , 28.11.98 йил , dars1.prg SET TALK OFF SET STATUS OFF SET MESSAGE TO 22 && MESSAGE командасида курсатилган ********************** изохни чикариш учун жой курсатиш SET COLOR TO B/W,GR+/R+&& ранг атрибутларини урнатиш USE STUD && STUD номли базани очиш GO TOP&& ёзувлар курсаткичини база бошига урнатиш CLEAR && экранни тозалаш @ 1,1 TO 22,78 DOUBLE && 2 талик рамка чизиш @ 3,3 SAY &#34;Студентлар тугрисида маълумотни саралаш&#34; @ 5,5 PROMPT&#34;Вилояти&#34;MESSAGE&#39;Талабаларни вилоятлари буйича саралаш&#39; @ 5,25 PROMPT&#34;Жинси &#34; MESSAGE&#39;Талабаларни жинси буйича саралаш&#39; MENU TO var && var - менюни номлаш учун берилган узгарувчи IF var=1 && шартни текшириш wil1=SPACE(15) && wil 1 - 15 та буш позициядан иборат узгарувчи @ 10,3 SAY &#34; Кайси вилоят буйича ? &#34; GET wil1 READ && wil1 га киритилганларни укиб олиш SET FILTER TO wil1=wil && wil - базадаги вилоятлар учун ****************************** ажратилган майдон ELSE && акс холда jins1=SPACE(10)&&wil1 - 10 та буш позициядан иборат узгарувчи @ 10,3 SAY &#34; Кайси жинс буйича ? &#34; GET jins1 www.arxiv.uz READ SET FILTER TO jins1=jins && jins - базадаги талабалар жинсини ******************** курсатиш учун ажратилган майдон ENDIF @ 0,0 CLEAR LIST WAIT&#39;&#39; USE *** 2 - дастур , 28.11.98 йил , dars2.prg SET TALK OFF SET STAT OFF SET MESS TO 22 SET COLOR TO B/W,GR+/R+ USE STUD GO TOP CLEAR wil1=&#34; Фаргона &#34; wil2=&#34; Андижон &#34; wil3=&#34; Наманган &#34; jins1= &#34; аел &#34; jins2= &#34; эркак &#34; PUBLIC uzgar && uzgar ни хакикий деб эълон килиш @ 1,1 TO 20,78 DOUBLE @ 3,3 SAY &#34;Студентлар тугрисида маълумотни саралаш&#34; SAVE SCREEN TO wid1 && экран куринишини wid 1 га саклаб куйиш www.arxiv.uz @ 5,5 PROMPT&#34;Вилояти&#34; MESSAGE&#39;Талабаларни вилоятлари буйича саралаш&#39; @ 5,25 PROMPT&#34;Жинси &#34; MESSAGE&#39;Талабаларни жинси буйича саралаш&#39; MENU TO var IF var=1 @ 10,3 SAY &#34; Кайси вилоят буйича ? &#34; @ 13,10 PROMPT wil1 @ 13,25 PROMPT wil2 @ 13,40 PROMPT wil3 MENU TO var1 DO CASE CASE var1= 1 uzgar=wil1 CASE var1= 2 uzgar=wil2 CASE var1= 3 uzgar=wil3 ENDCASE ELSE @ 10,3 SAY &#34; Кайси жинс буйича ? &#34; @ 13,10 PROMPT jins1 @ 13,30 PROMPT jins2 MENU TO var2 IF var2= 1 uzgar=jins1 ELSE uzgar=jins2 ENDIF ENDIF www.arxiv.uz @ 0,0 CLEAR DO natija SET FILTER TO USE SET DEVICE TO SCREEN WAIT&#39;&#39; 2.1 - (2-усул учун кушимча равишда алохида файл килиб киритилади) **** NATIJA.PRG RESTORE SCREEN FROM WID1 i=3 @ 8,3 to 11,35 @ 9,5 SAY &#34;Саралаш натижаларини чикариш&#34; @ 10,5 PROMPT &#34;Экранга&#34; @ 10,20 PROMPT &#34;Файлга езиш&#34; MENU TO var3 DO CASE CASE var3= 1 ********** Экранга чикариш ********* @ 0,0 CLEAR SET DEVICE TO SCREEN @ 1,15 SAY &#34;С А Р А Л А Ш Н А Т И Ж А Л А Р И&#34; @ i,3 SAY &#34; Фамилияси &#34; @ i,23 SAY &#34; Исми &#34; @ i,38 SAY &#34; Туг . сана &#34; @ i,50 SAY &#34; Жинси &#34; @ i,60 SAY &#34; Вилояти &#34; @ ROW()+1,1 SAY REPLICATE(&#34;_&#34;,70) GO TOP www.arxiv.uz DO WHILE .NOT.EOF() IF uzgar=TRIM(wil).OR.uzgar=TRIM(jins) @ i+2,3 SAY TRIM(fam) @ ROW(),23 SAY TRIM(ism) @ ROW(),38 SAY yoshi @ ROW(),50 SAY TRIM(jins) @ ROW(),60 SAY TRIM(wil) i=i+1 ENDIF SKIP+1 ENDDO ********* Файлга езиш ******** CASE var3= 2 ruyhat=SPACE(8) @ 12,5 SAY &#34; Файл номини киритинг &#34; GET ruyhat READ SET DEVICE TO PRINT SET PRINTER TO &ruyhat @ 1,15 SAY &#34;С А Р А Л А Ш Н А Т И Ж А Л А Р И&#34; @ i,3 SAY &#34; Фамилияси &#34; @ i,23 SAY &#34; Исми &#34; @ i,38 SAY &#34; Туг . сана &#34; @ i,50 SAY &#34; Жинси &#34; @ i,60 SAY &#34; Вилояти &#34; @ PROW()+1,1 SAY REPLICATE(&#34;_&#34;,70) GO TOP DO WHILE .NOT.EOF() IF uzgar=TRIM(wil).OR.uzgar=TRIM(jins) www.arxiv.uz @ i+2,3 SAY TRIM(fam) @ PROW(),23 SAY TRIM(ism) @ PROW(),38 SAY yoshi @ PROW(),50 SAY TRIM(jins) @ PROW(),60 SAY TRIM(wil) i=i+1 ENDIF SKIP+1 ENDDO ENDCASE

Похожие

Дастур эффективлиги. Дастурни оптималлаштириш. Дастур модификацияси
Паскаль тилида чизикли тузилмали ва тармогланувчи тузулмали алгоритмлар асосида дастур тузиш
Дастур юклангичи, BIOS ва DOS тўхтатилиб қолишлар
Дастур тушунчаси. Дастурлаш тиллари классификацияси. Паскаль тили характеристикаси, структураси
Кириш. Компьютер графикаси. Аdobe Photoshop дастур хакида умумий маълумот