Поле является составной частью типа Запись (record) или класса (в данном случае оно, как правило, называется свойство).
При описании типа данных Запись (record) используют поля, которые описывают характерные свойства данной записи. Запись может содержать информацию о различных объектах реальной жизни (машина, человек, радиоприёмник и пр.), а каждая запись содержит информацию, которая характеризует описываемый объект с той, или иной стороны.
Например, для записи Машина могут быть заданы поля, содержащие информацию о марке автомобиля, его цвете, объёме двигателя, количестве дверей и наличии откидывающейся крыши.
Для записи Человек можно выделить поля для хранения имени, фамилии и отчестве человека, номер и серию его паспорта, возраст и т.д.
В качество полей могут быть использованы не только элементарные типы данных (строка, целое, вещественное), но и составные (массивы, перечисления, записи).
Например:
type parants = record name, surname : string; age : byte; phone : string; end;
students = record name, surname : string; age : byte; mother : parents; father : parent; end;
var student : students;
begin with student do begin name := 'Вася'; surname := 'Пупкин'; age := 15; mother.name := 'Ирина'; mother.surname := 'Пупкина'; mother.phone := '+7 (916) 123-45-67'; end; end.
![Побудувати задану поверхню при х Є [-1,1], y Є [-1,1]. ВСЁ В ФОТКЕ](/tpl/images/4379/1638/c42aa.jpg)
1)
var
str : string;
begin
readln (str);
writeln (length (str) - pos (':', str));
end.
2)
var
str, s : string;
count, i : integer;
begin
readln (str);
s := copy (s, pos ('(', str) + 1, pos (')', str) - pos ('(', str) - 1);
count := 0;
for i := 1 to length (s) do
if s[i] = ' ' then inc (count);
writeln (count + 1);
end.
3)
var
str : string;
count : integer;
begin
readln (str);
count := 0;
while pos (',', str) > 0 do
begin
inc (count);
delete (str, pos (',', str), 1);
end;
writeln (str);
writeln (count);
end.
Сделано без проверки на соответствие условию.