Dương ơi

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

ok
no ma fai doi tau nho lai da

Xin loi tui gui nham

cute91 đã viết:

Xin loi tui gui nham

Đoán là ngọc hà đang ở nhà
Dương
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

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

Cám ơn nha

Choáng!!!!!!!!!! Tui thì bài nào cũng khó hết á.

meo_con_an_chuot_beo đã viết:

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

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

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

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

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

Bo bận cái j mà sao đến bây giờ vẫn ko thấy
Đã 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
sang teentink3 đây

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

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;

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

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.

Cám ơn nha
Copy chạy thử
Bài 21 làm sao thế

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

Á à
Sao có bài của thấy thế nghi quá

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]

Cám ơn nha
Biết thi trạt nhưng vẫn cầm cự

Crazyinlove đã viết:

Á à
Sao có bài của thấy thế nghi quá

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

đi ngủ đây
mother is in here(hiểu ko?)

chopes đã viết:

Crazyinlove đã viết:

Á à
Sao có bài của thấy thế nghi quá

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

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;

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;