- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Hj. Có thuật toán rồi. Giờ viết chươg trình thôi thienthu. Mà khi nào phải nộp bài.
Có ai giỏi lập trình pascal không giúp mình với
- Tác giả sauthienthu
- Ngày đăng
- Tham gia
- 30/1/2012
- Bài viết
- 340
tối nay khoai ah. mình vẫn chưa lam xong nek
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Giờ viết chươg trình thôi. Asianpacific làm phần thuật toán rồi đó. Cố lên nhé.
- Tham gia
- 30/1/2012
- Bài viết
- 340
lắp ráp mà cũng mệt cả người. 5 bài mà mình mới làm được có 2 bài nek
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Uhm. Pascal thiếu 1 dấu ; là ko chạy đc.
- Tham gia
- 30/1/2012
- Bài viết
- 340
không biết thế nào nưa đây
- Tham gia
- 30/1/2012
- Bài viết
- 340
hepl me!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- Tham gia
- 9/8/2011
- Bài viết
- 27
sauthienthu chuyền qua Pascal được không ? 
Mình thì quên cấu trúc ngôn ngữ Pascal rồi nên mình đành phải viết mã giả thôi.
Mình thì quên cấu trúc ngôn ngữ Pascal rồi nên mình đành phải viết mã giả thôi.
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Chưa đc hả thienthu? Chuyển qua pascal đi
- Tham gia
- 30/1/2012
- Bài viết
- 340
mình chuyển được nhưng mình chạy chương trình không được bạn ah. không biết tại sao nữasauthienthu chuyền qua Pascal được không ?
Mình thì quên cấu trúc ngôn ngữ Pascal rồi nên mình đành phải viết mã giả thôi.
----------
vậy là thienthu hổng làm xong rồi khoai ơi
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Thienthu viết chươg trình ra xem sai ở đâu nè. Chưa nộp bài hả?
- Tham gia
- 30/1/2012
- Bài viết
- 340
mình chưa nek. lúc tối đi học mình quên không đưa đi. tối nay mình phải đưa đi nek
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Giờ thienthu post bài mình làm đi. Có khi sửa kịp. Mà làm xog 5 bài chưa?
- Tham gia
- 30/1/2012
- Bài viết
- 340
được 4 rồi còn bài sắp xếp nữa nek
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Là bài a asianfacific viết thuật tóan cho thienthu phải ko?
phuocdaik3010
Thành viên
- Tham gia
- 11/2/2012
- Bài viết
- 6
Program bt1;
Var f, f1 : text;
i, x, n1, n2, n3: integer;
Begin assign(f,'sn.dat');
Reset(f);
Assign(f1,'snsx.dat');
Rewrite(f1);
N1:=0; n2:=0; n3:=0;
While not eof(f) do begin
Read(f, x);
If x=1 then n1:=n1+1;
If x=2 then n2:=n2+1;
If x=3 then n3:=n3+1;
End;
For i:=1 to n1 do write(f1, '1 ');
For i:=1 to n3 do write(f1, '3 ');
For i:=1 to n2 do write(f1, '2 ');
Close(f); close(f1);
End.
Var f, f1 : text;
i, x, n1, n2, n3: integer;
Begin assign(f,'sn.dat');
Reset(f);
Assign(f1,'snsx.dat');
Rewrite(f1);
N1:=0; n2:=0; n3:=0;
While not eof(f) do begin
Read(f, x);
If x=1 then n1:=n1+1;
If x=2 then n2:=n2+1;
If x=3 then n3:=n3+1;
End;
For i:=1 to n1 do write(f1, '1 ');
For i:=1 to n3 do write(f1, '3 ');
For i:=1 to n2 do write(f1, '2 ');
Close(f); close(f1);
End.
- Tham gia
- 30/1/2012
- Bài viết
- 340
var a,b:aray[1..10] of byte;
n1,n2,n3,ni,x:byte;
f1,f2:text;
begin
assign(f1,'sn.dat');
while not eof (f1) do
begin
readln(f,A[ni]);
write(A[ni]);
end;
close(f1)
n1:=1;
n2:=2;n3:=3;
begin
x:=ni
if x=1 then write(f,'snsx.dat')
if x=2 then assign(f2,'sn.dat');
rewite(f2);
write(A[n2]);
readln;
write(f,B);
end;
close(f2)
and
if x=3 then write(f,'snsx.dat');
end;
assign(f,'sn.dat')
reset(f);
while not eof (f) do
begin
readln(f,B);
write(b);
write(f,'snsx.dat');
close(f);
end;
readln;
end.
----------
----------
n1,n2,n3,ni,x:byte;
f1,f2:text;
begin
assign(f1,'sn.dat');
while not eof (f1) do
begin
readln(f,A[ni]);
write(A[ni]);
end;
close(f1)
n1:=1;
n2:=2;n3:=3;
begin
x:=ni
if x=1 then write(f,'snsx.dat')
if x=2 then assign(f2,'sn.dat');
rewite(f2);
write(A[n2]);
readln;
write(f,B);
end;
close(f2)
and
if x=3 then write(f,'snsx.dat');
end;
assign(f,'sn.dat')
reset(f);
while not eof (f) do
begin
readln(f,B);
write(b);
write(f,'snsx.dat');
close(f);
end;
readln;
end.
----------
uhm.đúng rồi đó
----------
bạn chạy thử chưa
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Bài của thienthu sao lại có khai báo mảng array vậy? Thienthu chạy thử chươg trình của a ở trên thử?
- Tham gia
- 24/10/2011
- Bài viết
- 3.374
Bài của thienthu hình như ko chạy đc đâu.
- Tham gia
- 30/1/2012
- Bài viết
- 340
ah.quên mất.mình làm lung tung giờ không biết đâu mà pots đây
----------
mình đang chạy bài của a đó nek. nhìn mà hoa cả mắt rồi
----------
mình đang chạy bài của a đó nek. nhìn mà hoa cả mắt rồi
