Records c2

Pascal Programming Language
Omar ElSabek & Fayez Ghazzawi
IT Engineering
3th year – UNKNOWN Department
programming II

Sets
 Record
Files (Text & Binary)
Pointers
 Linked Lists
 Unit
Course Index :

• Let’s Begin learning the RECORDS

Program Test();
Var
First_name : array [1..100] of String;
Last_name : array [1..100] of String;
Age : array [1..100] of Integer;
Day : array [1..100] of Integer;
Month : array [1..100] of Integer;
year : array [1..100] of Integer;
i,n : Integer;
Begin
Readln(n);
For i:=1 to n do
Read(First_name[i],Last_name[i],Age[i],Day[i],Month[i],year[i]);
Readln;
End.
OMG !!

Record
A record is a special type of data structure that, unlike arrays,
collects different data types that define a particular structure such
as a book, product, person and many others. Which defines the
data structure under the Type user definition.

How we Define it ?
type
record-name = record
field-1: field-type1;
field-2: field-type2;
...
end ;

What Data type it can content ?
Simple DataType
Integer
Real
Char
String
Boolean

What Data type it can content ?
complex object
Date (D,M,Y)
Time (H,M,S)
Rectangle (L,W)
Employee (….)
…
multi arrays for multi data type

program exRecords;
type
Books = record
title: String [30];
author: String [30];
subject: String [30];
book_id: longint;
end;

var
Book1, Book2: Books;
begin
(* book 1 specification *)
Book1.title := 'C Programming';
Book1.author := 'Nuha Ali ';
Book1.subject := 'C Programming Tutorial';
Book1.book_id := 6495407;

(* book 2 specification *)
Book2.title := 'Telecom Billing';
Book2.author := 'Zara Ali';
Book2.subject := 'Telecom Billing Tutorial';
Book2.book_id := 6495700;
writeln ('Book 1 title : ', Book1.title);
writeln('Book 1 author : ', Book1.author);
writeln( 'Book 1 subject : ', Book1.subject);
writeln( 'Book 1 book_id : ', Book1.book_id);
writeln;

(* print Book2 info *)
writeln ('Book 2 title : ', Book2.title);
writeln('Book 2 author : ', Book2.author);
writeln( 'Book 2 subject : ', Book2.subject);
writeln( 'Book 2 book_id : ', Book2.book_id);
end.

Type
Date = Record
Day, month, year : Integer;
End;
STD = Record
First_name : string[20];
Last_name : String[20];
Age : Real;
DODO : Date;
End;
STD
DODO
F
N
A
M
E
L
N
A
M
E
A
g
e
D M Y

Var
x,y : STD;
A : array [1..100] of STD;
I : integer;

x.First_name
A[i].First_name
A[i].Age
A[i].DODO.Day

x.
First_name
Last_name
DODO.
Age
Year
Month
Day

For I:=1 to 100 do
Begin
Readln(A[I].First_name);
Readln(A[I].Last_name);
Readln(A[I].Age);
Readln(A[I].Date.year);
Readln(A[I].Date.Month);
Readln(A[I].Date.Day);
End;

It is using for accessing record fields directly
without [dot] operator
Accessing fields
without [dot]

With X do
Begin
Readln(First_name);
Readln(Last_name);
Readln(Age);
With Date do
Begin
Readln(year);
Readln(Month);
Readln(Day);
End;
End;


‫طائرة‬ ‫بيانات‬ ‫طيران‬ ‫شركة‬ ‫موظف‬ ‫يدخل‬ ‫برنامج‬ ‫كتابة‬:
‫الطائرة‬ ‫في‬ ‫المقاعد‬ ‫عدد‬ ‫اوال‬ ‫يحدد‬
‫تتضمن‬ ‫والتي‬ ‫الحجوزات‬ ‫بيانات‬ ‫ادخال‬ ‫ب‬ ‫يقوم‬ ‫ثم‬:
1-‫المقعد‬ ‫رقم‬2-‫التذكرة‬ ‫حامل‬ ‫اسم‬3-‫الكنية‬
4-‫الرحلة‬ ‫موعد‬5-‫االولى‬ ‫الدرجة‬ ‫من‬ ‫المقعدد‬ ‫هل‬ ‫تحدد‬ ‫منطقية‬ ‫قيمة‬
(‫اياب‬ ‫و‬ ‫ذهاب‬ ‫الرحلة‬ ‫الن‬ ‫مرتيين‬ ‫البيانات‬ ‫ادخال‬ ‫يتم‬)
‫المطلوب‬:
1-‫ايابا‬ ‫و‬ ‫ذهابا‬ ‫الطائرة‬ ‫سجالت‬ ‫ملئ‬ ‫اجرائية‬
2-‫الطائرة‬ ‫سجالت‬ ‫عرض‬ ‫اجرائية‬
3-‫الرقم‬ ‫حسب‬ ‫مقعد‬ ‫معلومات‬ ‫طباعة‬ ‫و‬ ‫بحث‬ ‫اجرائية‬

‫المطلوب‬:
1-‫ايابا‬ ‫و‬ ‫ذهابا‬ ‫الطائرة‬ ‫سجالت‬ ‫ملئ‬ ‫اجرائية‬
2-‫الطائرة‬ ‫سجالت‬ ‫عرض‬ ‫اجرائية‬
3-‫الرقم‬ ‫حسب‬ ‫مقعد‬ ‫معلومات‬ ‫طباعة‬ ‫و‬ ‫بحث‬ ‫اجرائية‬
4-‫المقعد‬ ‫رقم‬ ‫حسب‬ ‫الطائرة‬ ‫سجل‬ ‫ترتيب‬
5-‫الرحلة‬ ‫في‬ ‫ايابا‬ ‫و‬ ‫ذهابا‬ ‫حجزها‬ ‫تم‬ ‫التي‬ ‫المقاعد‬ ‫ارقام‬ ‫مجموعة‬ ‫طباعة‬


Records c2

More Related Content

More from Omar Al-Sabek (14)

Recently uploaded (20)

Records c2