Program t1(input, output);
Label 2
Var a, b, x: real;
y: real;
begin
if x<0 then y:=a*a*x*x+b*x goto 2;
if x>1 then y:=a*sin(x)/cos(x)+b*cos(x)
else y:=a*x+b;
2: writeln(‘натижа у=’,y);
end.
Bu dasturda 3-blok bajarilganda 4-blok hisoblanadi, bajarilmaganda 5-blok sharti tekshiriladi va bu blok bajarilganda 6-blok hisoblanadi, bajarilmaganda esa boshqarish avtomatik ravishda 7-blokka utib shu blok xioblanadi. Har uchala holda ham hisoblangan u funktsiyaning kiymati 8-blok orqali birlashadi va 9-blokda natijalar ekranga chikariladi.
Dasturlash jarayonida shunday holatlar bo‘ladiki, bir xil operatorlar ketma-ketligini dasturning bir necha joylarida takroran yozishga to‘g‘ri keladi. Bunday takrorlanishni yo‘qotish maqsadida dasturlashning ko‘pgina tillarida qism dastur tushunchasi kiritilgan. Ular mustaqil dastur bo‘lagi sifatida dasturning bosh qismida bir marotaba yoziladi.
Paskalь tilida qism dastur protsedura yoki funksiya ko‘rinishida beriladi. Asosiy dastur bilan protsedura orasida o‘zgaruvchilar qiymat almashuvi formal va faktik parametrlar yordamida amalga oshiriladi. Protsedura ichida yana bir necha protsedura yoki funksiya ishlatilishi mumkin. Dasturda e’lon qilingan o‘zgaruvchilar, shu dasturdagi protsedura va funksiyalarga nisbatan global deyiladi. Protsedura va funksilar ichida e’lon qilingan o‘zgaruvchilar lokal deyiladi. Ularning ta’sir doirasi shu qism dastur ichida bo‘ladi.
2.Protseduralar
Protseduralarni e’lon qilish quyidagicha bo‘ladi.
Procedure
();
Begin
End;
Formal parametrlarni shu protsedura bosh qismida yoki sarlavhada e’lon qilish mumkin. Masalan. Procedure AB (x,y: Real);
Har qanday protsedurani kichik bir dastur deb qarash mumkin. Protsedura ham dasturga o‘xshab bosh va asosiy qismlardan toshkil topadi. Bosh qismda protsedura nomi va uning parametrlari e’lon qilinadi. Asosiy qism operatorlar ketma-ketligidan tashkil topgan bo‘lib, ular Begin - End ichiga olinadi. Protsedura nomi foydalanuvchi tamonidan beriladi.
Dostları ilə paylaş: |
