Misal :
Program Aysel_Proqram; Var X, Y : Real; C : Char; BEGIN Write('?ki eded daxil edin: '); Readln(X,Y); Write('Emeliyyat simvolu daxil edin: '); Readln(C); Case C Of '+' : Begin X:=X+Y; Writeln('Toplama'); End; '-' : Begin X:=X-Y; Writeln('Ferq'); End; '*' : Begin X:=X*Y; Writeln('Hasil'); End; '/': Begin X:=X/Y; Writeln('Qismet'); End; End; Writeln('Netice= ',X:12:4); END. Proqram
istifadəçinin klaviaturadan daxil etdiyi “+”, “-“, “*”və “/”
simvollarına uyğun olaraq X və Y dəyşənlərinin cəmini, fərqini, hasilini və
qismətini hesablayır.
2.9. Şərtsiz keçid operatoru
Şərtsiz keçid operatoru proqramda idarəni nişanlanmış operatora verir,
başqa sözlə operatorların yerinə yetirilmə ardıcıllığını dəyişir. Operator aşağıdakı
yazılış formatına malikdir:
GOTO n;
bu yazılışdan nişanlanmış operatorun nişanıdır.