«informatika va axborot texnologiyalari»



Download 4,39 Mb.
Pdf ko'rish
bet204/209
Sana24.03.2022
Hajmi4,39 Mb.
#508036
1   ...   201   202   203   204   205   206   207   208   209
Bog'liq
Информатика ва АТ

1-misol

if 
(
x >= 2) 
and 
(
x <= 5) 
then 
write (‘x soni [2, 5] ga tegishli’) 


159 
else 
write (‘x soni [2, 5] ga tegishli emas’);
2-misol

if 
(‘bugun yakshanba’) 
or 
(‘ish vaqti tugadi’) 
then 
writeln (‘dam oling‘) 
else 
writeln (‘ish bilan shugullaning‘);
3-misol

if not 
(
x >= 2) 
then 
write (‘x soni 2 dan katta emas’) 
else 
write (‘x soni 2 dan katta’); . 
Yuqoridagi barcha mulohazalarni jamlagan holda, ish haqini hisoblash dasturini 
quyidagicha yozish mumkin:
program maosh; 
var ish_haqi, ish_soati, haq : integer; 
begin 
writeln(‘hodim nesha soat ishladi ?’); readln(ish_soati); writeln(‘bir 
soat ushun qansha haq oladi ?’); readln(haq); 
ish _ haqi := ish _ soati *haq;
if ish _ soati >= 200 then ish _ haqi := haq*200 + (ish _ soati - 200)*haq *2; 
writeln(‘hodim ‘,ish_haqi,’ sum oladi’); 
end. 
Yuqoridagi dastur uchun EHM quyidagi natijalarni beradi: (? belgisidan keyin klaviatura 
orqali kiritilgan ma’lumotlar keltirilmoqda.) 
hodim nesha soat ishladi ? 150 
bir soat ushun qansha haq oladi? 100 
hodim 150000 sum oladi 
hodim nesha soat ishladi ? 300 
bir soat ushun qansha haq oladi? 100 
hodim 400000 sum oladi 
Ko‘pincha 
then 
yoki 
else 
xizmatchi so‘zlaridan keyingi operatorlar tarkibida boshqa 
if 
buyrug‘i ham kelishi mumkin. Buni ichki tarmoqlanish deyiladi. Ichki tarmoqlanishda ichki 
if 
o‘zidan avval kelgan va eng yaqin turgan 
then (else) 
ga ta’aluqli bo‘ladi. Quyidagi dasturga 
e’tibor bering; 
program masala;
var x: integer; s: string;
begin 
writeln(‘x ning qiymatini kiriting‘); readln(x); 
s:=’x soni 2 dan kichik’; 
if x> =2 then if x< =5 then s:=’x soni [2, 5] oraliqqa tegishli’ 
else s:= ’x soni 5 dan katta’;
writeln(s) 
end. 
Bu dastur uchun EHM quydagi natijalarni beradi:
x ning qiymatini kiriting 4
x soni [2, 5] oraliqqa tegishli x ning qiymatini kiriting 7 
x soni 5 dan katta x ning qiymatini kiriting 1
x soni 2 dan kichik 
Agar ichki tarmoqlanishlar ko‘p bo‘lsa, ularni yozish va o‘qish ishlarida dasturchi uchun 
bir muncha noqulayliklar kelib chiqishi mumkin. Buni oldini olish uchun PASKAL tiliga tanlash 
buyrug‘I kiritilgan. 

Download 4,39 Mb.

Do'stlaringiz bilan baham:
1   ...   201   202   203   204   205   206   207   208   209




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