Nesr_ili:integer; Nesr_yeri:string[20]; Nesriyyat:string[30]; Cild:byte; Sehife:byte; end; Var i:byte; Book:array[1..10] of Biblio; Bib_yazi:array[1..10] of string[200]; Begin for i:=1 to 10 do begin Readln(Book[i].avtor); Readln(Book[i].Serlohve); Readln(Book[i].Nesr_ili); Bib_yazi[i]:= book[i].avtor+' '+book[i].Serlohve; Writeln (Bib_yazi[i]); End;End. 2.13.1. Birləşdirmə operatoru
Yazı identifikatoru və sahə identifikatoru çoxsimvollu olduqda yazı
sahələrinə müraciəti təmin edən çox uzun düzəltmə adlar yaranır və yazı
identifikatoru bir neçə dəfə təkrar olunur. Buna müvafiq olaraq proqram mətni
xeyli böyüyür. Proqramın mətnini azaltmaq və onu kompakt şəkildə yazmaq üçün
birləşdirmə operatorundan istifadə olunur. Bu operatorun yazılış formatı aşağıdakı
kimidir:
