373
type
Biblio=record
Avtor:string[50];
Serlohve:string[100];
Nesr_ili:integer;
Nesr_yeri:string[20];
Nesriyyat:string[30];
Cild:byte;
Sehife:byte;
end;
Var
Kitab: Biblio;
Biblio_yazi:string[200];
Begin
With kitab do
Begin
Avtor:='Qurbanov Azad Isa o.';
Serlohve:='Informatika';
Nesr_ili:=2009;
Biblio_yazi:= avtor+' '+Serlohve;
End;
Writeln (Biblio_yazi);
End.
Turbo Pascal dilində bir-birinə daxil olan yazılardan da istifadə etmək olar. Bu
halda yazının sahəsi yenə də yazı ola bilər və uyğun
birləşdirmə operatoru
aşağıdakı kimi yazılır:
with R
1
, R
2
,…R
n
do S
;
burada
R
1
,R
2
,…,R
n
yazı növlü dəyişənlərdir.
S
isə Turbo
Pascal dilinin
operatorlarıdır. Əgər
R
1
,R
2
,…,R
n
dəyişənlərində eyni adlı olan varsa, onda
onlardan axırıncısı
S
operatorunda olan uyğun tipə birləşdirilir.
Dostları ilə paylaş: