Viết chương trình để làm ra một bàn phím giả thanh của đàn piano với những quy định
D = đồ
R=rê
M=mi
F=pha
S=son
l=la
Si=si
( đề thi học sinh giỏi của Huyện Xuân Hồng,Tỉnh Nam Định năm 2019)
Viết chương trình để làm ra một bàn phím giả thanh của đàn piano với những quy định
D = đồ
R=rê
M=mi
F=pha
S=son
l=la
Si=si
( đề thi học sinh giỏi của Huyện Xuân Hồng,Tỉnh Nam Định năm 2019)
mình ngu nhạc :< các số mình viết ở đây đều từ trong sách tin lớp 11 :<< nếu có sai sót gì thì bạn thông cảm nha
uses crt;
var not: char;
begin
clrscr;
writeln(‘moi ban choi dan theo quy dinh D=DO/E=RE/M=MI/F=PHA/S=SON/L=LA/SI=SI an k de ngung choi’);
repeat
not:=readkey;
case not of
‘D’ : BEGIN nosound ; sound(262); end;
‘R’: BEGIN nosound ; sound(294); end;
‘M’: BEGIN nosound; sound(330); end;
‘F’ : BEGIN nosound ; sound(349); end;
‘S’ :BEGIN nosound; sound(494); end;
‘L’:BEGIN nosound; sound(523); end;
‘SI’:BEGIN nosound; sound(587); end;
end
until (Upcase(not)=’k’);
nosound;
end.
uses crt;
begin
if lowercase(readkey) = ‘l’ then sound(880);
if lowercase(readkey) = ‘d’ then sound(523);
if lowercase(readkey) = ‘r’ then sound(587);
if lowercase(readkey) = ‘m’ then sound(659);
if lowercase(readkey) = ‘f’ then sound(698);
if lowercase(readkey) = ‘s’ then sound(783);
if lowercase(readkey) = ‘x’ then sound(988); //nốt si
delay(1000);
end.