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 Pascal và lời giải
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Phạm Văn Phúc
Ngày gửi: 14h:55' 24-11-2011
Dung lượng: 140.0 KB
Số lượt tải: 63
Nguồn:
Người gửi: Phạm Văn Phúc
Ngày gửi: 14h:55' 24-11-2011
Dung lượng: 140.0 KB
Số lượt tải: 63
Số lượt thích:
0 ngườ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<>1 then ok:=false;
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<>1 then ok:=false;