Записи. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
__NOTOC__ | __NOTOC__ | ||
===Ввод и вывод данных о персонах=== | ===Ввод и вывод данных о персонах=== | ||
<source lang="Delphi">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.</source> | |||
===Поиск в массиве персон по фамилии=== | ===Поиск в массиве персон по фамилии=== | ||
Версия от 13:41, 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.
