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

[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
readln(A);
for i:=1 to 10 do
begin
dem[i-1]:=0;
for j:= 1 to n do
if A=A[j] then inc(dem[i-1]);
end
for i:=1 to 10 do writeln('So lan xuat hien so ', i-1, 'la: ', dem[i-1]);
readln;
end.
Cái này đã sửa nhé!

 

[ncxn]

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
readln(A);
for i:=1 to 10 do
begin
dem[i-1]:=0;
for j:= 1 to n do
if A=A[j] then inc(dem[i-1]);
end
for i:=1 to 10 do writeln('So lan xuat hien so ', i-1, 'la: ', dem[i-1]);
readln;
end.
Cái này đã sửa nhé!

nói thế này:binhsua140:

Tansuat.pas(16,1) Fatal: Syntax error, ";" expected but "FOR" found
Fatal: Compilation aborted

 

[vodanhlata]

nói thế này:binhsua140:

Phải thêm 1 tí nữa chứ cái kia chỉ là sườn thôi
Mà nó cũng chưa đúng hay sao ấy đợi tí up hình cho

 

[vodanhlata]

Chưa đúng thiệt :-s

 

[1or0]

Chủ thớt đọc #18 chưa, send c*ặ*c điện thoại đê :m131:

 

[vodanhlata]

Chủ thớt đọc #18 chưa, send c*ặ*c điện thoại đê :m131:

Bạn gán các biến vô viết giống như trên trương trình để mình test đi :">

 

[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);
for i:=1 to n do write(' ',b);
readln;
end.

đã sửa, thớt check phát nào

 

[1or0]

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);
for i:=1 to n do write(' ',b);
readln;
end.

đã sửa, thớt check phát nào

chạy nhẩm cũng sai rồi, phải lọc những số trùng nhau ra ví dụ mảng gồm các số [1, 3, 35, 3, 35, 4, 14, 1]
thì chỉ in ra số 1, 3, 4, 14, 35 tần suất mấy lần. như vậy chỉ 5 dòng. làm như dòng bôi đậm sẽ in ra nguyên cả mảng 8 dòng :m131:

thuật toán này O(n) = n^2

thuật toán #18 O(n) = n :m131:

 

[vodanhlata]

chạy nhẩm cũng sai rồi, phải lọc những số trùng nhau ra ví dụ mảng gồm các số [1, 3, 35, 3, 35, 4, 14, 1]
thì chỉ in ra số 1, 3, 4, 14, 35 tần suất mấy lần. như vậy chỉ 5 dòng. làm như dòng bôi đậm sẽ in ra nguyên cả mảng 8 dòng :m131:

Ờ vừa ra kết quả như bạn này nói, h làm sao để nó lọc ra đây ta :-?

 

[tatqlt]

cái đoạn lọc ra cũng dễ chủ thớt viết đi dài thêm xíu :binhsua123:

 

[1or0]

cái đoạn lọc ra cũng dễ chủ thớt viết đi dài thêm xíu :binhsua123:

cái bài lọc ra độ phức tạp k khác bài tính tần suất :m131:

 

[vodanhlata]

Ai giúp làm cái phần lọc với nào huhu, in ra tần suất là đúng rồi

 

[jeannotlafart]

Ai giúp làm cái phần lọc với nào huhu, in ra tần suất là đúng rồi

Bác cho cái ví dụ input và output mình làm cho!

 

[tatqlt]

đang edit .............................

 

[Leo96]

Đợi tí , mình test post lên cho.
CÁi này trên lớp loàm rồi.

 

[jeannotlafart]

Xem đúng chưa??

 

[vodanhlata]

Bác cho cái ví dụ input và output mình làm cho!

Cái input thì mọi người làm đúng rồi
Còn output thì mình nhớ cái phần xuất ra màn hình nó trong phần tính tuần suất luôn chứ ko ở riêng lẻ phía cuối

 

[Leo96]

Xem đúng chưa??

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

 

[1or0]

Ờ vừa ra kết quả như bạn này nói, h làm sao để nó lọc ra đây ta :-?

ờ ờ 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:

 

[vodanhlata]

Xem đúng chưa??

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