- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Структуры данных. Запись. (Лекция 7) презентация
Содержание
- 1. Структуры данных. Запись. (Лекция 7)
- 2. Структуры данных совокупность элементов информации, находящихся в
- 3. Df: Статические структуры - такие структуры, размеры
- 4. Свойства структур данных Линейные и нелинейные.
- 5. Свойства структуры данных ЗАПИСЬ: Линейная/нелинейная Фиксированного размера С произвольным доступом к элементам Неоднородная
- 6. Синтаксические диаграммы
- 7. Описание шаблона записи type имя
- 8. Информационная структура о студенте
- 9. Описание структуры type student= record
- 10. Информационная структура о студенте
- 11. Описание структуры type student= record
- 12. Доступ к элементу записи осуществляется с помощью
- 13. Оператор присоединения
- 14. Например: st.fio. suname:=‘Петр’; st.fio. surname :=‘Петрович’; st.fio.name:=‘Петров’;
- 15. Задача Имеются данные о семи линиях электропередач
- 16. Информационная структура о ЛЭП
- 17. Основная программа Uses op, obrabotki; VAR
- 18. Описание данных (модуль описания) unit op; interface
- 19. Подпрограммы модуля обработки
- 20. unit obrabotki; Interface uses op; procedure vvod
- 21. Процедура Ввод исходного массива записей procedure
- 22. Процедура Вывода исходного массива записей procedure
- 23. Процедура Вывод справки о ЛЭП, введенных в
- 24. Процедура Определение номера ЛЭП, имеющий минимальную протяженность
Структуры данных совокупность элементов информации, находящихся в определенной, заранее заданной взаимосвязи. Общая классификация данных: статически размещаемые данные; динамически размещаемые данные
Слайд 2Структуры данных
совокупность элементов информации, находящихся в определенной, заранее заданной взаимосвязи.
Общая классификация
данных:
статически размещаемые данные;
динамически размещаемые данные
статически размещаемые данные;
динамически размещаемые данные
Слайд 3Df: Статические структуры - такие структуры, размеры которых не могут изменяться
в ходе выполнения программы.
Df: Динамические структуры - такие структуры, размеры которых могут изменяться в процессе работы программы.
Df: Динамические структуры - такие структуры, размеры которых могут изменяться в процессе работы программы.
Слайд 4Свойства структур данных
Линейные и нелинейные.
Фиксированного и переменного размера.
С произвольным доступом к
элементам и с последовательным доступом к строго определенному элементу.
Однородные и неоднородные.
Однородные и неоднородные.
Слайд 5Свойства структуры данных ЗАПИСЬ:
Линейная/нелинейная
Фиксированного размера
С произвольным доступом к элементам
Неоднородная
Слайд 7Описание шаблона записи
type имя шаблона= record
имя поля 1: типа поля;
имя поля 2: типа поля;
…………………………………….
имя поля n: типа поля;
end;
имя поля 2: типа поля;
…………………………………….
имя поля n: типа поля;
end;
Слайд 9Описание структуры
type student= record
fio : string[10];
data: string[10];
grant : real;
facultet :string[10];
end;
var st:student;
data: string[10];
grant : real;
facultet :string[10];
end;
var st:student;
Слайд 11Описание структуры
type student= record
fio : record
suname: string[10];
surname: string[10];
name: string[10];
end;
data: record
day: 1..31;
month: 1..12;
year: 1980..2000;
end;
grant : real;
facultet :string[10];
end;
var st : student;
suname: string[10];
surname: string[10];
name: string[10];
end;
data: record
day: 1..31;
month: 1..12;
year: 1980..2000;
end;
grant : real;
facultet :string[10];
end;
var st : student;
Слайд 12Доступ к элементу записи осуществляется с помощью операции "точка"
.
st.
grant;
st. facultet;
st.fio.name;
st.data.day;
st. facultet;
st.fio.name;
st.data.day;
Слайд 14Например:
st.fio. suname:=‘Петр’;
st.fio. surname :=‘Петрович’;
st.fio.name:=‘Петров’;
with st do
with fio do begin
suname:=‘Петр’;
surname :=‘Петрович’;
name:=‘Петров’;
end;
suname:=‘Петр’;
surname :=‘Петрович’;
name:=‘Петров’;
end;
with st, fio do begin
suname:=‘Петр’;
surname :=‘Петрович’;
name:=‘Петров’;
end;
Слайд 15Задача
Имеются данные о семи линиях электропередач (ЛЭП): шифр, напряжение, протяженность, год
ввода в действие, дата последних линейных работ. Требуется выдать справку о ЛЭП, введенных в действие более 10-ти лет назад, а также выдать сведения о ЛЭП минимальной протяженности.
Слайд 17Основная программа
Uses op, obrabotki;
VAR
n_min : byte;
sved : sved1;
Begin
vvod (sved);
vivod(sved);
spravka (sved);
min_prot (sved, n_min);
with sved[n_min] do
writeln(code:12, voltage:6, space:6, year:6, data)
End.
Begin
vvod (sved);
vivod(sved);
spravka (sved);
min_prot (sved, n_min);
with sved[n_min] do
writeln(code:12, voltage:6, space:6, year:6, data)
End.
Слайд 18Описание данных (модуль описания)
unit op;
interface
const
n=10;
present_year=2016;
type
lep= record
сode : string[8] ;
voltage : integer;
space : integer;
year : 1900..2015;
data : string[8] ;
end;
sved1 = array[1..n] of lep;
implementation
end.
сode : string[8] ;
voltage : integer;
space : integer;
year : 1900..2015;
data : string[8] ;
end;
sved1 = array[1..n] of lep;
implementation
end.
Слайд 20unit obrabotki;
Interface
uses op;
procedure vvod (var sved:sved1);
procedure vivod (var sved:sved1);
procedure spravka (var
sved:sved1);
procedure min_prot (var sved:sved1; var n_min: byte);
Implementation
procedure min_prot (var sved:sved1; var n_min: byte);
Implementation
Слайд 21Процедура Ввод исходного массива записей
procedure vvod (var sved:sved1);
var
i: byte;
Begin
for
i:=1 to n do
with sved[i] do
begin
write('Введите шифр ',i,' ЛЭП’);
readln(code);
write('Введите напряжение ',i,' ЛЭП');
readln(voltage);
write('Введите протяженность ',i,' ЛЭП');
readln(space);
write('Введите год ввода в действие ',i,' ЛЭП');
readln(year);
write('Введите дата последних линейных работ на ',i,' ЛЭП');
readln(data)
end;
End;
with sved[i] do
begin
write('Введите шифр ',i,' ЛЭП’);
readln(code);
write('Введите напряжение ',i,' ЛЭП');
readln(voltage);
write('Введите протяженность ',i,' ЛЭП');
readln(space);
write('Введите год ввода в действие ',i,' ЛЭП');
readln(year);
write('Введите дата последних линейных работ на ',i,' ЛЭП');
readln(data)
end;
End;
Слайд 22Процедура Вывода исходного массива записей
procedure vivod (var sved:sved1);
var
i : byte;
begin
for i:=1 to n do
with sved[i] do
writeln(code, ‘ ‘, voltage, ‘ ‘, space, ‘ ‘, year, ‘ ‘,data);
end;
begin
for i:=1 to n do
with sved[i] do
writeln(code, ‘ ‘, voltage, ‘ ‘, space, ‘ ‘, year, ‘ ‘,data);
end;
Слайд 23Процедура Вывод справки о ЛЭП, введенных в действие более 10-ти лет
назад
procedure spravka (var sved:sved1);
var
i : byte;
Begin
writeln(‘Cправкa о ЛЭП, введенных в действие более 10-ти лет назад’);
for i:=1 to n do
with sved[i] do
if present_year – year>10 then
writeln(code:12, voltage:6, space:6, year:6, data);
End;
Слайд 24Процедура Определение номера ЛЭП, имеющий минимальную протяженность
procedure min_prot (var sved:sved1; var
n_min: byte);
var
i : byte;
min : integer;
Begin
writeln(‘Сведения о ЛЭП, имеющую минимальную протяженность’);
min:=sved[1].space;
n_min:=1;
for i:=2 to n do
with sved[i] do
if space min:= space;
n_min:=i
end;
End;
End.
var
i : byte;
min : integer;
Begin
writeln(‘Сведения о ЛЭП, имеющую минимальную протяженность’);
min:=sved[1].space;
n_min:=1;
for i:=2 to n do
with sved[i] do
if space
n_min:=i
end;
End;
End.
