Crazyinlove

Don't cry cause you are so right
 
IndexPortalCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Giai bai tap pascal mang 1 chieu

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Giai bai tap pascal mang 1 chieu   Fri Apr 04, 2008 9:26 pm

Topic nay tui dua ra de giai bai tap pascal ma thay vua cho .
Moi nguoi xem roi gop y cho tui voi. rendeer
Về Đầu Trang Go down
Xem lý lịch thành viên
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Fri Apr 04, 2008 10:04 pm

Bai 1:
Const fi='bai1.inp' ;
fo='bai1.out';
Var a:array[1..100]of Integer;
n,min,max:word;
Procedure doc;
Var i:word;
Begin
Assign(f,fi);reset(f);
readln(f,n);
For i:=1 to n do read(f,a[i]);
Close(f);
End;
Procedure tim;
Var i:word;
Begin
min:=a[1];max:=a[1];
For i:=2to n do
Begin
If a[i]>max then max:=a[i];
If a[i]<min then min :=a[i];
End;
End;
Function ktr(c:word):boolean;
Var i:word;
Begin
ktr:=true;
For i:=1 to n do
If c=a[i] then Begin ktr:=false;break;End;
End;
Procedure kq;
Var f:text;
Begin
Assign(f,fo);rewrite(f);
While min<=max do
Begin
If (ktr(min+1))and((min+1)mod 10 =0) then Write(f,min+1,' ');
min:=min+1;
End;
Close(f);
End;
Begin
doc;
tim;
kq;
End.
Tui nghi tui lam vay hoi dai co ai co cach ngan hon ko
Về Đầu Trang Go down
Xem lý lịch thành viên
Crazyinlove
Admin
Admin


Tổng số bài gửi : 296
Age : 25
Đến từ : Thiên đường vắng em
Registration date : 03/04/2008

Character sheet
Crazyinlove:
1223/1223  (1223/1223)

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Fri Apr 04, 2008 11:13 pm

làm đúng không đó
Post đề cho các bạn khác với dường ơi lol!
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 3:38 am

Quen mat rendeer
De bai 1 la
Nhap day A(N) gom n so nguyen . Tim gia tri nho nhat m va lon nhat M cua day
Dua ra cac so nguyen theo thu tu tang dan thuoc doan [m,M&shy;] ma cac so nguyen
ko thuoc day va la boi cua 10.
(Bo oi van ko danh duoc tieng viet .Phai lam sao confused )
Về Đầu Trang Go down
Xem lý lịch thành viên
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 4:25 am

Bµi 2: Cã n ng&shy;êi s¾p thµnh hµng theo thø tù ®Ó mua hµng Thêi gian ng&shy;êi b¸n hµng phôc vô ng&shy;êi thø i la Ti(i=1,2...n) NhËp c¸c sè T1,T2,T3,......Tn T×m thêi gian ng&shy;êi thø i ph¶i chê ®Ó ®Õn l&shy;ît m×nh mua hµng.

Bµi 3:NhËp ngÉu nhiªn M¶ng A(n)gåm N sè nguyªn(®äc N t&shy; tÖp).LÇn l&shy;ît xo¸ c¸c phÇn tö A[i] chia hÕt cho 3(i t¨ng dÇn ) sau ®ã dån c¸c sè ®øng ngay sau A[i] vÒ fÝa ®Çu d·y 1 vÞ trÝ vµ gi÷ nguyªn thø tù cña chóng .HiÖn m¶ng sau khi ®· dån.

Về Đầu Trang Go down
Xem lý lịch thành viên
Crazyinlove
Admin
Admin


Tổng số bài gửi : 296
Age : 25
Đến từ : Thiên đường vắng em
Registration date : 03/04/2008

Character sheet
Crazyinlove:
1223/1223  (1223/1223)

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 4:25 am

dương ơi xem lại phôngc hữ đi không đọc đc scratch
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 8:48 am

dien ve cai font tieng viet qua .
Tui da lam theo nhu thang noi ma van ko duoc .
Về Đầu Trang Go down
Xem lý lịch thành viên
Crazyinlove
Admin
Admin


Tổng số bài gửi : 296
Age : 25
Đến từ : Thiên đường vắng em
Registration date : 03/04/2008

Character sheet
Crazyinlove:
1223/1223  (1223/1223)

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 8:53 am

chopes đã viết:
dien ve cai font tieng viet qua .
Tui da lam theo nhu thang noi ma van ko duoc .
ĐẶt phông telex
Unicon mà dùng
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 6:03 pm

I don't know noi cu the hon di
Về Đầu Trang Go down
Xem lý lịch thành viên
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Sat Apr 05, 2008 6:10 pm

Bai 2 doc du lieu nhu bai 1
Tui chi viet chtrinh con xuly du lieu thui
TRong fan khai bao chi can them mang b nua la duoc;
Procedure xuly;
Var f:text; i:word;
Begin
Assign(f,fo);rewrite(f);
Fillchar(b,sizeof(b),0) ;
b[1]:=0;b[2]:=a[1];
writeln(f,' time ng thu 1 fai cho :',b[1]);
writeln(f,' time ng thu 2 fai cho :',b[2]);
For i:=3 to n do
Begin
b[i]:=a[i-1]+b[i-1];
Writeln(f,' time ng thu ',i,' fai cho :',b[i]&shy;) ;
End;
Close(f);
End;
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Giai bai tap pascal mang 1 chieu   Today at 12:56 am

Về Đầu Trang Go down
 
Giai bai tap pascal mang 1 chieu
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [28112010] [news] Kết quả lễ trao giải MAMA
» [02032011][news] Super Junior được mời làm đại sứ cho ẩm thực Hàn Quốc, mang bibimbap đến với thế giới
» [04032011][News] Ai là thủ phạm mang lại sự ô nhục cho làn sóng Hàn ?
» [05022011][News] Tiffany"Đau lòng khi ba mẹ bị mắng vì lỗi của tôi"
» [12102010][News]SM lỗ 4 tỉ Won và bị chỉ trích nặng nề

Permissions in this forum:Bạn không có quyền trả lời bài viết
Crazyinlove :: Thông tin về forum :: Công nghệ thông tin :: Lập trình-
Chuyển đến