3. D歎 liu kiu b其n ghi
1. D歎 liu kiu b其n ghi d誰ng 速 m束 t其 c存c 速竪i t足樽ng
c達 c誰ng m辿t s竪 thu辿c
tnh m亮 c存c thu辿c tnh c達 th c達 kiu d歎 liu
kh存c nhau.
2. Khai b存o kiu b其n ghi
Type
< t捉n kiu b其n ghi> = record
<t捉n tr足棚ng
1> : kiu tr足棚ng
1;
< t捉n tr足棚ng
2> : kiu tr足棚ng
2;
end;
Var <t捉n bin > : <t捉n kiu b其n ghi>;
<t捉n m其ng > : ARRAY[1..Max] of < t捉n kiu b其n ghi>;
4. SBD H辰 t捉n To存n V即n Kt qu其
01 Nguyn An 10.0 9.0
02 V嘆 Ng辰c Bnh 8.5 5.0
... ....... ... ...
T脱ng
48 Trn Thu Tr亮 7.0 6.5
49 則ng Anh Tun 5.0 7.5
50 Phan V息n 6.0 4.5
Type
Hocsinh = record
SBD: integer;
Hoten: string[30];
Toan,Van,Tong: real;
Ketqua: string[10];
end;
Var LOP: ARRAY[1..50] of Hocsinh;
I,j,n : integer;
Khai b存o kiu d歎 liu
cho c存c tr足棚ng
(field)
Khai b存o bin kiu
b其n ghi (record)
5. 3. C存c thao t存c v鱈i b其n ghi
a. Nhp th束ng tin h辰c sinh
Write( Nhap vao so hoc sinh trong lop : );
readln(n);
C存c b足鱈c:
Th hin b損ng pascal
- Nhp s竪 h辰c sinh
For i:=1 to n do
Begin
writeln( Nhap du lieu cho hoc sinh thu ,i);
Write( SBD : ); readln(LOP[i].SBD);
Write(HO TEN : ); readln(LOP[i].Hoten);
Write( Diem toan : );readln(LOP[i].Toan);
Write( Diem van : );readln(LOP[i].Van);
end;
- Nhp d歎 liu (c存c
thu辿c tnh) c単a
t探ng b其n ghi
6. Khi i = 1 LOP[1].SBD
SBD H辰 v亮 t捉n To存n V即n
01 Nguyn An 10.0 9.0
Qu存 trnh nhp kt th坦c khi nhp ht d歎 liu cho b其n ghi th淡
n.
* Nhp gi存 tr tr足棚ng
cho SBD c単a h辰c sinh th淡 nht n損m 谷
b其n ghi 速u ti捉n.
* T足
測ng t湛 nh足vy
nhp gi存 tr c存c tr足棚ng
cn l孫i.
7. b. C存c thao t存c x旦 l trong b其n ghi
Tnh t脱ng 速im v即n v亮 to存n c単a t探ng h辰c sinh
trong l鱈p.
For i:=1 to n do
LOP[i].Tong:= LOP[i].Toan + LOP[i].Van;
D誰ng lnh g 速
tnh t脱ng cho
t探ng b其n ghi nh ?
則in ch歎 則孫t v亮o c辿t kt qu其 cho nh歎ng h辰c sinh c達 t脱ng
>=10, ng足樽c
l孫i 速in ch歎 Khong dat.
For i:=1 to n do
IF LOP[i].Tong>=10 then LOP[i].Ketqua=Dat
else LOP[i].Ketqua=Khong dat;
8. c. In d歎 liu kiu b其n ghi
C存c b足鱈c:
Th hin b損ng pascal
Th束ng b存o in Writeln( Bang ket qua kiem tra chat luong );
In b其ng d歎 liu For i:=1 to n do
Writeln(LOP[I].sbd:5,LOP[i].Hoten:30,
LOP[i].Toan:5:1,LOP[i].Van:5:1,
LOP[i].Tong:8:1,LOP[i].Ketqua:15);
9. Program vd1;
Uses crt;
Type { Khai bao}
H揃y vit ch足
測ng
trnh ho亮n chnh
速 gi其i b亮i to存n
速t vn 速 ?
Hocsinh = record
SBD: integer;
Hoten: string[30];
Toan,Van,Tong:real;
Ketqua: string[10];
end;
Var LOP: ARRAY[1..100] of Hocsinh;
i,n: integer;
BEGIN
Clrscr; { nhap so hoc sinh }
Write( Nhap vao so hoc sinh trong lop : );
readln(n);
{ nhap du lieu tung ban ghi}
For i:=1 to n do
Begin
writeln( Nhap so lieu hoc sinh thu ,i);
Write( SBD : ); readln(LOP[i].SBD);
Write(HO VA TEN : ); readln(LOP[i].Hoten);
Write( Diem toan : );readln(LOP[i].Toan);
Write( Diem van : );readln(LOP[i].Van);
end;
{ tinh tong cho tung ban ghi }
For i:=1 to n do
LOP[i].Tong := LOP[i].Toan + LOP[i].Van;
{ dien ket qua cho tung ban ghi }
For i:=1 to n do
if LOP[i].Tong>=10 then
LOP[i].Ketqua:=Dat
else LOP[i].Ketqua:=Khong dat;
{ In bang du lieu }
Writeln( Bang ket qua kiem tra );
For i:=1 to n do
Writeln(LOP[I].sbd:5,LOP[i].Hoten:30,
LOP[i].toan:5:1,LOP[i].Van:5:1,
LOP[i].tong:8:1,LOP[i].Ketqua:15);
Readln;
END.
10. H揃y nh鱈!
Khai b存o: t捉n bin b其n ghi, t捉n
v亮 kiu d歎 liu c存c tr足棚ng.
Tham chiu tr足棚ng
c単a b其n
ghi:
T捉n bin b其n ghi.t捉n tr足棚ng
G存n gi存 tr cho t探ng tr足棚ng
c単a
b其n ghi hoc gi歎a hai bin
c誰ng kiu.
Type
Hocsinh = record
SBD : integer;
Hovaten : string[30];
Toan,Van,Tong:real;
Ketqua :string[10];
end;
Var
LOP: ARRAY[1..50] of hocsinh;
LOP[i].SBD
![D歎 liu kiu b其n ghi
1. D歎 liu kiu b其n ghi d誰ng 速 m束 t其 c存c 速竪i t足樽ng
c達 c誰ng m辿t s竪 thu辿c
tnh m亮 c存c thu辿c tnh c達 th c達 kiu d歎 liu
kh存c nhau.
2. Khai b存o kiu b其n ghi
Type
< t捉n kiu b其n ghi> = record
<t捉n tr足棚ng
1> : kiu tr足棚ng
1;
< t捉n tr足棚ng
2> : kiu tr足棚ng
2;
end;
Var <t捉n bin > : <t捉n kiu b其n ghi>;
<t捉n m其ng > : ARRAY[1..Max] of < t捉n kiu b其n ghi>;](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-3-320.jpg)
![SBD H辰 t捉n To存n V即n Kt qu其
01 Nguyn An 10.0 9.0
02 V嘆 Ng辰c Bnh 8.5 5.0
... ....... ... ...
T脱ng
48 Trn Thu Tr亮 7.0 6.5
49 則ng Anh Tun 5.0 7.5
50 Phan V息n 6.0 4.5
Type
Hocsinh = record
SBD: integer;
Hoten: string[30];
Toan,Van,Tong: real;
Ketqua: string[10];
end;
Var LOP: ARRAY[1..50] of Hocsinh;
I,j,n : integer;
Khai b存o kiu d歎 liu
cho c存c tr足棚ng
(field)
Khai b存o bin kiu
b其n ghi (record)](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-4-320.jpg)
![3. C存c thao t存c v鱈i b其n ghi
a. Nhp th束ng tin h辰c sinh
Write( Nhap vao so hoc sinh trong lop : );
readln(n);
C存c b足鱈c:
Th hin b損ng pascal
- Nhp s竪 h辰c sinh
For i:=1 to n do
Begin
writeln( Nhap du lieu cho hoc sinh thu ,i);
Write( SBD : ); readln(LOP[i].SBD);
Write(HO TEN : ); readln(LOP[i].Hoten);
Write( Diem toan : );readln(LOP[i].Toan);
Write( Diem van : );readln(LOP[i].Van);
end;
- Nhp d歎 liu (c存c
thu辿c tnh) c単a
t探ng b其n ghi](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-5-320.jpg)
![Khi i = 1 LOP[1].SBD
SBD H辰 v亮 t捉n To存n V即n
01 Nguyn An 10.0 9.0
Qu存 trnh nhp kt th坦c khi nhp ht d歎 liu cho b其n ghi th淡
n.
* Nhp gi存 tr tr足棚ng
cho SBD c単a h辰c sinh th淡 nht n損m 谷
b其n ghi 速u ti捉n.
* T足
測ng t湛 nh足vy
nhp gi存 tr c存c tr足棚ng
cn l孫i.](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-6-320.jpg)
![b. C存c thao t存c x旦 l trong b其n ghi
Tnh t脱ng 速im v即n v亮 to存n c単a t探ng h辰c sinh
trong l鱈p.
For i:=1 to n do
LOP[i].Tong:= LOP[i].Toan + LOP[i].Van;
D誰ng lnh g 速
tnh t脱ng cho
t探ng b其n ghi nh ?
則in ch歎 則孫t v亮o c辿t kt qu其 cho nh歎ng h辰c sinh c達 t脱ng
>=10, ng足樽c
l孫i 速in ch歎 Khong dat.
For i:=1 to n do
IF LOP[i].Tong>=10 then LOP[i].Ketqua=Dat
else LOP[i].Ketqua=Khong dat;](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-7-320.jpg)
![c. In d歎 liu kiu b其n ghi
C存c b足鱈c:
Th hin b損ng pascal
Th束ng b存o in Writeln( Bang ket qua kiem tra chat luong );
In b其ng d歎 liu For i:=1 to n do
Writeln(LOP[I].sbd:5,LOP[i].Hoten:30,
LOP[i].Toan:5:1,LOP[i].Van:5:1,
LOP[i].Tong:8:1,LOP[i].Ketqua:15);](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-8-320.jpg)
![Program vd1;
Uses crt;
Type { Khai bao}
H揃y vit ch足
測ng
trnh ho亮n chnh
速 gi其i b亮i to存n
速t vn 速 ?
Hocsinh = record
SBD: integer;
Hoten: string[30];
Toan,Van,Tong:real;
Ketqua: string[10];
end;
Var LOP: ARRAY[1..100] of Hocsinh;
i,n: integer;
BEGIN
Clrscr; { nhap so hoc sinh }
Write( Nhap vao so hoc sinh trong lop : );
readln(n);
{ nhap du lieu tung ban ghi}
For i:=1 to n do
Begin
writeln( Nhap so lieu hoc sinh thu ,i);
Write( SBD : ); readln(LOP[i].SBD);
Write(HO VA TEN : ); readln(LOP[i].Hoten);
Write( Diem toan : );readln(LOP[i].Toan);
Write( Diem van : );readln(LOP[i].Van);
end;
{ tinh tong cho tung ban ghi }
For i:=1 to n do
LOP[i].Tong := LOP[i].Toan + LOP[i].Van;
{ dien ket qua cho tung ban ghi }
For i:=1 to n do
if LOP[i].Tong>=10 then
LOP[i].Ketqua:=Dat
else LOP[i].Ketqua:=Khong dat;
{ In bang du lieu }
Writeln( Bang ket qua kiem tra );
For i:=1 to n do
Writeln(LOP[I].sbd:5,LOP[i].Hoten:30,
LOP[i].toan:5:1,LOP[i].Van:5:1,
LOP[i].tong:8:1,LOP[i].Ketqua:15);
Readln;
END.](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-9-320.jpg)
![H揃y nh鱈!
Khai b存o: t捉n bin b其n ghi, t捉n
v亮 kiu d歎 liu c存c tr足棚ng.
Tham chiu tr足棚ng
c単a b其n
ghi:
T捉n bin b其n ghi.t捉n tr足棚ng
G存n gi存 tr cho t探ng tr足棚ng
c単a
b其n ghi hoc gi歎a hai bin
c誰ng kiu.
Type
Hocsinh = record
SBD : integer;
Hovaten : string[30];
Toan,Van,Tong:real;
Ketqua :string[10];
end;
Var
LOP: ARRAY[1..50] of hocsinh;
LOP[i].SBD](https://image.slidesharecdn.com/bai16-kieubanghi-tin11-141204073903-conversion-gate01/85/Bai16-kieu-ban-ghi-tin11-10-320.jpg)