Записи. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) |
Mikst (обсуждение | вклад) |
||
Строка 19: | Строка 19: | ||
===Поиск в массиве персон по фамилии=== | ===Поиск в массиве персон по фамилии=== | ||
<source lang="Delphi">type | |||
Person = record | |||
name: string; | |||
age: integer; | |||
end; | |||
var a: array[1..5] of Person; | |||
begin | |||
a[1].name :='Попова'; a[1].age := 20; | |||
a[2].name :='Петрова'; a[2].age := 18; | |||
a[3].name :='Крылов'; a[3].age := 23; | |||
a[4].name :='Иванов'; a[4].age := 25; | |||
a[5].name :='Сидоров'; a[5].age := 17; | |||
var fio: string; | |||
write('Введите фамилию: '); | |||
readln(fio); | |||
var ind := 0; | |||
for var i:=1 to 5 do | |||
if a[i].name=fio then | |||
begin | |||
ind := i; | |||
break | |||
end; | |||
if ind>0 then | |||
writeln('Найдено: ',a[ind].name,' ',a[ind].age) | |||
else writeln('Человека с такой фамилией нет в списке'); | |||
end.</source> | |||
===Подсчет количества персон с данным возрастом=== | ===Подсчет количества персон с данным возрастом=== |
Версия от 13:49, 18 января 2010
Ввод и вывод данных о персонах
type
Person = record
name: string;
age: integer;
end;
var p1,p2: Person;
begin
readln(p1.name,p1.age);
writeln(p1.name,' ',p1.age);
p2.name := 'Иванов';
p2.age := 20;
p1 := p2;
writeln(p1.name,' ',p1.age);
end.
Поиск в массиве персон по фамилии
type
Person = record
name: string;
age: integer;
end;
var a: array[1..5] of Person;
begin
a[1].name :='Попова'; a[1].age := 20;
a[2].name :='Петрова'; a[2].age := 18;
a[3].name :='Крылов'; a[3].age := 23;
a[4].name :='Иванов'; a[4].age := 25;
a[5].name :='Сидоров'; a[5].age := 17;
var fio: string;
write('Введите фамилию: ');
readln(fio);
var ind := 0;
for var i:=1 to 5 do
if a[i].name=fio then
begin
ind := i;
break
end;
if ind>0 then
writeln('Найдено: ',a[ind].name,' ',a[ind].age)
else writeln('Человека с такой фамилией нет в списке');
end.