Nam rất thích nghe nhạc và trong lúc nghe nhạc thì việc cậu thích tiếp theo là quan sát sự thay đổi âm phổ như trong hình bên dưới Âm phổ gồm n cột có chiều ca
Nam rất thích nghe nhạc và trong lúc nghe nhạc thì việc cậu thích tiếp theo là quan sát sự thay đổi âm phổ như trong hình bên dưới Âm phổ gồm n cột có chiều cao lần lượt là a1, a2, ..., an. Chiều cao tối đa của một cột là m. Bạn hãy giúp Nam vẽ lại hình âm phổ nhé. Dữ liệu nhập: - Dòng đầu tiên là hai số nguyên n và m cách nhau một khoảng trắng (1 ≤ n ≤ 20, 1 ≤ m ≤ 20) - Dòng tiếp theo gồm n số nguyên a1, a2, ..., an, mỗi số cách nhau một khoảng trắng (0 ≤ ai ≤ m). Dữ liệu xuất: - Gồm m dòng tạo thành bảng thể hiện âm phổ, mỗi dòng gồm n ký tự # hoặc dấu chấm. Các cột âm phổ được biểu diễn bằng dấu #, phần còn lại biểu diễn bằng dấu chấm (xem ví dụ để hiểu rõ thêm)
Lời giải 1 :
Var A:Array[1..100] Of Longint;
n,k,i:Longint;
Begin
Readln(n,k);
For i:=1 to n do Read(A[i]);
While k>0 do
Begin
For i:=1 to n do
Begin
If A[i]>=k then Write('#')
Else Write('.');
End;
k:=k-1;
Writeln;
End;
Readln;
End.
Thảo luận
Lời giải 2 :
uses crt;
var i,j,n,m:byte;
a:array[0..30] of byte;
begin
clrscr;
readln(n,m);
for i:=1 to n do read(a[i]);
for i:=m downto 1 do
begin
for j:=1 to n do
if a[j]>=i then write('#')
else write('.');
writeln;
end;
readln;readln;
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK