Информатика. Шевелев Г.Е. - 91 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

91
Задание: Сформировать базу данных, содержащую сведения о 15-ти
студентах. База данных состоит из 5-ти полей: фамилия, имя, номер группы, год
рождения, город, где закончил школу. Вывести на экран записи, в которых
содержатся все имеющиеся сведения о студентах, закончивших школу в
Томске.
Набрать и отладить программу.
Методика выполнения работы
1. Программа:
Program BDS ;
Uses crt;
Const
n=15;
Type Spisok=Record {Задание типа Spisok -записи с пятью полями}
Fam:String[20];
Ngr, Im, Gor:String[10];
Gr:Integer
End;
Var Student: Array[1..n] of Spisok; {Объявление одномерного массива
Student, тип которого – запись Spisok}
i:Integer;
Begin
Clrscr;
For i:=1 To n Do
Begin
Writeln(‘Фамилия’,i:2,’-го ст-та’); Readln(Student[i].Fam);
Writeln(‘Имя’,i:2,’-го ст-та’); Readln(Student[i].Im);
Writeln(‘Номер группы’,i:2,’-го ст-та’); Readln(Student[i].Ngr);
Writeln(‘Год рождения’,i:2,’-го ст-та’); Readln(Student[i].Gr);
Writeln(‘Город’,i:2,’-го ст-та’); Readln(Student[i].Gor)
End;
Writeln (‘Данные о студентах, закончивших школу в г. Томске’);
Writeln;
Writeln(‘ Фамилия Имя Номер группы Год рождения’);
For i:=1 To n Do
If Student[i].Gor=’Томск’ Then
Writeln(Student[i].Fam,’ ‘,Student[i].Im,’ ‘,Student[i].Ngr,’ ’,
Student[i].Gr:4)
End.
2. Наберите, откомпилируйте и исправьте возможные ошибки. Проведите
расчеты для конкретных значений исходных данных. Подберите нужное число
пробелов в операторе вывода, чтобы выводимые данные располагались под
названиями соответствующих столбцов.

Страницы