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:
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: