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

UptoLike

ВУЗ: 

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

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

Рубрика: 

225
gotoxy(20,6);
readln(person.yearbirth);
gotoxy(20,7);
readln(person.groupblood);
gotoxy(20,8);
readln(person.Height);
gotoxy(20,9);
readln(person.Weight);
if AddPerson(persons,person) {дабавляем запись в список}
then
begin {если запись добавлена}
ColorWindow(20,1,40,3,1);
ShowText('Запись в массив добавлена!',6,2,14,1);
end
else
begin {если запись не добавлена}
ColorWindow(20,1,40,3,4);
ShowText('Массив полон – добавлять некуда!',3,2,15,1);
end;
readkey;
end;
{Удалить запись из массива}
procedure DeleteFromArray;
var
del:byte; {индекс удаляемого элемента массива}
begin
{вывод приглашения}
ColorWindow(1,16,80,10,3);
ShowText('Введите индекс удаляемой записи:',10,3,14,3);
gotoxy(45,3);
readln(del);
if DelPerson(persons,del)

Страницы