[帕斯卡尔 – TUT] 帖子 9: 记录类型 – 记录
1. 声明:
该. 间接的声明
句法:
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;
例:
Type date=RECORD ngay,thang:byte; nam:word; End; HOCSINH = RECORD MaSV:string[15]; Hoten:string[30]; Ngaysinh:date; Diachi: String; End;
注意: 如果没有可以如下描述直接测试更早:
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. 直接声明
句法:
<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. 访问变量记录
检索记录变量来访问所有的变量使用以下语法:
<Tên biến record>.<tên trường>
注意:
– 同一类型的记录的变量可以分配给对方,而此记录处理的所有信息将被分配给变量的其他记录.
例如,我们分配: HSA:= HSB代替必须执行分配给每个变量的
HSA.hoten:= HSB.hoten;
HSA.ngaysinh:= HSB.ngaysinh;
…
– 您可以使用比较=, <> 给 2 可变记录但不能用于比较 <,<=,>,>=.
例如,我们可以比较:
如果HSA = HSB然后writeln(“提供一个学生);
乙酸IF HSA.hoten = HSB.hoten然后writeln(“十个学生”);
但是,没有可比性:
如果HSA>HSB然后writeln(“HS流传广泛的民汉HS B');
– 不要使用读程序, readln, 写, writeln用于可变记录
例如,不能使用:
writeln(HSA);
– 不要使用所有的算术和逻辑与可变记录.
3. 与声明
正如看到的名字和圆点访问字段变量记录, 复杂的程序, 安顿下来有点这种复杂性, 帕斯卡的发言 与...做
句法:
WITH <biến kiểu record> Do <câu lệnh>;
注意:
我们可以嵌套语句一起因学校参观记录的字符串.
例如,高中生Ngaysinh是可变的,但ngaysinh是hocsinh我们可以写出下面的一个学校纪录:
WITH HOCSINH DO WITH ngaysinh DO <lệnh>;
或
WITH HOCSINH, ngaysinh DO <lệnh>;
原创文章 : vietsource.net
做测序后应该有一点困惑 帖子 10: 文件类型 - 在帕斯卡文件 前面写, 你看 这里 NHE.
cảm ơn bạn nhiều lắm 😀
祝你所好学校. 😀
经常离线访问博客.
星哥有没有参与 2 先生….
Ë 1 军事哨所,他想问通过电子邮件可以在问题是不是!!
部分 2 quên không làm 😀
确定你能保持你的邮件
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, ..., 一个. 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 đó. 如果没有找到,它会显示消息“天零个的条款和条件”。”
他们的节目不会被排序, 只是做了一些遣散其他要求
黑客程序;
用途CRT;
VARñ,Ĵ,从 :^整数;
该,B :排列[1..500] 整数;
测试 :坦克;
在,该 :整数;
TICH :Longint型;
开始
重复
重复
clrscr;
写(“的序列的元素的数目为”);
新(ñ);
读(ñ^);
直到N R个 > 0;
写(“输入验证码”。);
readkey;
clrscr;
为我:= 1 到n ^做
开始
写(“所以周四“,在,’ 在');
readln(该[在]);
比;
新(Ĵ);
新(从);
J(1):= 0;
该:= 0;
为我:= 1 到n ^做
开始
Z 1:= 2;
而A[在] MOD Z 1 0 做Z 1:= Z ^ + 1;
如果一个[在] = Z ^然后
开始
J(1):= j的^ + 1;
B[J(1)]:= A[在];
该:=的 + 1;
比;
比;
如果= 0 然后
开始
clrscr;
写(节比不令人满意的条件码“。);
比
其他
开始
TICH:= 1;
为我:= 1 以数字高程模型做TICH:= TICH * B[在];
写('蒂奇·普赖姆斯LA',TICH,”。”);
readkey;
比;
clrscr;
writeln(“你要回去继续 ?“);
writeln(“1. Co’);
writeln(‘2. Khong’);
测试:= 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 :).
离线谢谢. 🙂
Kiểu Pointtype có phải là bản gi ko anh
是的,你.
kiểu PointType được định nghĩa sẵn bởi unit Graph như sau:
PointType = Record X, 与 : Integer End;