Chào mừng quý vị đến với website của Phạm Văn Phúc - Tuy Hòa- Phú Yên
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
bài tập về record
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:39' 06-02-2015
Dung lượng: 45.5 KB
Số lượt tải: 12
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:39' 06-02-2015
Dung lượng: 45.5 KB
Số lượt tải: 12
Số lượt thích:
0 người
-Nhập vào một danh sách sinh viên (họ tên,năm sinh,dan tộc,điểm 1 ,điểm 2 , điểm 3 ,giới tính) -hiện danh sách sinh viên vừa nhập dưới dạng cột STT Hoten Gioitinh Dantoc Diem1 Diem2 Diem3 DTB -liệt kê danh sách sinh viên đạt loại khá (dtb>7)
uses crt;
type sinhvien=record
hoten,dantoc,gioitinh:string;
namsinh,diem1,diem2,diem3:integer;
dtb:real;
end;
mang=array [1..10] of sinhvien;
var sv:mang;
i,n,d:integer;
procedure nhap;
begin
clrscr;
writeln(` NHAP THONG TIN CHO SINH VIEN`);
for i:=1 to n do
with sv[i] do
begin
write(` Ho ten:`);readln(hoten);
write(` Gioi tinh:`);readln(gioitinh);
write(` Dan toc:`);readln(dantoc);
write(` Diem1,Diem2,Diem3:`);readln(diem1,diem2,diem3);
dtb:=(diem1+diem2+diem3)/3;
writeln;
end;
end;
procedure hienthi;
begin
writeln;writeln;
writeln(` DANH SACH SINH VIEN VUA NHAP`);
for i:=1 to n do
with sv[i] do
begin
writeln(` Ho ten:`,hoten);
writeln(` Nam sinh:`,namsinh);
writeln(` Diem TB:`,dtb:2:2);
writeln;writeln;
end;
end;
procedure sapxep;
begin
writeln(` DANH SACH SINH VIEN DAT LOAI KHA`);
writeln;
d:=0;
for i:=1 to n do
if sv[i].dtb>7 then begin
writeln(` Ho ten:`,sv[i].hoten);
writeln(` Diem TB:`,sv[i].dtb:2:3);
writeln;writeln;
d:=d+1;
end;
if d=0 then writeln(` ( khong co sinh vien nao )`);
end;
begin
clrscr;
write(` Nhap n=`);readln(n);
nhap;
hienthi;
sapxep;
readln;
end.
-Nhập vào một danh sách sinh viên (họ tên,năm sinh,dan tộc,điểm 1 ,điểm 2 , điểm 3 ,giới tính) -hiện danh sách sinh viên vừa nhập dưới dạng cột STT Hoten Gioitinh Dantoc Diem1 Diem2 Diem3 DTB -cho bit có bao nhiu phần trăm sinh viên nam bao nhiu phần trăm nữ
uses crt;
type sinhvien=record
hoten,dantoc,gioitinh:string;
namsinh,diem1,diem2,diem3:integer;
dtb:real;
end;
mang=array [1..10] of sinhvien;
var sv:mang;
i,n,d:integer;
p:real;
procedure nhap;
begin
clrscr;
writeln(` NHAP THONG TIN CHO SINH VIEN`);
for i:=1 to n do
with sv[i] do
begin
write(` Ho ten:`);readln(hoten);
write(` Gioi tinh:`);readln(gioitinh);
write(` Dan toc:`);readln(dantoc);
write(` Diem1,Diem2,Diem3:`);readln(diem1,diem2,diem3);
dtb:=(diem1+diem2+diem3)/3;
writeln;
end;
end;
procedure hienthi;
begin
writeln;writeln;
writeln(` DANH SACH SINH VIEN VUA NHAP`);
for i:=1 to n do
with sv[i] do
begin
writeln(` Ho ten:`,hoten);
writeln(` Nam sinh:`,namsinh);
writeln(` Diem TB:`,dtb:2:2);
writeln;writeln;
end;
end;
procedure phantram;
begin
writeln;writeln;
writeln(` TY LE NAM NU`);
d:=0;
for i:=1 to n do
if sv[i].gioitinh=`nam` then d:=d+1;
p:=(d/n)*100;
writeln(` Trong danh sach co `,p:2:2,` % la sinh vien nam`);
writeln(` Trong danh sach co