Anh em pascal vô help giùm mình đoạn code với :-ss

[jeannotlafart]

Thế lỡ may là số trên 10 ví dụ 15 14 16 thì bạn làm kiểu gì.

Một dãy số nguyên mà cậu?

 

[Leo96]

1 2 6 8 đâu có nhập từ bàn phím vô đâu

Dãy số cảu chủ thớt có 2 chữ số trở lên ko.

 

[jeannotlafart]

1 2 6 8 đâu có nhập từ bàn phím vô đâu

Thì ko nhập vào nên số lần = 0 kìa!

 

[1or0]

Thì ko nhập vào nên số lần = 0 kìa!

=))=))=))=))=))=))=))

 

[vodanhlata]

ờ ờ cái lờ, đọc #18 tự code đê, chú ý nếu nhập mảng cả nguyên dương và nguyên âm thì sửa lại xíu thêm 1 mảng cho số âm nữa. thuật toán này được cái dễ hiểu và chạy nhanh, mảng nhập rất rất rất nhiều phần tử thì chạy rất rất rất nhanh hơn so với giải thuật khác :m131:

Đọc vô chả hiểu j` hết =))

 

[hoangkyem]

mình viết bằng C++ cậu chuyển qua Pascal được không?. Chứ Pascal học lâu quá rồi, quên luôn cú pháp mấy câu lênh đi rồi.

 

[vodanhlata]

mình viết bằng C++ cậu chuyển qua Pascal được không?. Chứ Pascal học lâu quá rồi, quên luôn cú pháp mấy câu lênh đi rồi.

Ko đc tại cái này là chương trình thi =))

 

[1or0]

Đọc vô chả hiểu j` hết =))

ví dụ chạy tay thuật toán #18 nhé. chỉ nhập số nguyên dương, nếu nguyên âm thêm 1 mảng tần suất nữa.

ví dụ mảng_số_nguyên gồm 5 phần tử [1, 3, 1, 2, 3] số lớn nhất của mảng là 3 => mảng tần_suất có 3 phần tử.

for i: = 1 to 5 do
begin
tần_suất [ mảng_số_nguyên ] := tần_suất [ mảng_số_nguyên ] + 1;
end;

khi chạy i = 1;

mảng_số_nguyên[1] = 1 nên tần_suất [ mảng_số_nguyên[1] ] := tần_suất [ mảng_số_nguyên[1] ] + 1;
sẽ được tần_suất[1] = tần_suất[1] + 1 = 1

khi chạy i = 2;

mảng_số_nguyên[2] = 3 nên tần_suất [ mảng_số_nguyên[2] ] := tần_suất [ mảng_số_nguyên[2] ] + 1;
sẽ được tần_suất[3] = tần_suất[3] + 1 = 1

khi chạy i = 3;

mảng_số_nguyên[3] = 1 nên tần_suất [ mảng_số_nguyên[3] ] := tần_suất [ mảng_số_nguyên[3] ] + 1;
sẽ được tần_suất[1] = tần_suất[1] + 1 = 2

khi chạy i = 4;

mảng_số_nguyên[4] = 2 nên tần_suất [ mảng_số_nguyên[4] ] := tần_suất [ mảng_số_nguyên[4] ] + 1;
sẽ được tần_suất[2] = tần_suất[2] + 1 = 1

khi chạy i = 5;

mảng_số_nguyên[5] = 3 nên tần_suất [ mảng_số_nguyên[5] ] := tần_suất [ mảng_số_nguyên[5] ] + 1;
sẽ được tần_suất[3] = tần_suất[3] + 1 = 2

Khi in ra

for i:= 1 to 3 do
if tần_suất khác rỗng then
in ra số i xuất hiện tần_suất lần

khi chạy

số 1 xuất hiện tần_suất[1] = 2 lần
số 2 xuất hiện tần_suất[2] = 1 lần
số 3 xuất hiện tần_suât[3] = 2 lần

hiểu k :m122:

 

[jeannotlafart]

Program Tansuat;
Uses crt;
var i,k,j,n:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' : ');
readln(A);
end;
for i:=1 to n do
begin
dem:=0;
for j:= 1 to n do
if A=a[j] then inc(dem);
end;
for i:=1 to n do writeln('So lan xuat hien so ', a, 'la: ', dem);
readln;
end.
Đây rùi theo ý chủ thớt!

 

[1or0]

Program Tansuat;
Uses crt;
var i,k,j,n:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' : ');
readln(A);
end;
for i:=1 to n do
begin
dem:=0;
for j:= 1 to n do
if A=a[j] then inc(dem);
end;
for i:=1 to n do writeln('So lan xuat hien so ', a, 'la: ', dem);
readln;
end.
Đây rùi theo ý chủ thớt!

lại n bảng n dòng rồi :m014:

chủ thớt đọc #18 tự code send c*ặ*c điện thoại đây, tốn time quá :m019:

 

[jeannotlafart]

Program Tansuat;
Uses crt;
var i,k,j,n:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' : ');
readln(A);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a >= a[j] then
begin
k:= a;
a:=a[j];
a[j]:=k;
end;
for i:=1 to n do
begin
dem:=0;
for j:= 1 to n do
if A=a[j] then inc(dem);
end;
for i:=1 to n do if a<>a[i-1] then writeln('So lan xuat hien so ', a, 'la: ', dem);
readln;
end.
Của cậu đây đã lọc trùng!

 

[1or0]

Program Tansuat;
Uses crt;
var i,k,j,n:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' : ');
readln(A);
end;
for i:=1 to n do
for j:=i to n-1 do
if a >= a[j] then
begin
k:= a;
a:=a[j];
a[j]:=k;
end;
for i:=1 to n do
begin
dem:=0;
for j:= 1 to n do
if A=a[j] then inc(dem);
end;
for i:=1 to n do if a<>a[i+1] then writeln('So lan xuat hien so ', a, 'la: ', dem);
readln;
end.
Của cậu đây đã lọc trùng!

mảng a có n phần tử mà sử dụng phần a[n+1] lỗi rồi :m014:

 

[tatqlt]

Program Tansuat;
Uses crt;
var i,k,j,n,max:integer;
b,st: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
Begin
write('st[',i,']=');readln(st);
End;
b:=0;
for i:=1 to n do
for j:=1 to n do
if st=st[j] then inc(b);
i:=1;
while i<=n do
begin
k:=0;
for j:=i+1 to n do
if st[j]<>st then k:=k+1;
if k=n-i then writeln('so lan xuat hien cua ',st,' la', b);
i:=1+i;
end;
readln;
end.
aaaaaaaaaaaaaaaaaaaaaaa test đi bác

 

[vodanhlata]

Okay của bạn tatqlt + jeannotlafart đúng rồi
Các bạn jeannotlafart, tatqlt, 1or0 để lại sdt + mạng sử dụng nhé

 

[1or0]

mobifone 01226463260 :m121:

@1or0 tính nhẩm code jeannotlafart, tatqlt với mảng số nguyên là 3, 3, 3, 3, 4, 4, 5, 5, 6 chạy k đúng nhỉ, chủ thớt thử nhập số các số trên xem ra kết quả đúng k :m014:

 

[tatqlt]

vẫn đúng mà cậu, cậu toàn nhẩm nhỉ :binhsua50:, công sức của em đó

 

[vodanhlata]

Đã send card cho 1or0 rồi nhé
2 bạn kia cần thì để lại sdt nha

 

[Jetli]

chậm chân bà nó rồi >"<

 

[tatqlt]

Đã send card cho 1or0 rồi nhé
2 bạn kia cần thì để lại sdt nha

Hi vọng có dịp hợp tác mmo trong tương lai gần :binhsua56:

 

[vodanhlata]

Hi vọng có dịp hợp tác mmo trong tương lai gần :binhsua56:

Riêng về captcha thì các dự án Fasttypers, Gogetsome, Mega, CT bạn cần j` cứ hỏi :>