Записи - Pascal (85673)

Формулировка задачи:

организовать ввод, хранение в массиве, вывод на экран следующих данных: Информация о владельцах животных: фамилия владельца, вид животного, порода, окрас, пол , возраст животного

Решение задачи: «Записи»

Листинг программы

Const nmax=30;
      l='--------------------------------------------------------------------------------';
Type Ovner=Record
      Fam,vid,poroda,okras:string[15];
      gender:char;
      year:byte;
     End;
Var A:array[1..nmax] of ovner;
    i,n:byte;
Begin
    Repeat
     write('Количество владельцов<=',nmax,': ');readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' владельце');
      write('Фамилия: ');readln(A[i].Fam);
      write('Вид животного: ');readln(A[i].vid);
      write('Порода: ');readln(A[i].poroda);
      write('Окрас: ');readln(A[i].okras);
      write('Пол(m/f): ');readln(A[i].gender);
      write('Возраст животного: ');readln(A[i].year);
    End;
    writeln(l);
    writeln('|    Фамилия   | Вид животного |    Порода     |     Окрас     | Пол | Возраст |');
    writeln(l);
    For i:=1 to n do
     writeln(A[i].Fam:15,'|',A[i].vid:15,'|',A[i].poroda:15,'|',A[i].okras:15,'|',
     A[i].gender:3,'|':3,A[i].year:5,'|':5);
    writeln(l);
    readln;
End.

Объяснение кода листинга программы

Объявлены константы: nmax=30; l='--------------------------------------------------------------------------------';
Объявлен тип данных: Ovner=Record Fam,vid,poroda,okras:string[15]; gender:char; year:byte;
Объявлена переменная: A:array[1..nmax] of ovner;
Объявлены булевые переменные: i,n:byte;
В цикле repeat запрашивается количество владельцев и сохраняется в переменной n;
В цикле for i:=1 to n выполняется:
- Вывод информации о владельце;
- Ввод данных о владельце (фамилия, вид животного, порода, окрас, пол, возраст);
Вывод строки-разделителя;
Вывод информации о владельцах в формате таблицы;
Ввод символа для завершения работы программы.