Mavzu: 1 ­­– dars. Masalalarni kompyuterda yechish bosqichlari Darsning maqsadi

1- misol. Parol to’g’ri kiritilganini tekshiruvchi dastur tuzing.

Yechish. Parol «informatika» bo’lsin, u holda dastur quyidagicha bo’ladi:

Program Parolni_tekshirish;

Var parol: String ;

Begin

Write ( 'Parolni kiriting : ') ; ReadLn (parol);

{Tarmoqlanish operatorining qismlarini alohida satrlarda yozsa ham bo’ladi}

If parol= 'informatika' Then

WriteLn ('Parol to’g ri ' ) Else

WriteLn ( 'Parol noto’gri') ;

End.

Zarurat bo’lmasa, tarmoqlanish operatorining Else qismini ishlatmaslik ham mumkin.

Tarmoqlanish operatori tarkibida yana tarmoqlanish operatorini ishlatish ham mumkin.

Ba'zan boshqarishni dastur bo’yicha orqaga yoki oldinga o’tkazish zarur bo’ladi. Buning uchun dasturning boshqarish uzatilayotgan operatoriga nishon qo’yiladi. Nishon o’zgaruvchining nomi singari lotin harflari va raqamlar yordamida hosil qilinadi. Masalan, 7, N1, nishon 2 va hokazo. Dasturda qo’llaniladigan nishonlar dasturning tavsif qismida Label xizmatchi so’zi yordamida ko’rsatilishi shart. Nishonlardan dasturda o’tish operatori qo’llanilsagina foydalaniladi. O’tish operatori quyidagi ko’rinishga ega: GOTO

Bu operator boshqarishni dasturning nishon qo’yilgan operatoriga uzatadi.

Misol: Label N1;

Var a,b,c : Integer; Begin

a:=15; b:=13; c:=a+b; GoTo N1; {Boshqarish N1 nishonli operatorga uzatildi}

c:=a – b;

N1: WriteLn(c); End.

Dastur bajarilishi natijasida c ning qiymati 28 ga teng bo’ladi. Chunki c:=a – b operator bajarilmaydi.