BÀI TẬP PASCAL VÀ LỜI GIẢI
Chia sẻ bởi Vũ Thị Kim Huyền |
Ngày 16/10/2018 |
40
Chia sẻ tài liệu: BÀI TẬP PASCAL VÀ LỜI GIẢI thuộc Tư liệu tham khảo
Nội dung tài liệu:
BÀI TẬP PASCAL VÀ LỜI GIẢI
Bài 1: Nhập vào 1 số nguyên gồm 4 chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải là số nguyên tố không -kiểm tra xem có phải là số hoàn hảo không Bài 2: Nhập vào 1 số n nguyên (27) Bài 16: -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ữ Bai 17: -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 giải
Bài 1:
program yen1;
uses crt;
var i,n,k,d:integer;
ok:boolean;
function chanle(n:integer):boolean;
begin
ok:=true;
if n mod 2<>0 then ok:=false;
chanle:=ok;
end;
function nguyento(n:integer):boolean;
begin
ok:=true;
d:=0;
for i:=1 to n-1 do
if n mod i=0 then d:=d+1;
if d
Bài 1: Nhập vào 1 số nguyên gồm 4 chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải là số nguyên tố không -kiểm tra xem có phải là số hoàn hảo không Bài 2: Nhập vào 1 số n nguyên (2
Bài giải
Bài 1:
program yen1;
uses crt;
var i,n,k,d:integer;
ok:boolean;
function chanle(n:integer):boolean;
begin
ok:=true;
if n mod 2<>0 then ok:=false;
chanle:=ok;
end;
function nguyento(n:integer):boolean;
begin
ok:=true;
d:=0;
for i:=1 to n-1 do
if n mod i=0 then d:=d+1;
if d
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Vũ Thị Kim Huyền
Dung lượng: 91,50KB|
Lượt tài: 0
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)