viết chương trình in ra màn dòng chữ cấu trúc lệnh lặp for…do sử dụng vòng lặp for do và in kết quả ra màn hình

0 bình luận về “viết chương trình in ra màn dòng chữ cấu trúc lệnh lặp for…do sử dụng vòng lặp for do và in kết quả ra màn hình”

1. program phuongt;

   uses crt;

     var i: integer;

   begin

             clrscr;

             writeln(‘Cau truc lenh lap for…do’);

             for i:=1 to 3 do write(‘for <ben dem> := <gia tri dau> to <gia tri cuoi> do <cau lenh>;’);

             readln

   end.

   Bình luận

2. program fordo;

   uses crt;

   var i,n:integer;

   begin

        clrscr;

        writeln(‘Nhap so lan chep: ‘);  readln(n);

        for i:=1 to n do

             writeln(‘for <bien dem>:=<gia tri dau> to <gia tri cuoi> do <cau lenh>;’);

        readln;

   end.

   Bình luận