[Pascal – TUT] Posts 9: Type of record – Record
1. Declare:
the. Declaring indirect
Syntax:
Type <Tên kiểu> = RECORD <Tên trường 1> :<Kiểu trường> <Tên trường 2>:<Kiểu trường> ... END;
Example:
Type date=RECORD ngay,thang:byte; nam:word; End; HOCSINH = RECORD MaSV:string[15]; Hoten:string[30]; Ngaysinh:date; Diachi: String; End;
Noted: Without testing earlier date can be described directly as follows:
Type HOCSINH = RECORD MaSV:string[15]; Hoten:string[30]; Ngaysinh:record {sử dụng khai báo trực tiếp} ngay:1..31; thang:1..12; nam:word; End; Diachi: String; End; Var HSA,HSB: HOCSINH; Lop12A: Array[1..50] of HOCSINH;
b. Declaring directly
Syntax:
<pre>var <tên kiểu>: RECORD <Tên trường 1> :<Kiểu trường> <Tên trường 2>:<Kiểu trường> ... END;
2. Access a variable record
To retrieve the record variable to have access to all of the variables with the following syntax:
<Tên biến record>.<tên trường>
Attention:
– The same type of record variables can be assigned to each other while processing all the information from this record will be assigned to variables other record.
For example, we assign: HSA:= HSB instead must perform assigned to each of the variables as
HSA.hoten:= HSB.hoten;
HSA.ngaysinh:= HSB.ngaysinh;
…
– You can use comparisons =, <> give 2 variable record but can not be used for comparison <,<=,>,>=.
For example, we can compare:
if HSA=HSB then writeln('Provide a student');
HOAc IF HSA.hoten = HSB.hoten then writeln('The ten pupils');
But not comparable:
if HSA>HSB then writeln(‘HS A lon hon HS B’);
– Do not use the procedure read, readln, write, writeln for a variable record
For example, can not be used:
writeln(HSA);
– Do not use all arithmetic and logic with variable record.
3. With statement
As seen on the access to a field variable Record by name and dots, complicates program, settle down somewhat this complexity, Pascal made the statement With … do
Syntax:
WITH <biến kiểu record> Do <câu lệnh>;
Attention:
We can nest statements together with due to visit schools in the string of record.
For example, the high school student and Ngaysinh are variable but ngaysinh is a school record of hocsinh we can write the following:
WITH HOCSINH DO WITH ngaysinh DO <lệnh>;
or
WITH HOCSINH, ngaysinh DO <lệnh>;
Original article : vietsource.net
Do sequencing post should have little confused Posts 10: Files in pascal - File Type was written earlier, you see here nhé.
cảm ơn bạn nhiều lắm 😀
Wish you good school. 😀
Visit the blog frequently offline.
Brother star has no part 2 sir….
E 1 Military Posts, and he wanted to ask questions via e-mail can of A is not it!!
Part 2 quên không làm 😀
ok can you keep your mail
Anh ơi anh có bài tập về bản ghi ko ah, anh up cho em xin với
Bạn tìm trên mạng nhiều lắm. “Bài tập bản ghi pascal”
Ai giúp mình làm bài này được không? “Cho một dãy gồm n số nguyên dương a1, a2, ..., an. Hãy tìm tất cả các số nguyên tố và sắp xếp theo thứ tự tăng dần của dãy số tìm được sau đó tính tích dãy số tìm được đó. If not found, it appears the message "Day zero the terms and conditions".”
their programs are not sorted, just do some other requirements for severance
PROGRAM Hacker;
USES crt;
VAR n,j,from :^integer;
The,B :array[1..500] of integer;
test :tank;
in,the :integer;
tich :longint;
BEGIN
repeat
repeat
clrscr;
write('Number of elements of the sequence is');
new(n);
read(n^);
until n^ > 0;
write('Enter the code.');
readkey;
clrscr;
for i:= 1 to n^ do
start
write(‘So thu ‘,in,’ the ');
readln(The[in]);
than;
new(j);
new(from);
j^:= 0;
the:= 0;
for i:= 1 to n^ do
start
z ^:= 2;
while A[in] mod z^ 0 do z^:= Z ^ + 1;
if A[in] = z^ then
start
j^:= j^ + 1;
B[j^]:= A[in];
the:= the + 1;
than;
than;
if the = 0 then
start
clrscr;
write('Day than unsatisfactory condition code.');
than
else
start
tich:= 1;
for i:= 1 to dem do tich:= tich * B[in];
write('Tich primes la',tich,’.’);
readkey;
than;
clrscr;
writeln('Do you want to go back and continue ?');
writeln(‘1. Co’);
writeln(‘2. Not');
test:= readkey;
until test = ‘2’;
END.
Em thật sự cảm.ơn anh rất nhiều em đi ôn hsg tin 11 thầy giảng kiểu bản gi e không hiểu xem anh giảng cũng như cho ví dụ em cảm thấy mình hiểu ra nhiều mong anh tiếp tục cho ra các bài viết hay thế này ạ…Thân gửi anh :).
Thank you offline. 🙂
Kiểu Pointtype có phải là bản gi ko anh
Yeah you.
kiểu PointType được định nghĩa sẵn bởi unit Graph như sau:
PointType = Record X, AND : Integer End;