Câu 1: Viết chương trình tính tổng n số nguyên từ 1 đến n, với n dược nhập từ bàn phím? Câu 2: Mô tả thuật toán tính tổng số nguyên từ 1 đến n , với n

0 bình luận về “Câu 1: Viết chương trình tính tổng n số nguyên từ 1 đến n, với n dược nhập từ bàn phím? Câu 2: Mô tả thuật toán tính tổng số nguyên từ 1 đến n , với n”

1. Input : số nguyên n

   Output : Tổng các số  từ 1 đến n (S)

   Thuật toán

    b1 :  S := 0 ; i := 1;

   b2 : i := i + 1; S := S + i;

   b3 : Nếu i ≤ n thì quay lại bước `2` else in `S` và end.

   Chương trình

   program az;

   uses Crt;

   var i,n : integer;

           S : longint;

   begin

   clrscr;

   Write(‘Nhap n  = ‘); readln(n);

   S := 0;

   For i:=1 to n  do S := S + i;

   Write(‘S = ‘,S);

   readln

   end.

    

   Bình luận

2. 1.

   program ctpt;

   uses crt;

     var n, i, S: integer;

   begin

               clrscr;

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

               S:=0;

               for i:=1 to n do S:=S+i;

               write(‘Tong = ‘, S);

               readln

   end.

   2.

   In: số nguyên n.

   Out: S.

   MT:

   B1: S ← 0.

   B2: i ← i + 1; S ← S+i.

   B3: Nếu i > n thì thông báo S và KTTT ngược lại quay lại bước 2.

   Bình luận