Câu hỏi
Uni2805
26/04/2013 21:30
Các bác làm giúp em cái bai tap pascal này với
co ai biet lam bai tap pascal nay chi minh voi
*viết chương trình nhập 1 dãy số n sau đó in ra số lần xuất hiện của các kí tự trong chuỗi
ví dụ:nhập 1 5 6 8 9 8 1 1
in ra: 1 5 6 8 9
xuất hiện: 3 1 1 2 1
giúp em nhanh với bài kiểm tra đó còn có 2 ngày nữa là phải nợp
em nghĩ mãi ko ra cách làm
thang_star
26/04/2013 21:30
*viết chương trình nhập 1 dãy số n sau đó in ra số lần xuất hiện của các kí tự trong chuỗi
ví dụ:nhập 1 5 6 8 9 8 1 1
in ra: 1 5 6 8 9
xuất hiện: 3 1 1 2 1
giúp em nhanh với bài kiểm tra đó còn có 2 ngày nữa là phải nợp
em nghĩ mãi ko ra cách làm
Danh sách câu trả lời (1)
thang_star
26/04/2013 21:30
program demso;
uses crt;
var a:array[0..9] of byte;
i,x:byte;
s:string;
begin
clrscr;
write('Day so : '); {Mỗi số cách nhau 1 dấu cách}
readln(s);
for i:=1 to length(s) do
begin
if s<>' ' then {Để tránh nhầm khoảng cách với số 0}
val(s,x);
inc(a[x]);
end;
for i:=0 to 9 do
begin
write('So ',i,' xuat hien : ',a,' lan');{In kết quả ra màn hình}
writeln;
end;
readln;
end.
uses crt;
var a:array[0..9] of byte;
i,x:byte;
s:string;
begin
clrscr;
write('Day so : '); {Mỗi số cách nhau 1 dấu cách}
readln(s);
for i:=1 to length(s) do
begin
if s<>' ' then {Để tránh nhầm khoảng cách với số 0}
val(s,x);
inc(a[x]);
end;
for i:=0 to 9 do
begin
write('So ',i,' xuat hien : ',a,' lan');{In kết quả ra màn hình}
writeln;
end;
readln;
end.
Trả lời câu hỏi
Câu hỏi lĩnh vực Lập trình
Rao vặt Siêu Vip