Viết chương trình nhap chiều dài và rộng in ra màn hình các dấu sao VD: dài 12 rộng 5 ************** * * *

0 bình luận về “Viết chương trình nhap chiều dài và rộng in ra màn hình các dấu sao VD: dài 12 rộng 5 ************** * * *”

1. program ct;
   uses crt;
   var d,r,i,j:integer;
   begin clrscr;
      write(‘Nhap chieu dai va chieu rong: ‘); readln(d,r);
      for i:=1 to d do
         write(‘*’);
      writeln;
      for i:=1 to r-2 do
        begin
           write(‘*’);
           for j:=1 to d-2 do
              write(‘ ‘);
           write(‘*’);
           writeln;
        end;
      for i:=1 to d do
         write(‘*’);
   readln;
   end.

   Học tốt!

   Bình luận

2. uses crt;
   var d,r,i:longint;
   begin
   clrscr;
      write(‘Nhap chieu dai: ‘);readln(d);
      write(‘Nhap chieu rong: ‘);readln(r);
      for i:=1 to d do write(‘*’); writeln;
      for i:=1 to r-2 do
         begin
            gotoxy(1,3+i); write(‘*’);
            gotoxy(d,3+i); write(‘*’);
         end;
      gotoxy(1,2+r);
      for i:=1 to d do write(‘*’); writeln;
   readln
   end.

   /////////////////////////////////////

   Test:

   

   Bình luận