Ход работы. 1) Изучить теоретический материал по теме «Исключение элементов из списка» (лекции, учебники)

1) Изучить теоретический материал по теме «Исключение элементов из списка» (лекции, учебники).

2) Составить и откомпилировать программу своего варианта.

3) Сохранить её на диске А под именем lab8.pas.

4) Распечатать результат работы программы.

5) Составить отчёт по работе.

6) Защитить работу.

Содержание отчета

Отчет по лабораторной работе должен содержать:

1) тему работы;

2) цель работы;

3) ход работы;

4) постановку задачи;

5) распечатку программ;

6) результаты работы программ.

Методические указания к лабораторной работе № 8

При выполнении задания следует ознакомиться с приведенной ниже программой. Программа ИСКЛ вводит данные о каждом учащемся, строит список, а затем удаляет из списка элементы, относящиеся к неуспевающим учащимся.

Program искл {input,output};

Type Данные=record

ФИО: packed array[1..7] of char;

Оценки:array[1..4] of integer;

end;

Ссылка=^Запись;

Запись=record

СС: ссылка

Y: Данные;

end;

Var Нач, s1,s2: ссылка;

I,j,n: integer;

Begin

Writeln (‘Вводите количество фамилий в списке’);

Readln (n);

New (s1);

Нач:=s1;

For i:=1 to n do

Begin

s1^.cc:=nil;

Writeln (‘Вводите фамилию из 7 букв’);

For j:=1 to 7 do read (s1^.y.ФИО [j]);

For j:=1 to 4 do read (s1^.y.оценки [j]);

s2:=s1; New (s1)

If i<>n then s2 ^.CC:= s1 Else dispose (s1);

End; {*Закончено формирование списка*}

s1:=нач;

Repeat

For i:=1 to 4 do

If s1^.y.оценки [i]=2 then if s1=нач then нач:= s1^.cc

Else s2^.cc:= s1^.cc; s2:=s1; s1:=s1^.CC;

Until s1=nil;

writeln (‘Список успевающих учащихся: ’); {*Печать списка*}

s1=нач;

while s1<>nil do

Begin

write (s1^.y.ФИО [j]);

For i:=1 to 4 do

write (‘ ’,s1^.y.оценки [i]:2);

Writeln;

s1:=s1^.cc;

end;

End.

Данную программу можно записать и с использованием оператора присоединения. При этом следует помнить, что в области действия оператора присоединения нельзя изменять элементы списка переменных-записей, указанных в заголовке.

Протокол работы программы ИСКЛ:

Вводи количество фамилий в списке: 3

Вводи фамилию из 7 букв и оценки

КОТОВ 4 4 5 2

Вводи фамилию из 7 букв и оценки

СОМОВ 5 5 5 5

Вводи фамилию из 7 букв и оценки

ТОКАРЕВ 3 4 4 3

Список успевающих учащихся

СОМОВ 5 5 5 5

ТОКАРЕВ 3 4 4 3