Pascal. Запись

60K

17 декабря 2010 года

14 / / 04.10.2010

Здравствуйте. Помогите с задачей

Цитата:

Составить список, содержащий сведения об N студентах. Для каждого
учащегося указать:
- фамилия;
- ИНН (идентификационный номер налогоплательщика);
- дата выдачи Свидетельства о постановке на учет в налоговом органе;
- дата рождения;
- год поступления в университет;
- курс;
- группа;
- количество семестров обучения;
- оценки каждой сессии по всем семестрам.

вроде всё сделал, но как быть с семестрами и оценками я не знаю. не пойму как их вставить в задачу

Свернуть исходник

Код:

uses crt;

type anketa=record

    fam:string;

    inn:integer;

    snup:integer;

    group:string;

    curs:1..5;

    dat_r:record

    god: integer;

    mes: 1..12;

    den: integer;

    end;

    dat_univer:string;

    end;

var tbl:array[1..25] of anketa;

    i,n,m,j:integer;

begin

ClrScr;

write ('vvedite kol-vo studentov - ');

readln (n);

for i:=1 to n do

    with tbl do begin

        writeln ('');

    writeln ('vvedite svedenija o', I , '-m studente');

        write ('vvedite family - ');

    readln (fam);

    write ('vvedite inn - ');

    readln(inn);

    write ('vvedite snup - ');

    readln(snup);

    write ('vvedite datu rozhdenia. Den - ');

    read (dat_r.den);

    write (' mes - ');

    read (dat_r.mes);

    write (' god - ');

    readln (dat_r.god);

    write ('vvedite god postuplenija - ');

    readln (dat_univer);

    write ('vvedite kurs - ');

    readln (curs);

    write ('vvedite gruppu - ');

    readln (group);

        writeln('-----------------------');

    end;