Bài 7. Câu lênh lặp

a.for i:=1 to 10;do x:=x+1;

-> lệnh sai vì sau "to 10" không có dấu '' 

For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Sửa lại:for i:=1 to 10 do x:=x+1;

b.for i:=10 to 1 do x:=x+1;

-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên  không lặp được.

Sửa for i:=1 to 10 do x:=x+1;

c.while i:=1 do t=10;

-> lệnh sai phép gán giá trị cho biến VD: x:=1

t=10(sai) thiếu dấu ':'  

Sửa lại:

while i:=1 do t:=10;

d.while a<=b;do write('b lon hon a');

-> lệnh sai vì Sau While a<=b không có ''(While <điều kiện> do <câu lệnh>) 

Sửa lại:

while a<=b do write('b lon hon a');

Chào cờ hàng tuần là một lặp định kỳ, tức là nó được thực hiện vào cùng một thời điểm trong mỗi tuần. Thông thường, chào cờ hàng tuần được tổ chức vào sáng thứ hai của mỗi tuần trong các trường học và cơ quan công sở. Nó là một hoạt động quan trọng để tôn vinh quốc kỳ và giáo dục cho các học sinh về tình yêu đất nước và lòng tự hào dân tộc.

program TinhTongBinhPhuong;

var

     n, i, S: Integer;

begin

     Write('Nhap n: ');

     Readln(n);

     S := 0;

     for i := 1 to n do

     begin

          S := S + i * i;

     end;

     WriteLn('Tong cac binh phuong la: ', S);

end.

câu 1:

Var s, i: longint;

Begin

   S := 0;  //Thiếu dấu chấm phẩy ở đey

   i := 1;

   while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp

   begin

      s := s + i;

      i := i + 1;

   end;

   write('s = ', s);

end.

câu 2:

Var p, i, n: real;

Begin

   Readln(n);

   p := 1;

   for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng

   begin

      p := p * i / (i + 1);

   end;

   write('p = ', p);

end.

câu 3:

Var a: array [1..50] of longint;

n, s, i: real; //Thiếu dấu chấm phẩy ở đey

Begin

   Readln(n);

   For i := 1 to n do

   begin

      Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng

   end;

   S := 0;

   For i := 1 to n do

   begin

      S := S + a[i];

   end;

   write('s = ', S); //Sửa lại tên biến trong write

end.

program TinhTongTu1DenN;
var
  N, i, tong: integer;
begin
  write('Nhap so N: ');
  readln(N);
  
 
  tong := 0;
  for i := 1 to N do
    tong := tong + i;
  
  writeln('Tong cac so tu 1 den ', N, ' la: ', tong);
  readln; 
end.

N = int(input("Nhập số tự nhiên N: "))
tong = 0
for i in range(1, N+1):
    tong += i
print("Tổng các số từ 1 đến ", N, " là: ", tong)

Program HOC24;

var i,j: byte;

begin

for i:=1 to 4 do

begin

for j:=1 to 10 do write('Y');

writeln;

end;

readln

end.