Câu 1: Nêu cấu trúc và cách thực hiện của lệnh lặp với số lần chưa biết trước? Câu 2: Sử dụng cấu trúc lặp for…do viết chương trình tính tổng các số

0 bình luận về “Câu 1: Nêu cấu trúc và cách thực hiện của lệnh lặp với số lần chưa biết trước? Câu 2: Sử dụng cấu trúc lặp for…do viết chương trình tính tổng các số”

1. Câu 1: Nêu cấu trúc và cách thực hiện của lệnh lặp với số lần chưa biết trước?

   Cấu trúc $\text{While (Điều kiện ) do (câu lệnh) ;} $

   $\text{Repeat (câu lệnh) until (điều kiện)}$

   Câu 2: Sử dụng cấu trúc lặp for…do viết chương trình tính tổng các số chẵn từ 1 tới N với N là số nguyên dương được nhập vào từ bàn phím.

   Program Hotboy;

   Uses crt; 

   Var s:real;

   I,n:integer;

   Begin

   Clrscr;

   Write(‘nhao so n’); readln(n) ;

   For i:=1 to n do 

   If i mod 2=0 then

   S:=S+i;

   Writeln(‘tong la’,S);

   Readln

   End.

   Bình luận

2. câu1: while<điều kiện> do <câu lệnh>;

   câu 2:

   program oken;

   uses crt;

   var n,i,tong:integer;

   begin

   clrscr;

   write(‘nhap n: ‘); readln(n);

   for i:=1 to n do 

       if i mod 2 = 0 then tong:=tong+i;

   writeln(‘tong cac so chan tu 1 den ‘,n,’: ‘,tong);

   readln;

   end.

   Bình luận