Chào mừng quý vị đến với .
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ư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây 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 ô bên phải.
BAI TAP PASCAL VE XAU VA BANGHI
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Trần Thị Kim Dung (trang riêng)
Ngày gửi: 16h:21' 27-10-2010
Dung lượng: 262.0 KB
Số lượt tải: 7
Nguồn:
Người gửi: Trần Thị Kim Dung (trang riêng)
Ngày gửi: 16h:21' 27-10-2010
Dung lượng: 262.0 KB
Số lượt tải: 7
Số lượt thích:
0 người
Pascal - Bản ghi - sắp xếp danh sách sinh viên theo điểm trung bình
-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 -sắp xếp lại danh sách sinh viên tăng dần theo điểm trung bình (không làm sai lệch thông tin)
Bài 17:
program yen17;
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,j: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;
var tg:sinhvien;
begin
writeln;writeln;
writeln(` DANH SACH SINH VIEN DUOC SAP XEP LAI LA`);
for i:=1 to n-1 do
for j:=i+1 to n do
if sv[i].dtb>sv[j].dtb then begin
tg:=sv[i];
sv[i]:=sv[j];
sv[j]:=tg;
end;
for i:=1 to n do
with sv[i] do
begin
writeln(` Ho ten:`,hoten);
writeln(` Diem TB:`,dtb:2:2);
writeln;
end;
end;
begin
clrscr;
write(` Nhap n=`);readln(n);
nhap;
hienthi;
sapxep;
readln;
end.
--
Pascal - Bản ghi - danh sách sinh viên và tính phần trăm sv nam. nữ
-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ữ
Bài 16:
program yen16;
uses crt;
type sinhvien=record
hoten,dantoc,gioitinh:string;
namsinh,diem1,diem2,diem3:integer;
dtb:real;
end;
Các ý kiến mới nhất