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
-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.
Do'stlaringiz bilan baham: |