Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Записи ( RECORD)
Содержание
- 1. Записи ( RECORD)
- 2. Запис - це структурований тип даних, що
- 3. Загальний вигляд опису типу record: type = record : ; : ; ...................... : ; end;
- 4. Доступ до конкретного поля запису дає складене ім’я вигляду .
- 5. Приклад 1. Дати яких-небудь подій можна описати
- 6. Поле day змінної D записується як D.day.
- 7. Приклад 2. Тип який описує оцінки з
- 8. Запис може бути вкладеним в інший запис. Приклад
- 9. grupa=record name, surname:string[20]; birthday:record year:integer; month:1..12; day:1..31; end; sbal:real; end;
- 10. Запис може бути компонентом інших структур. Приклад 4.
- 11. Відповідний фрагмент програми виглядає так: Var X:
- 12. Оператор приєднання WITH
- 13. Оператор With використовується для зручності роботи зі
- 14. В операторі що слідує після do при
- 15. Приклад 5. Для занесення оцінок першого студента в попередньому прикладі достатньо виконати оператори: with X[1] do begin geod:=4; math:=3; inform:=5; end;
- 16. Тепер використовуючи оператор приєднання with і оператор
- 17. Program Zapysy; Const n=3; type reiting=record geod,math,inform:integer;
- 18. for i:=1 to n do with
- 19. For i:=1 to n do With
- 20. Слайд 20
- 21. Program Complexni_Chysla;Type complex=record re,im:real; end;Var z1,z2,z3,r1,r2:complex;procedure spr(c:complex;
- 22. procedure dil(c1,c2:complex; Var r:complex);Var d:real;begin d:=sqr(c2.re)+sqr(c2.im); if
- 23. {--------Osnovna programa----------}beginwriteln('Enter z1.re,z1.im');readln(z1.re,z1.im);writeln('Enter z2.re,z2.im');readln(z2.re,z2.im);spr(z2,r1);suma(z1,r1,r2);dil(r2,z2,z3);writeln('z3.re=',z3.re,' z3.im=',z3.im);end.
- 24. Скачать презентанцию
Запис - це структурований тип даних, що складається з фіксованого числа компонентів, які називають полями. В одному полі дані мають той самий тип, а в різних полях можуть мати різні типи.
Слайды и текст этой презентации
Слайд 3 Загальний вигляд опису типу record:
type =
record
: ;
:
<тип поля 2>;......................
<назва поля N> : <тип поля N>;
end;
Слайд 5 Приклад 1. Дати яких-небудь подій можна описати в такий спосіб:
type date=record
month: 1..12;
day: 1..31;
year:
integer;end;
var D: date;
Слайд 6Поле day змінної D записується як D.day.
Наприклад, щоб заслати
в D дату 12.01.1985, треба виконати наступні оператори:
D.day:=12;
D.month:=1;
D.year:=1985;
Слайд 7 Приклад 2. Тип який описує оцінки з трьох предметів (геодезії,
математики, інформатики і рейтинг студента, як середнє з цих трьох
оцінок).type reiting=record
geod,math,inform:integer;
reit:real;
end;
var C:reiting;
Слайд 8 Запис може бути вкладеним в інший запис.
Приклад 3. Запис про
анкетні дані студентів: прізвище, ім’я, дату народження та середній бал,
можна описати наступним чином:
Слайд 9 grupa=record
name, surname:string[20];
birthday:record
year:integer;
month:1..12;
day:1..31;
end;
sbal:real;
end;
![grupa=record name, surname:string[20]; birthday:record year:integer; month:1..12; day:1..31; end; sbal:real; end;](/img/thumbs/a4f85746a4a18f3bfc6cce63a60e4ef0-800x.jpg "Записи ( RECORD) grupa=record name, surname:string[20]; birthday:record year:integer; month:1..12; day:1..31; end; sbal:real; end;")
Слайд 10 Запис може бути компонентом інших структур.
Приклад 4. Дано оцінки студентів
по геодезії, математиці й інформатиці в групі (наприклад із трьох
чоловік)X[1].geod=4, X[1].math=3, X[1].inform=5,
X[2].geod=3, X[2].math=4, X[2].inform=3,
X[3].geod=5, X[3].math=4, X[3].inform=4.
Обчислити рейтинг кожного студента, як середній бал з цих трьох оцінок.
Слайд 11 Відповідний фрагмент програми виглядає так:
Var X: array [1..3] of
reiting; {див. приклад 2}
i:word;
begin
X[1].geod=4; X[1].math=3; X[1].inform=5;
X[2].geod=3; X[2].math=4; X[2].inform=3;
X[3].geod=5; X[3].math=4; X[3].inform=4;For i:=1 to 3 do
X[i].reit:=(X[i].geod+X[i].math+X[i].inform)/3;
……
![Відповідний фрагмент програми виглядає так: Var X: array [1..3] of reiting; {див. приклад 2}i:word;begin X[1].geod=4; X[1].math=3; X[1].inform=5;](/img/tmb/3/246405/c74c4993fd93f8110f8bbef0a3cd7e88-800x.jpg "Записи ( RECORD) Відповідний фрагмент програми виглядає так: Var X: array [1..3] of reiting;")
Слайд 13 Оператор With використовується для зручності роботи зі змінними типу record
(запис). Він дає змогу звертатися до поля запису вказуючи лише
ім’я поля.Загальний вигляд оператора with:
with <ім'я змінної типу record> do <оператор>;
Слайд 14 В операторі що слідує після do при посиланнях на компоненти
запису ім'я запису можна опускати.
Зауваження. В операторі with після do
виконується лише один оператор. Якщо потрібно щоб виконувались декілька операторів, то їх необхідно взяти в операторні дужки (begin … end).
Слайд 15 Приклад 5. Для занесення оцінок першого студента в попередньому прикладі
достатньо виконати оператори:
with X[1] do
begin
geod:=4;
math:=3;
inform:=5;
end;
![Приклад 5. Для занесення оцінок першого студента в попередньому прикладі достатньо виконати оператори: with X[1] do begin geod:=4; math:=3; inform:=5; end;](/img/thumbs/6ebb4b0d13a0e2e575a311505791cb5f-800x.jpg "Записи ( RECORD) Приклад 5. Для занесення оцінок першого студента в попередньому прикладі достатньо виконати оператори: with X[1] do begin geod:=4; math:=3; inform:=5; end;")
Слайд 16 Тепер використовуючи оператор приєднання with і оператор циклу з параметром
програму для вище наведеного прикладу 4 можна записати в такому
вигляді:
Слайд 17 Program Zapysy;
Const n=3;
type reiting=record
geod,math,inform:integer;
reit:real;
end;
Var X: array [1..n] of reiting;
begin
![Program Zapysy; Const n=3; type reiting=record geod,math,inform:integer; reit:real; end; Var X: array [1..n] of reiting; begin](/img/tmb/3/246405/23d3ccd93197105648b273fd2e5b0bb9-800x.jpg "Записи ( RECORD) Program Zapysy; Const n=3; type reiting=record geod,math,inform:integer; reit:real; end; Var X: array [1..n] of reiting; begin")
Слайд 18for i:=1 to n do
with X[i] do
begin
writeln(‘Enter ocinku z geodezii’,i, ’studenta’);
readln(geod);
writeln(‘Enter ocinku z matematuki’,i, ’studenta’);
readln(math);
writeln(‘Enter
ocinku z informatuki ’,i, ’studenta’);readln(inform);
end;
![for i:=1 to n do with X[i] do begin writeln(‘Enter ocinku z geodezii’,i, ’studenta’); readln(geod); writeln(‘Enter ocinku](/img/tmb/3/246405/023ecfefb0738f471e6343cfcd678ed9-800x.jpg "Записи ( RECORD) for i:=1 to n do with X[i] do begin writeln(‘Enter ocinku")
Слайд 19For i:=1 to n do
With X[i] do
begin
reit:=(geod+math+inform)/3;
writeln(‘Reiting’,i,’studenta=’,X[i]:5:2);
end;
end.
Змінюючи константу n можна обчислювати
рейтинги для різної кількості студентів.![For i:=1 to n do With X[i] do begin reit:=(geod+math+inform)/3; writeln(‘Reiting’,i,’studenta=’,X[i]:5:2); end;end. Змінюючи константу n](/img/thumbs/fef3f8190d3ab9615489090bc5415509-800x.jpg "Записи ( RECORD) For i:=1 to n do With X[i] do begin")
Слайд 21Program Complexni_Chysla;
Type complex=record
re,im:real;
end;
Var z1,z2,z3,r1,r2:complex;
procedure spr(c:complex; Var r:complex);
begin
r.re:=c.re;
r.im:=-c.im;
end;
procedure suma(c1,c2:complex; Var r:complex);
begin
r.re:=c1.re+c2.re;r.im:=c1.im+c2.im;
end;
Слайд 22procedure dil(c1,c2:complex; Var r:complex);
Var d:real;
begin
d:=sqr(c2.re)+sqr(c2.im);
if d0 then
begin
r.re:=(c1.re*c2.re+c1.im*c2.im)/d;
r.im:=(c1.im*c2.re-c1.re*c2.im)/d;
end;
end;
Слайд 23{--------Osnovna programa----------}
begin
writeln('Enter z1.re,z1.im');
readln(z1.re,z1.im);
writeln('Enter z2.re,z2.im');
readln(z2.re,z2.im);
spr(z2,r1);
suma(z1,r1,r2);
dil(r2,z2,z3);
writeln('z3.re=',z3.re,' z3.im=',z3.im);
end.
