- ♥ - FAMILY A6 - ♥ -
Chào mừng gia nhập gia đình a6...chúc vui vẻ^^

- ♥ - FAMILY A6 - ♥ -

- ♥ - - ♥ - Forum of class A6 - ♥ - - ♥ -
 
Trang ChínhĐăng NhậpĐăng ký
Tuyển mod và admin! Ai có khả năng thì pm: anhchanghaohoa_vip100@yahoo.com hoặc sweetlove.amy94@yahoo.com
siminal (15)
amyngoan (15)
kevjn_kute (13)
bibalu_a4 (6)
docmathan (4)
sulli_94 (2)
35 Số bài - 32%
15 Số bài - 14%
15 Số bài - 14%
13 Số bài - 12%
11 Số bài - 10%
6 Số bài - 6%
5 Số bài - 5%
4 Số bài - 4%
3 Số bài - 3%
2 Số bài - 2%
Bình chọn
Skin forum A6 cần thay đổi gì?
Banner
Một số chương trình pascal cơ bản!!! I_vote_lcap0%Một số chương trình pascal cơ bản!!! I_vote_rcap
 0% [ 0 ]
Hình nền
Một số chương trình pascal cơ bản!!! I_vote_lcap33%Một số chương trình pascal cơ bản!!! I_vote_rcap
 33% [ 1 ]
Nhạc nền
Một số chương trình pascal cơ bản!!! I_vote_lcap0%Một số chương trình pascal cơ bản!!! I_vote_rcap
 0% [ 0 ]
Khác...
Một số chương trình pascal cơ bản!!! I_vote_lcap67%Một số chương trình pascal cơ bản!!! I_vote_rcap
 67% [ 2 ]
Tổng số bầu chọn : 3

Share | 
  Một số chương trình pascal cơ bản!!!Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Bài gửiTiêu đề: Một số chương trình pascal cơ bản!!!Một số chương trình pascal cơ bản!!! EmptyWed Mar 16, 2011 4:30 pm
trungpro2320
[L]e[g]e[n]d

[L]e[g]e[n]d
trungpro2320


https://a6quochocqn.forum-viet.net
Thông tin thành viên :
Click vào !
Huân chương vinh dự :
Một số chương trình pascal cơ bản!!! 34
Một số chương trình pascal cơ bản!!! Huy-hieu-doan

Nam
Posts : 35
Points : 23044974
Join date : 14/01/2010
Tuổi thọ: : 26
Nơi đóng đô : Quy Nhơn

A6 Family - Diễn Đàn Kết Nối Thành Viên A6
TiêU Đề : Một số chương trình pascal cơ bản!!!

--------------------------------------------------


1. nhap 1 so nguyen duong n sau do ktra so vua nhap co fai la so ng to ko
2. nhap mag gom n fan tu sau do dua ra so nho nhat va vi tri cua no
3..nhap mag gom n phan tu sau do dua ra man hih day so da sap xep
4 nhap 1 xau ki tu tu ban fim sau do thay the tat ca cum ki tu "em" thah "anh'
5 nhap mag gom n fan tu dem va dua ra man hjh tog cac so chan va so le
6. nhap 1 xau ki tu tu ban fim va kiem tra xwm co fai la xau doi xung ko
7. nhap 2 phan so(to chuc theo kiu ban ghi)tu ban fim sau do thuc hien fep cog tru nhan chia 2 phan so do
8. can wan li hs ve cac thog tin :ho ten,diem tbjh,hanh kim(xep loai A,B,C,D)viet ctrinh nhap nhug thog tin tren ,cho bjt co ?hs co diem tbjh duoi 5, dua ho ten nhug hs do ra man hjh
Giải
Bai 1:
Program kiemtra;
Var n,i,a: word;
Begin
Write(‘nhap so nguyen duong n’);
Readln(n);
If n<2 then write(‘n khog phai la so nguyen to’)
Else
begin
a:=0;
for i:=2 to n div 2 do
if (n mod i=0) then d:=d+1;
if d=0 then write(‘n la so nguyen to’)
else
write(‘n khong phai la so nguyen to’);
end;
readln;
end.

Bai 2:
Program mangn;
Var i,n,min:integer
a:array [1..100] of integer;
begin
write(‘nhap do dai cua day so’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]’);
readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min>a[i] then min:=a[i];
writeln(‘so nho nhat cua day la’,min);
write(‘vi tri so nho nhat la:’);
for i:=1 to n do
if min=a[i] then write(i);
readln
end.

Bai 3:
Program sapxep;
Var a:array[1..100] of integer;
n,i,m,k:integer;
Begin
Write(‘nhap do dai cua day so’);
Readln(n);
for i:=1 to n do
Begin
Write(‘a[‘,i,’]’);
Readln(a[i]);
end;
for m:=n-1 downto 1 do
for i:=1 to m do
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
for i:=1 to n do write (‘day so dc sap xep lai nhu sau’,a[i]);
readln
end.
Bai 4:
Program doichu;
var s:string;
begin
clrscr;
write('nhap xau ');
readln(s);
while pos('em',s)<>0 do
begin
insert('anh’,s,pos('em',s));
delete(s,pos('em',s),3);
end;
write('chuoi sau khi thay the la: ',s);
readln;
end.
Bai 5
program chanle;
var a:array[1..100] of integer
n,i,d1,d2,t1,t2:integer
begin
write(‘nhap so phan tu cua day so’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]’);
readln(a[i]);
end;
d1:=0;
d2=0;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 2 =0) then
begin
d1:=d1+1;
t1:=t1+a[i];
end
else
begin
d2:=d2+1;
t2:=t2+a[i]
end;
end;
writeln(‘tong cac so chan la’,t1);
writeln(‘co ‘,d1,’ so chan’);
writeln(‘tong cac so le la’,t2);
write(‘co ’,d2,’ so le’);
readln
end.

cho~ kia co 2 chu end; nha, ko phai danh sai dau.
bai 6

Program xaudoixung;
Var a,b:string;
i,k:byte;
begin
write(‘nhap vao 1 xau’);
readln(a);
b:=’‘;
k:=length(a);
for i:=k downto 1 do b:=b+a[i];
if a<>b then write(‘xau ko dx’)
else
write(‘xau dx’);
readln
end.
Bai 7
Program phanso;
Type tumau = record
a,b,c,d:real;
end;
var ps:tumau;
ps1,ps2,co,tr,nh,ch:real;
begin
write(‘nhap tu so cua phan so thu 1 ’);
readln(ps.a);
write(‘nhap mau so cua phan so thu 1 ’);
readln(ps.b);
write(‘nhap tu so cua phan so thu 2 ’);
readln(ps.c);
write(‘nhap mau so cua phan so thu 2 ’);
readln(ps.d);
ps1:=ps.a/ps.b;
ps2:=ps.c/ps.d;
nh:=ps1*ps2;
ch:=ps1/ps2;
co:=ps1+ps2;
tr:=ps1-ps2;
writeln(‘tong cua 2 phan so la’,co);
writeln(‘hieu cua 2 phan so la’,tr);
writeln(‘tich cua 2 phan so la’,nh);
write(‘thuong cua 2 phan so la’,ch);
readln
end.
Bai 8
Program qlhs;
Type hs:=record
hoten:string;
diemtrungbinh:real;
hanhkiem:char;
end;
var
lop: array[1..50] of hs;
i,n: byte;
begin
write(‘nhap so hoc sinh’);
readln(n);
for i:=1 to n do
begin
writeln(‘hs thu’,i,’la’);
write(‘ho ten’);
readln(lop[i].hoten);
write(‘diem trung binh’);
readln(lop[i].diemtrungbinh);
write(‘ hanh kiem’);
readln(lop[i].hanhkiem);
end;
if lop[i].diemtrungbinh < 5 then
write(‘danh sach hs co diem tb duoi 5 la’);
for i:=1 to n do
write(lop[i].hoten);
readln
end.











Tài Sản
Thú Nuôi Thú Nuôi: Phượng Hoàng

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Vip Of Vip

Một số chương trình pascal cơ bản!!! Online?u=anhchanghaohoa_vip100&m=g&t=11

Về Đầu Trang Go down
 

Một số chương trình pascal cơ bản!!!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
Trả lời nhanh - Quick reply
Permissions in this forum:Bạn không có quyền trả lời bài viết
- ♥ - FAMILY A6 - ♥ -  ::  Thảo Luận :: Thủ Thuật Tin Học-
Vui lòng tìm kiếm trước khi đặt câu hỏi!
Loading
• Tất cả bài viết trên diễn đàn phải có dấu tiếng Việt rõ ràng và đúng box quy định. Hãy bấm nút Thanks thay cho lời cám ơn!
• Không spam nhảm những chủ đề không liên quan đến topic, không sử dụng từ ngữ thiếu văn hóa trên toàn bộ diễn đàn.
• Tận dụng chức năng tìm kiếm nhanh để tránh post bài trùng lặp.
• Các trường hợp vi phạm các quy định trên bài viết ngay lập tức bị xóa bỏ mà không cần báo trước.
• Forum khi dùng Firefox và IE sẽ bị vỡ khung bài viết, vi vậy bạn nên dùng để duyệt Forum tốt hơn. .
  


Free forum | © phpBB | Free forum support | Liên hệ | Báo cáo lạm dụng | Thảo luận mới nhất