jeannotlafart
Hero
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?
Thế lỡ may là số trên 10 ví dụ 15 14 16 thì bạn làm kiểu gì.
Dãy số cảu chủ thớt có 2 chữ số trở lên ko.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!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!
Đọc vô chả hiểu j` hết =))ờ ờ 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:
Ko đc tại cái này là chương trình thi =))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.
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.Đọc vô chả hiểu j` hết =))
khi chạy i = 2;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 = 3;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 = 4;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 = 5;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
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
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!
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!
Hi vọng có dịp hợp tác mmo trong tương lai gần :binhsua56:Đã send card cho 1or0 rồi nhé
2 bạn kia cần thì để lại sdt nha
Riêng về captcha thì các dự án Fasttypers, Gogetsome, Mega, CT bạn cần j` cứ hỏi :>Hi vọng có dịp hợp tác mmo trong tương lai gần :binhsua56: