Rivojlantirish va muvofiqlashtirish hududiy boshqarmasi karmana tuman kasb-hunar maktabi

program p1_1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var x,y,z:real;

begin

writeln(‘Enter x,y’);

readln(x,y);

z: = (sqr(x) + sin(2*x+1) + 0,5)/sqrt(x*x+y*y+1e4);

writeln(‘z:=”,Z:7:4);

readln

end.

Masalani hal qilib bo’lgach ekranda quyidagi natija hosil bo’ladi:

Enter x,y

3. 
   -5.41
   

z= 0.0515


Dastur sarlavhasi xizmatchisiz dastur so’zidan keyin boshlanadi, masalan, р1_1 deb belgilangan.

Belgilar bo’limi label so’zidan keyin boshlanadiva metkalar ro’yhati ko’rsatiladi. Belgi turi idenfikator turi idenfikator yoki ishorasiz butun sondan iborat bo’lishi mumkin. Belgi yordamida xoxlagan operatorni belgilash mumkin va boshqarishni dasturning istalgan jotidan belgi qo’yilgan operatorga uzatish mumkin.

Turlarni aniqlash bo’limi type so’zidan keyin boshlanadi va quyidagi ko’rinishga ega:

< tur nomi> = < ro’yhat>, bu orqali dasturchi o’z turlarini yozishi mumkin.