Основы программирования на языке Turbo Pascal. Беляева И.В. - 224 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

224
var
persons: ListOfPerson; {список записей}
{очистка списка}
procedure ClearArray;
begin
Clear(persons);
ColorWindow(20,1,40,3,1);
ShowText('Массив очищен!',13,2,14,1);
readkey;
end;
{Вставка записи в массив записей}
procedure InsertToArray;
var
person:MedicalInfo; {вводимая запись}
begin
{вывод приглашения}
ColorWindow(1,16,80,10,3);
ShowText('Введите поля записи:',20,1,14,3);
ShowText('Фамилия : ',3,3,15,3);
ShowText('Имя : ',3,4,15,3);
ShowText('Отчество : ',3,5,15,3);
ShowText('Год рождения : ',3,6,15,3);
ShowText('Группа крови : ',3,7,15,3);
ShowText('Рост : ',3,8,15,3);
ShowText('Вес : ',3,9,15,3);
{ввод всех полей}
gotoxy(20,3);
readln(person.familia);
gotoxy(20,4);
readln(person.imja);
gotoxy(20,5);
readln(person.otchestvo);

Страницы