Microsoft Word Лаб практ инф

 
Набрать и отладить программу. 
Методика выполнения работы
 
 
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. Наберите, откомпилируйте и исправьте возможные ошибки. Проведите 
расчеты для конкретных значений исходных данных. Подберите нужное число 
пробелов в операторе вывода, чтобы выводимые данные располагались под 
названиями соответствующих столбцов. 

---

92
3. Введите в программу изменения, чтобы вместо составного имени 
использовалось просто имя поля. Для этого в соответствующих местах 
программы ( при вводе и выводе) надо использовать оператор With. Например, 
при вводе: 
For i:=1 To n Do