VCT in ra màn hình 10 câu “xin chào” – Sử dụng For…do – Sử dụng While…do ( làm cả 2 cách đấy )

0 bình luận về “VCT in ra màn hình 10 câu “xin chào” – Sử dụng For…do – Sử dụng While…do ( làm cả 2 cách đấy )”

1. FOR DO

   program ct;

   uses crt;

   var i:integer;

   begin

        for i:=1 to 10 do write(‘xin chao’);

   readln

   end.

   WHILE DO

   program ct;

   uses crt;

   var i:integer;

   begin

   clrscr;

       i:=1;

          while i<=10 do

     begin

          i:=i+1;

          write(‘xin chao’);

      end;

   readln

   end.

   Bình luận

2. For do:

   program ct;

   uses crt;

   var i:integer;

   begin clrscr;

      for i:=1 to 10 do

        writeln(‘Xin chao’);

   readln;

   end.

   While do:

   program ct;

   uses crt;

   var i:integer;

   begin clrscr;

      while i<10 do

        begin

           i:=i+1;

           writeln(‘Xin chao’);

        end;

   readln;

   end.

   Học tốt!

   Bình luận