Описать запись, которая содержит определенные поля

Категория: Delphi/Pascal
2011-08-22 23:40:35

Описать запись с именем Student, содержащую следующие поля: ФИО (Вася Иванов); Номер группы(2-PO-3), Дата рождения (запись из трех полей: день, месяц, год); Адрес (запись из трех полей); Успеваемость (запись из трех предметов: ОАиП, ОСиС, ИТ). В программе записать данные в переменную-запись. Вывести информацию на экран.

code: #pascal
  1. uses crt;
  2. type TData = record
  3.               day, month:byte;
  4.               year:integer;
  5.               end;
  6.  
  7.      TAdress = record
  8.                 street, house, flat:string[20];
  9.                end;
  10.  
  11.      TIq = record
  12.             OAIP, OSIS, IT: byte;
  13.            end;
  14.  
  15.      student = record
  16.                 Fio:string;
  17.                 Group:string[10];
  18.                 Data:TData;
  19.                 Adress:TAdress;
  20.                 Iq:TIq;
  21.                end;
  22.  
  23. var S:student;
  24. begin
  25. clrscr;
  26. s.fio:='Вася Иванов';
  27. s.Group:='2-PO-3';
  28. s.data.day:=4;
  29. s.data.month:=12;
  30. s.data.year:=2006;
  31. s.adress.street:='Гоголя';
  32. s.adress.house:='1';
  33. s.adress.flat:='3';
  34. s.iq.OAIP:=2;
  35. s.iq.OSIS:=2;
  36. s.iq.IT:=2;
  37.  
  38. Writeln('Фамилия Имя Отчество: ',s.fio);
  39. Writeln('Группа: ',s.Group);
  40. Writeln('Дата: ',s.data.day,' ',s.data.month,' ',s.data.year);
  41. Writeln('Адресс: улица ',s.adress.street,', дом ',s.adress.house,', квартира ',s.adress.flat);
  42. Writeln('Успеваемость: ');
  43. Writeln('  ОАиП - ',s.iq.OAIP);
  44. Writeln('  ОСиС - ',s.iq.OSIS);
  45. Writeln('  ИТ - ',s.iq.IT);
  46. readln;
  47. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, записи