1 hãy viết các câu lệnh để tạo ra tiếng nhạc trong free pascan 2 hãy viết các câu lệnh để tạo ra thiệp chúc 20/11 trong free pascan

0 bình luận về “1 hãy viết các câu lệnh để tạo ra tiếng nhạc trong free pascan 2 hãy viết các câu lệnh để tạo ra thiệp chúc 20/11 trong free pascan”

1. 1.

   uses crt;
   var i:longint;
   begin
   clrscr;
      for i:=1 to 100 do
         begin
            sound(i);
            delay(100);
         end;
   readln
   end.

   2.

   uses crt;
   begin
   clrscr;
      writeln(‘Nhan ngay quoc te phu nu 20/10’);
      writeln(‘Toi xin chuc phu nu manh khoe va nhieu thanh dat’);
   readln
   end.

   xin CTLHN nha ^^

   Bình luận

2. 1.Câu lệnh Sound dùng để phát tiếng nhạc.

   uses crt;
   var i:longint;
   begin
   clrscr;
      for i:=1 to 100 do
         begin
            sound(i);
            delay(100);
         end;
   readln
   end.

   2.

   uses crt;
   begin
   clrscr;
      writeln(‘Nhan ngay quoc te phu nu 20/10’);
      writeln(‘Toi xin chuc phu nu manh khoe va nhieu thanh dat’);
   readln
   end.

   Bình luận