Page 20 - 6263

end;

procedure testString; // приклад роботи з рядками
var i:byte;
begin
for i:=1 to length(s1) do // для кожного індексу символу
writeln(s1[i]); // вивести символ рядка з індексом i
s2:=s1+'world'; // об'єднати рядки
s2:=copy(s1,7,5); // копіювати 5 символів s1 починаючи з
7
i:=pos('world', s1); // позиція підрядка в рядку s1
insert('Hello',s2,0); // вставити в рядок s2 починаючи з 0
delete(s2,2,1); // видалити 1 символ починаючи з 2
str(2.5,s2); // конвертувати число 2.5 в рядок s2
val(s2,x,k); // конвертувати рядок s2 в число x
end;

procedure testSet; // приклади роботи з множинами
begin
set2:=[red,blue]; // множина
set3:=[1,2,3]; // множина
set3:=[1,2]+[3]; // об'єднання множин
set3:=[1,2,3]*[3,4]; // перетин множин
set3:=[1,2,3]-[2,3]; // різниця множин
writeln([1,2,3]=[1,2]); // порівняння множин
writeln(2 in [1,2,3]); // чи елемент 2 в множині?
end;

procedure testRecord; // приклади роботи з записами
begin
p.name:='Ivanov'; // присвоїти значення полю name
p.year:=1990;
p.address:='Franka str, 15';
writeln(p.name,'; ',p.year,'; ',p.address); // вивести
20