Ўзбекистон Республикаси Олий ва Ўрта Махсус таълим вазирлиги Фаргона политехника институти



Download 1,17 Mb.
bet61/69
Sana28.06.2022
Hajmi1,17 Mb.
#712699
1   ...   57   58   59   60   61   62   63   64   ...   69
Bog'liq
PASCAL

1 - усул:

*** 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 "Студентлар тугрисида маълумотни саралаш"
@ 5,5 PROMPT"Вилояти"MESSAGE'Талабаларни вилоятлари буйича саралаш'
@ 5,25 PROMPT"Жинси " MESSAGE'Талабаларни жинси буйича саралаш'

MENU TO var && var - менюни номлаш учун берилган узгарувчи


IF var=1 && шартни текшириш


wil1=SPACE(15) && wil1 - 15 та буш позициядан иборат узгарувчи


@ 10,3 SAY "Кайси вилоят буйича ? " GET wil1
READ && wil1 га киритилганларни укиб олиш
SET FILTER TO wil1=wil && wil - базадаги вилоятлар учун ****************************** ажратилган майдон
ELSE && акс холда

jins1=SPACE(10)&&wil1 - 10 та буш позициядан иборат узгарувчи


@ 10,3 SAY "Кайси жинс буйича ? " GET jins1


READ
SET FILTER TO jins1=jins && jins - базадаги талабалар жинсини ********************курсатиш учун ажратилган майдон
ENDIF

@ 0,0 CLEAR


LIST
WAIT''
USE
2 - усул:

*** 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="Фаргона"
wil2="Андижон"
wil3="Наманган"
jins1= "аел"
jins2= "эркак"
PUBLIC uzgar && uzgar ни хакикий деб эълон килиш
@ 1,1 TO 20,78 DOUBLE
@ 3,3 SAY "Студентлар тугрисида маълумотни саралаш"

SAVE SCREEN TO wid1 && экран куринишини wid1 га саклаб куйиш


@ 5,5 PROMPT"Вилояти" MESSAGE'Талабаларни вилоятлари буйича саралаш'
@ 5,25 PROMPT"Жинси " MESSAGE'Талабаларни жинси буйича саралаш'

MENU TO var


IF var=1
@ 10,3 SAY "Кайси вилоят буйича ? "
@ 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 "Кайси жинс буйича ? "
@ 13,10 PROMPT jins1
@ 13,30 PROMPT jins2
MENU TO var2
IF var2= 1
uzgar=jins1
ELSE
uzgar=jins2
ENDIF
ENDIF
@ 0,0 CLEAR
DO natija
SET FILTER TO
USE
SET DEVICE TO SCREEN
WAIT''
2.1 - (2-усул учун кушимча равишда алохида файл килиб киритилади)
**** NATIJA.PRG
RESTORE SCREEN FROM WID1
i=3
@ 8,3 to 11,35
@ 9,5 SAY "Саралаш натижаларини чикариш"
@ 10,5 PROMPT "Экранга"
@ 10,20 PROMPT "Файлга езиш"
MENU TO var3
DO CASE

CASE var3= 1


********** Экранга чикариш *********


@ 0,0 CLEAR
SET DEVICE TO SCREEN
@ 1,15 SAY "С А Р А Л А Ш Н А Т И Ж А Л А Р И"
@ i,3 SAY "Фамилияси"
@ i,23 SAY "Исми"
@ i,38 SAY "Туг.сана"
@ i,50 SAY "Жинси"
@ i,60 SAY "Вилояти"
@ ROW()+1,1 SAY REPLICATE("_",70)
GO TOP
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 "Файл номини киритинг" GET ruyhat
READ
SET DEVICE TO PRINT
SET PRINTER TO &ruyhat

@ 1,15 SAY "С А Р А Л А Ш Н А Т И Ж А Л А Р И"


@ i,3 SAY "Фамилияси"
@ i,23 SAY "Исми"
@ i,38 SAY "Туг.сана"
@ i,50 SAY "Жинси"
@ i,60 SAY "Вилояти"
@ PROW()+1,1 SAY REPLICATE("_",70)
GO TOP
DO WHILE .NOT.EOF()
IF uzgar=TRIM(wil).OR.uzgar=TRIM(jins)
@ 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

Назорат саволлари



  1. Меню нима?

  2. М еню кандай хосил килинади?

  3. Менюга кандай килиб ном куйилади?

  4. CASE ва IF операторлари нима вазифа бажаради?

  5. Меню кандай ишга туширилади?

  6. Дастурни ишга тушириш.кандай бажарилади?

  7. Меню тузилиши кандай?

  8. DOCASB буйруги урнига кайси буйрукдан фойдаланиш керак?

  9. Саралаш натижалари кандай экранга чикарилади?

  10. Саралаш кандай бажарилади?

Download 1,17 Mb.

Do'stlaringiz bilan baham:
1   ...   57   58   59   60   61   62   63   64   ...   69




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish