Mübariz Xəlilov, Nazlı Həsənova

type brithday=record
day,month:byte; 
year:Word 
end; 
var c:record 
name:string; 
bd:brithday

---

357 
end;
begin 
...... 
If c.bd.year=1966 then ... 
end. 
 
Yazılış sahələrinə müraciəti sadələşdirmək üçün 
with
birləşdirmə 
operatorundan 
istifadə edilir: 
with
<
dəyişən> 
do
; 
burada 
with
, 
do
– operatorun 
işçi sözləridir, –ardınca daxilində 
ola 
biləcək sahələrin siyahısı olan yazılış tipli dəyişən adıdır, – 
Turbo Pascal dilinin ixtiyari operatorudur. 
Məsələn
,
whith c.bd do month:=4; 
və ya ona ekvivalent olan aşağıdakı operatorlar
with c do with bd do month:=4;
və ya
with c,bd do month:=4; 
və ya
c.bd.month:=4; 
Misal
. 
Tələbələrin proqramlaşdırma fənni üzrə imtahan cədvəli verilib. 
Əla qiymətlər almış tələbələrin sayını tapmalı. 
program imt;
type t=record 
saa:string[30]; 
qiy:2..5 
end;
var s:t; i,k,n:byte; 
begin k:=0; readln(n); 
for i:=1 to n do 
begin
read(s.saa); read(s.qiy); 
if s.qiy=5 then k:=k+1 
end;
write (k)
end. 
 
 

---

358 
 
11.12. 
Tipli sabitlər , massivlər, yazılar və çoxluqlar
Turbo Pascal dilində tip sabitlərdən istifadə edilə bilir. Onlar sabitlərin 
elanı bölməsində aşağıdakı şəkildə verilirlər:
: = <
qiymət>; 
burada -sabitin identifikatoru, -sabitin tipi,<
qiymət> 
- 
isə sabitin qiymətidir. Proqramın yerinə yetirildiyi müddət ərzində tip 
sabitlərə digər qiymətlər mənimsətmək olur, buna görə də onlar faktiki olaraq 
başlanğıc qiymətləri olan dəyişənlərdir. Tip sabitlər, fayldan başqa ixtiyari tipə 
aid ola bi-
lərlər. 
Sadə tiplərin və 
STRING
tipinin 
sabitlərinin elanı çətinlik törətmir, 
çünki 
onların qiymətləri kimi qeyri-tip sabitlərdən və ya onların 
identifikatorlarından istifadə olunur. 
Məsələn
,