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

[vodanhlata]

Viết chương trình nhập vào bàn phím một dãy số nguyên. Xuất ra màn hình tần suất (số lần xuất hiện) của các số trong dãy số đó (Hôm bữa trên lớp tìm ra thuật toán rồi mà h quên lại,các bạn làm từ phần mà so sánh các phần tử từ đó tính số lần xuất hiện thôi nha, phần nhập thì dễ rồi)
Các bạn jeannotlafart, tatqlt, 1or0 để lại sdt + mạng sử dụng nhé

 

[jeannotlafart]

có hậu tạ ko vậy ?

 

[vodanhlata]

có hậu tạ ko vậy ?

card 20k điện thoại nhé :">

 

[tatqlt]

tớ viết free cho :binhsua119:

 

[vodanhlata]

tớ viết free cho :binhsua119:

Viết giúp mau mau nhé, 21/6 đi thi cmnr` :-s

 

[jeannotlafart]

var s:string;
begin
write("Nhap day so nguyen:"); readln(s);
for i:=1 to 10 do
begin
dem:=0;
for j:=1 to length(s) do
if s[j] = i then dem:=dem +1;
write('So lan xuat hien so',i,' la:',dem);
end;
readln;
end.
Cai sườn tạm nhé! Sẽ sửa đổi sau!

 

[vodanhlata]

var s:string;
begin
write("Nhap day so nguyen:"); readln(s);
for i:=1 to 10 do
begin
dem:=0;
for j:=1 to length(s) do
if s[j] = i then dem:=dem +1;
write('So lan xuat hien so',i,' la:',dem);
end;
readln;
end.
Cai sườn tạm nhé! Sẽ sửa đổi sau!

Sử dụng biến kiểu mảng đi
Array ấy

 

[ct_ou]

var s:string;
begin
write("Nhap day so nguyen:"); readln(s);
for i:=1 to 10 do
begin
dem:=0;
for j:=1 to length(s) do
if s[j] = i then dem:=dem +1;
write('So lan xuat hien so',i,' la:',dem);
end;
readln;
end.
Cai sườn tạm nhé! Sẽ sửa đổi sau!

Ủa anh cũng học lập trình à :m003:

 

[y1oknion]

code trên gặp sô 2-3 chữ số thì sao

 

[vodanhlata]

code trên gặp sô 2-3 chữ số thì sao

Ừ, thì mới nên sử dụng array đó

 

[jeannotlafart]

Ừ, thì mới nên sử dụng array đó

OK! Dùng biến mảng thì mảng!

 

[moneypro]

Chủ thớt làm mình nhớ đến thời xương máu với em này, chỉ cần lỗi dấu phẩy mà sửa cả ngày trời mới chạy :m147:

 

[tatqlt]

Program Tansuat;
Uses crt;
var i,k,j,n,max:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
readln(A);
dem:=0;
for i:=1 to n do
for j:=i to n do
if A=A[j] then inc(dem);
for i:=1 to n do writeln(dem);
readln;
end.
Test đi bác

 

[vodanhlata]

Vừa hỏi ông thầy thì thấy ổng bảo cách làm y hệt mình mà sao vô mình vẫn ra kết quả sai :-s

- - - Updated - - -

Program Tansuat;
Uses crt;
var i,k,j,n,max:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
readln(A);
dem:=0;
for i:=1 to n do
for j:=i to n do
if A=A[j] then inc(dem);
for i:=1 to n do write(dem);
readln;
end.
Test đi bác

Cho mình hỏi Inc là gì vậy bạn :-s

 

[khoatai]

ngôn ngữ nào chả vậy chủ yếu thuật toán

 

[tatqlt]

tăng thêm 1 đơn vị cho biến khi kết quả là true

 

[jeannotlafart]

Program Tansuat;
Uses crt;
var i,k,j,n,max:integer;
dem,A: array [1..100] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
readln(A);
dem:=0;
for i:=1 to n do
for j:=i to n do
if A=A[j] then inc(dem);
for i:=1 to n do writeln(dem);
readln;
end.
Test đi bác

Nhìn vào thấy sai rùi! Dem sao nằm ngoài vòng for thế kia?
Còn nữa số lần xuất hiện số 0 ở đâu?

 

[1or0]

theo mình biết thì có nhiều cách, mình sẽ nói cách ít người sử dụng. ưu điểm là chạy nhanh, nhược điểm là tốn bộ nhớ, áp dụng cho dãy số nguyên nhập vào là lớn hàng trăm hay triệu, trục triệu, trăm triệu số, ... sẽ thấy khác biệt về tốc độ :m131:

bài toán có mảng_số_nguyên[n phần tử], 1 mảng tần_suất[số lớn nhất trong mảng n phần 
tử / hoặc / gán mặc định 1 số integer cực lớn] và mảng_index[n phần tử]

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

for i:= 1 to m (m là độ dài mảng_tần_suất) do
begin
    if  mảng_tần_suất[ i ] khác rỗng / hoặc / khác 0 then
       xuất ra dòng chữ số lần xuất hiện số i là tần_suất[ i ];
end;

đơn giản dễ hiểu:m131:

 

[tatqlt]

Nhìn vào thấy sai rùi! Dem sao nằm ngoài vòng for thế kia?
Còn nữa số lần xuất hiện số 0 ở đâu?

Bác test thử coi rồi sữa lun cho thớt :binhsua121:

 

[socool2207]

tăng thêm 1 đơn vị cho biến khi kết quả là true

tat pro :"> :binhsua141: