Mavzu: Pascal tilida Chiziqli tuzilmali va tarmoqlanuvchi tuzilmali algoritmlar asosida dastur tuzish Reja

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.