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 | 
 

 Dương ơi

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Chuyển đến trang : 1, 2  Next
Tác giảThông điệp
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 đề: Dương ơi   Sat Apr 05, 2008 8:58 pm

Khi nào mi lên đánh hộ tau cái bài 2 kiểm tra hôm nọ nha
Cái bài đếm số trại ấy lol!
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
cute91



Tổng số bài gửi : 5
Age : 25
Registration date : 05/04/2008

Bài gửiTiêu đề: Re: Dương ơi   Sat Apr 05, 2008 9:28 pm

ok
no ma fai doi tau nho lai da Basketball
Về Đầu Trang Go down
Xem lý lịch thành viên
cute91



Tổng số bài gửi : 5
Age : 25
Registration date : 05/04/2008

Bài gửiTiêu đề: Re: Dương ơi   Sat Apr 05, 2008 9:30 pm

Xin loi tui gui nham
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: Dương ơi   Sat Apr 05, 2008 9:32 pm

cute91 đã viết:
Xin loi tui gui nham
Đoán là ngọc hà đang ở nhà
Dương lol!
MÀ Bo làm đc post nhạc rùi nha
VÀo music nước ngoài nghe mấy bài bo kết nha afro
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: Dương ơi   Sat Apr 05, 2008 10:18 pm

ok
Day la bai 2 hom no:
Const fi='leu.inp';
fo='leu.out';
Var a:array[1..100,1..100]of Integer;
f:text;
n,m,d:word;
(--------------doc du lieu-------------)
Procedure doc;
Var c:char;
Begin
Assign(f,fi);rewrite(f);
While not eof(f) do
Begin
n:=n+1;m:=0;
While not eoln(f) do
Begin
m:=m+1;read(f,c);
If c='.' then a[n,m]:=0
Else a[n,m]:=1;
End;
readln(f);
End;
Close(f);
End;
(-------------danh dau leu trai bang so ------)
Procedure dem;
Var i,k:word;
Begin
k:=2*(x-1)div 2;
For i:=t-k to t-k+2*(x-1) do
a[y,i]:=z;
End;
(------------------tim leu de danh dau-------------------)
Procedure xuly;
Var i,j,k,c:word;
Begin
d:=1;c:=1;
For i:=1 to n do
For j:=1 to m do
If a[i,j]=1 then
Begin
d:=d+1;a[i,j]:=d;
For k:=i+1 to n do
If a[k,j]=1 then Begin c:=c+1;dem(c,k,j,d);End;
End;
End;
(-----------chuong trinh chinh-------------)
Begin
doc;
xuly;
Assign(f,fo) ;rewrite(f);
Writeln(f,d-1);Close(f);
End.
Mong duoc gop y them bom
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: Dương ơi   Sun Apr 06, 2008 9:29 am

Cám ơn nha lol!
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
meo_con_an_chuot_beo
Admin
Admin


Tổng số bài gửi : 172
Age : 24
Đến từ : Aha...!!!
Registration date : 06/04/2008

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

Bài gửiTiêu đề: Re: Dương ơi   Sun Apr 06, 2008 10:49 am

affraid Choáng!!!!!!!!!! Tui thì bài nào cũng khó hết á.
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: Dương ơi   Sun Apr 06, 2008 11:18 pm

meo_con_an_chuot_beo đã viết:
affraid Choáng!!!!!!!!!! Tui thì bài nào cũng khó hết á.
Thế thì mới lập box này chứ có gì không làm đc cứ hỏi thoải mái nha 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: Dương ơi   Mon Apr 07, 2008 2:12 am

Crazyinlove đã viết:
Khi nào mi lên đánh hộ tau cái bài 2 kiểm tra hôm nọ nha
Cái bài đếm số trại ấy lol!

Cái bài kiểm tra đó cách của thầy hay hơn và ngắn hơn
Đề là:

C©u 2: Cho File ‘Leutrai.txt’ cã sè dßng kh«ng h¹n chÕ , mçi dßng chØ gåm c¸c kÝ tù dÊu chÊm ‘.’ vµ ch÷ sè ‘1’. C¸c ch÷ sè ‘1’ t¹o thµnh c¸c tam gi¸c c©n , nh­ h×nh vÏ cã 5 “lÒu tr¹i”

..............1................1.............1

...........1 1 1...........111.............

........1 1 1 1 1.....................1....

........................................1 1 1.

..................1.............................

H·y th«ng b¸o sè “lÒu tr¹i “cña file .

( Sè 1 ®øng riªng lÎ mét m×nh còng coi nh­ 1 lÒu )










Uses Crt;

Const Fi = 'DemLeu.txt';

Var F : Text;

A,B : String;

i,Leu : Integer;

BEGIN

Clrscr;

A:='';

For i:=1 to 80 do A:=A '.';

Assign(F,Fi);

Reset(F);

Leu:=0;

While not seekeof(F) do

Begin

Readln(F,B);

Writeln(B);

B:='.'+ B +'.';

For i:=2 to length(B)-1 do

If (B[i-1]= '.') and (B[i 1]='.') and( B[i]='1')

and(A[i]='.') then Inc(Leu);

A:=B;

End;

Close(F);

Writeln('so Leu la : ', Leu);

Readln

END.


Tui vua sua lai mot chut do


Được sửa bởi chopes ngày Mon Apr 07, 2008 5:06 am; sửa lần 1.
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: Dương ơi   Mon Apr 07, 2008 4:49 am

chopes đã viết:
Crazyinlove đã viết:
Khi nào mi lên đánh hộ tau cái bài 2 kiểm tra hôm nọ nha
Cái bài đếm số trại ấy lol!

Cái bài kiểm tra đó cách của thầy hay hơn và ngắn hơn
Đề là:

C©u 2: Cho File ‘Leutrai.txt’ cã sè dßng kh«ng h¹n chÕ , mçi dßng chØ gåm c¸c kÝ tù dÊu chÊm ‘.’ vµ ch÷ sè ‘1’. C¸c ch÷ sè ‘1’ t¹o thµnh c¸c tam gi¸c c©n , nh­ h×nh vÏ cã 5 “lÒu tr¹i”

..............1................1.............1

...........1 1 1...........111.............

........1 1 1 1 1.....................1....

........................................1 1 1.

..................1.............................

H·y th«ng b¸o sè “lÒu tr¹i “cña file .

( Sè 1 ®øng riªng lÎ mét m×nh còng coi nh­ 1 lÒu )










Uses Crt;

Const Fi = 'DemLeu.txt';

Var F : Text;

A,B : String;

i,Leu : Integer;

BEGIN

Clrscr;

A:='';

For i:=1 to 80 do A:=A '.';

Assign(F,Fi);

Reset(F);

Leu:=0;

While not seekeof(F) do

Begin

Readln(F,B);

Writeln(B);

B:='.' B '.';

For i:=2 to length(B)-1 do

If (B[i-1]= '.') and (B[i 1]='.') and( B[i]='1')

and(A[i]='.') then Inc(Leu);

A:=B;

End;

Close(F);

Writeln('so Leu la : ', Leu);

Readln

END.
KEKEKE
Cám ơn dương nha
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: Dương ơi   Mon Apr 07, 2008 7:07 am

Bo bận cái j mà sao đến bây giờ vẫn ko thấy Question
Đã hẹn rùi mà . Hay là định thư giãn tâm hồn để mai đi thi cho thoải mái rùi ko lên nữa confused
sang teentink3 đây
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: Dương ơi   Mon Apr 07, 2008 8:18 am

Dương ơi cái bài chèn mảng thuật toán thế nào thế
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: Dương ơi   Mon Apr 07, 2008 8:36 am

Crazyinlove đã viết:
Dương ơi cái bài chèn mảng thuật toán thế nào thế

Thuật toán chèn số x vào vị trí k trong mảng a :
Procedure chen(x,k:word);
Var i:word;
Begin
For i:=n down to k do
a[i+1]:=a[i];
a[k]:=x;
End;
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: Dương ơi   Mon Apr 07, 2008 8:40 am

chopes đã viết:
Crazyinlove đã viết:
Dương ơi cái bài chèn mảng thuật toán thế nào thế

Thuật toán chèn số x vào vị trí k trong mảng a :
Procedure chen(x,k:word);
Var i:word;
Begin
For i:=n down to k do
a[i+1]:=a[i];
a[k]:=x;
End;
Ko cái bài trộn mảng ấy 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: Dương ơi   Mon Apr 07, 2008 8:50 am

bài trộn mảng :
Ý tưởng thuật toán :
Vì 2 dãy a b đều đã sắp xếp nên đọc trước mảng a
rồi sau đó đọc từng fần tử của mảng b nếu fần tử đó nằm giữa 2 fần tử ở vị trí j,j+1 nào đó của mảng a thì chèn fần tử đó vào vị trí j+1 của mảng a
Const fi='tronday.inp';
fo='tronday.out';
Var f,g:text;
m,n,b:Byte;
a:array[1..100]of Integer;
(---------------------------------------------------)
Procedure chen(x,k:Byte);
Var i:Byte;
Begin
For i:=m+1 downto k+1 do
a[i]:=a[i-1];
a[k]:=x;
End;
(----------------------------------------------------)
Procedure doc;
Var i,j:Byte;
Begin
Assign(f,fi);reset(f);
readln(f,m,n);j:=1;
For i:=1 to m do read(f,a[i]);
While not eof(f) do
Begin
read(f,b);
For i:=j to m do
If (a[i]<=b)and(b<=a[i+1]) then Begin chen(b,i+1);j:=i+1;m:=m+1;break;End
End;
Close(f);
End;
(-------------------------------------------------------------------)
Procedure ghi;
Var i:Byte;
Begin
Assign(g,fo);rewrite(g);
For i:=1 to m do Write(g,a[i],' ');
Close(g);
End;
(-------------------------------------------------------------)
Begin
doc; ghi;
End.
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: Dương ơi   Mon Apr 07, 2008 8:57 am

Cám ơn nha
Copy chạy thử
Bài 21 làm sao thế
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: Dương ơi   Mon Apr 07, 2008 9:11 am

Crazyinlove đã viết:
Cám ơn nha
Copy chạy thử
Bài 21 làm sao thế

tui chưa làm, đây là bài của thầy



Uses Crt; { Kü thuËt xö lý m¹ch vßng }

Const s = 100;

Type Mang = Array[1.. 2*s] of Char;

Var N,cat : Integer;

C : mang;

(---------------------------------------------------------------------------------------)

Procedure Tao;

Var i,p : Integer;

F : Text;

Begin

Assign(F,'Hatngoc.txt');

Rewrite(F);

Writeln(F,s);

Randomize;

For i:=1 to s do

Begin

p := Random(3)+1;

Case p of




1: C[i] := 'B';

2: C[i] := 'R';

3: C[i] := 'W';

End;

Writeln(F,C[i]);

C[i+s] := C[i];

End;

Close(F);

End;

(--------------------------------)

[size=14Procedure Nhap;[/size]

Var i : Integer;

F : Text;

Begin

Assign(F,'Hatngoc.txt');

Reset(F);

Readln(F,N);

For i:=1 to N do

Begin

Readln(F,C[i]); { Nh©n ®«i m¶ng }

C[i+N] := C[i];

End;

Close(F);

End;

(-------------------------------------------------------------------------------)

Procedure Nhaptay;

Var i : Integer;

Begin

Write('Nhap so hat ngoc : ');

Readln(N);

For i:=1 to N do

Begin

Write('C[',i,'] = ');

Readln(C[i]);

C[i+N] := C[i];

End;

End;

(--------------------------------------------------------------)

Procedure Hien;

Var i : Integer;

Begin

For i:=1 to N do Write(C[i]:2);Writeln;

For i:=N+1 to 2*N do Write(C[i]:2);

End;

(---------------------------------------------------------------------------)

Procedure Tim;

Var i,j,d,ld,p,t : Integer;

(----------------------------------------------------------------)
Function DemPhai(vt : Integer): Integer;

Var j,d,p,dau : Integer;

Begin

j := vt; {Dem tu vt=i+1 }

d := 0;

dau := j;

If (C[j]='W') and (j=dau) then

Begin

[size=14][font=.VnTime] While (C[j]='W') and (j


Được sửa bởi chopes ngày Mon Apr 07, 2008 9:16 am; sửa lần 1.
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: Dương ơi   Mon Apr 07, 2008 9:15 am

Á à
Sao có bài của thấy thế nghi quá 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: Dương ơi   Mon Apr 07, 2008 9:18 am

Tiếp tục nè:



[size=12] While (C[j]='W') and (j<vt+N) do


Begin

Inc(d);

Inc(j);

End;

dau :=j;

End;

While ((C[j]=C[dau]) or (C[j]='W')) and (j<vt+N) do

Begin

Inc(d);

Inc(j);

End;

Demphai := d;

End;

Function DemTrai(vt : Integer): Integer;

Var j,d,t,dau : Integer;

Begin

j := vt; {Dem tu vt=i+N }

d := 0;

dau := j;

If (C[j]='W') and (j=dau) then

Begin

While (C[j]='W') and (j>vt-N) do

Begin

Inc(d);

Dec(j);

End;

dau :=j;

End;

While ((C[j]=C[dau]) or (C[j]='W')) and (j>vt-N) do

Begin

Inc(d);

Dec(j);

End;

DemTrai := d;

End;

Begin

Ld := 1;

For i:=1 to N do

Begin

p := i+1;

d := demPhai(p)+demTrai(i+N);

If d > Ld then

Begin

Ld := d;

cat:= i;

End;

End;

Writeln;

Writeln('Cho cat giua ',cat ,' va ', (cat mod N)+1,' dai la : ', Ld);

End;

BEGIN

Clrscr; {Tao;} {Nhap;}

NhapTay;

Hien;

Tim;

Readln

END.



[/size]
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: Dương ơi   Mon Apr 07, 2008 9:20 am

afro Cám ơn nha lol!
Biết thi trạt nhưng vẫn cầm cự
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: Dương ơi   Mon Apr 07, 2008 9:20 am

Crazyinlove đã viết:
Á à
Sao có bài của thấy thế nghi quá scratch

Hôm trước mượn USB copy bài giải của thầy từ bài 1-->22 và
bài tập + hướng dẫn giải về mảng 2 chiều
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: Dương ơi   Mon Apr 07, 2008 9:23 am

đi ngủ đây
mother is in here(hiểu 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: Dương ơi   Mon Apr 07, 2008 9:23 am

chopes đã viết:
Crazyinlove đã viết:
Á à
Sao có bài của thấy thế nghi quá scratch

Hôm trước mượn USB copy bài giải của thầy từ bài 1-->22 và
bài tập + hướng dẫn giải về mảng 2 chiều
KEKE
Thế mà câm tịt ghét
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
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: Dương ơi   Mon Apr 07, 2008 9:31 am

Cái thủ tục dồn như thế này dc ko nhỉ
for i:=n dowto i do
begin
a[i]:=a[i-1];
a[i+1]:=0;
a[i+2]:=0;
end;
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: Dương ơi   Mon Apr 07, 2008 6:26 pm

Crazyinlove đã viết:
Cái thủ tục dồn như thế này dc ko nhỉ
for i:=n dowto i do
begin
a[i]:=a[i-1];
a[i+1]:=0;
a[i+2]:=0;
end;

dồn của mi tau nghĩ là ko được đâu
đang làm bài 4 hả
thủ tục dồn sau khi xóa 1 số trong 1 dãy
sẽ làm cho dãy bị trống 1 vị trí nên dồn các số ở đằng sau lên
VD: dãy
9 8 7 6 5 4 4 3 2 4 5 xóa đi số ở vị trí 3
9 8 6 5 4 4 3 2 4 5
--> cho số ở vị trí số 4 vào vị trí 3 , vị trí 5 vào vị trí 4 ,......
Còn thủ tục dồn sau khi chèn cũng giống vậy thôi
chỉ khác ở chỗ dồn ra đằng sau :số ở vị trí n vào vị trí n+1, vị trí n-1 vào vị trí n ...
chương trình con chèn mảng tớ ghi lúc tối chính là thủ tục dồn sau khi chèn (thực ra thì có dồn trứơc mới chèn được )
Thủ tục xoá mảng tại vị trí thứ k:(tức là dồn mảng sau khi xoá)
Procedure xoa(k:word) ;
Begin
For i:=k to n-1 do
a[i]:=a[i+1];
End;
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Dương ơi   Today at 12:48 pm

Về Đầu Trang Go down
 
Dương ơi
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 2 trangChuyển đến trang : 1, 2  Next

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 :: Trung tâm cứu hộ Pascal-
Chuyển đến