Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Bài tập tạo menu với mảng 1 chiều

Go down 
Tác giảThông điệp
phong



Posts : 12
Danh tiếng : 2
Join date : 07/12/2014

Bài gửiTiêu đề: Bài tập tạo menu với mảng 1 chiều   11/1/2015, 15:37

Viết chương trình bằng pascal tạo Menu thực hiện các công việc như sau.


********Chuong trinh con thao tac voi mang*************
Hay chon mot trong cac cong viec sau
1. Nhap mang gom n phan tu tu ban phim (n<=100)
2. In danh sach mang
3. Liet ke so nguyen to trong mang.
4. Liet ke so hoan hao trong mang và vị trí tương ứng
5. Thoat
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin
avatar

Posts : 118
Danh tiếng : 5
Join date : 10/11/2014
Age : 17

Bài gửiTiêu đề: Re: Bài tập tạo menu với mảng 1 chiều   11/1/2015, 16:14

uses crt;
var a:array[1..100] of integer;
n,i,d,t: integer;
cn: byte;
procedure nhap;
begin
writeln(' => Nhap mang tu ban phim <= ');
write('Nhap so phan tu: '); readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,' = '); readln(a[i]);
end;
end;
procedure xuat;
begin
writeln(' => Xuat mang ra man hinh <= ');
for i:= 1 to n do write(a[i]:Cool;
end;
procedure snt;
function ktnt(n:integer):boolean;
begin
d:= 0;
for i:= 1 to n do if n mod i = 0 then inc(d);
if d=2 then ktnt:= true else ktnt:= false;
end;
begin
writeln(' => Xuat ra man hinh cac so nguyen to trong mang <=');
for i:= 1 to n do if ktnt(a[i]) then write(a[i]:Cool;
end;
procedure shh;
function kthh(n:integer):boolean;
begin
t:= 0;
for i:= 1 to n-1 do if n mod i = 0 then t:= t+i;
if t=n then kthh:= true else kthh:= false;
end;
begin
writeln(' => Xuat ra man hinh cac so hoan hao <= ');
for i:= 1 to n do if kthh(a[i]) then write(a[i]:Cool;
end;
procedure thoat;
begin
if cn=5 then writeln(' => Thoat <= ');
writeln(' Nhan phim <Enter> de ket thuc chuong trinh ');
end;
begin
clrscr; textmode(co80); textcolor(green);
writeln('*-*-*-* CHUONG TRINH THAO TAC VOI MANG *-*-*-*');
writeln(' 1 Nhap mang tu ban phim');
writeln(' 2 Xuat mang ra man hinh');
writeln(' 3 Xuat ra man hinh cac so nguyen to trong mang');
writeln(' 4 Xuat ra man hinh cac so hoan hao trong mang');
writeln(' 5 Thoat');
repeat writeln('--------------------------------------------------');
write('Moi chon chuc nang: '); readln(cn);
case cn of
1: nhap;
2: thoat;
3: snt;
4: shh;
end;
until cn>4;
thoat;
readln
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Bài tập tạo menu với mảng 1 chiều
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Mảng :: Mảng hai chiều-
Chuyển đến