Пример программы c записью Паскаля
program primer 2 ;
type anketa=record
fio: string[45];
dat_r: string[8];
adres: string[50];
curs: 1..5;
grupp: string[3]
end;
var student: array [1..100] of anketa;
I: integer;
begin
{последовательно вводим каждую запись}
for I:=1 to 100 do
begin
writeln ('введите сведения о', I , '-м студенте');
writeln ('введите фамилию, имя и отчество');
readln (student[I].fio);
writeln ('введите дату рождения');
readln (student[I].dat_r);
writeln ('введите адрес');
readln(student[I].adres);
writeln ('введите курс');
readln(student[I].curs);
writeln ('введите группу');
readln (student[I].grupp);
end;
writeln ('ввод закончен');
writeln ;
{просматриваем массив записей и выбираем только студентов 2-го курса }
for I:=1 to 100 do
if student[I].curs=2 then
writeln(' фамилия студента : ', student[I].fio);
end.
Оператор присоединения или как избавиться от префикса
Префикс – обязательная предшествующая часть составного идентификатора для имен полей в структуре типа запись Паскаля. Очень часто у программиста возникает желание не указывать префикс в имени полей, например, когда идет постоянное использование одних и тех же записей. В языке Паскаль предусмотрена такая возможность, реализуемая при помощи оператора присоединения, который в общем виде выглядит так:
with <имя_записи> do <действие с полем записи>;
Следует обратить внимание на то, что после служебного слова do может стоять только один оператор, но он может быть составным (любая последовательность операторов, заключенная в операторные скобки begin end ).
Например, фрагмент из предыдущей программы с использованием оператора присоединения будет выглядеть так:
|
|
|
Пример фрагмента программы c записью и префиксом Паскаля
for I:=1 to 100 do
with student[I] do
begin
writeln ('введите сведения о', I , '-м студенте');
writeln ('введите фамилию, имя и отчество');
readln (fio);
writeln ('введите дату рождения');
readln (dat_r);
writeln ('введите адрес');
readln(adres);
writeln ('введите курс');
readln(curs);
writeln ('введите группу');
readln (grupp);
end;
Дата добавления: 2020-12-22; просмотров: 116; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!