Bài 1:

INPUT: Số n

OUTPUT: Tổng các số từ 1 đến n

Thuật toán:

Bắt đầu

B1: Nhập số N

B2: T:=0;

B3: i:=1;

B4: i>N thì chuyển tới B6

B5: T:=T+i;   i:=i+1;  Quay lại B4

B6: Xuất kết quả T

Kết thúc.

Chương trình

Uses CRT;

Var n,i:integer;

       T:longint;

Begin

     Clrscr;

     write('Nhap so nguyen N: ');   readln(n);

     T:=0;

     For i:=1 to n do

          T:=T+i;

     write('Tong la: ',t);

     readln;

end.

Bài 7: 

INPUT: Số nguyên N

OUTPUT: Tích các số tu 1 đến N

Thuật toán: 

Bắt đầu:

B1: Nhập số nguyên N

B2: T:=1;

B3: i:=1;

B4: Nếu i>N thì chuyển tới B6

B5: T:=T*i;  i:=i+1; Quay lại B4

B6: Xuất kết quả T

Kết thúc

Chương trình

Uses CRT;

var n,i:integer;  T:longint;

Begin

     Clrscr;

     write('Nhap so nguyen N: ');   readln(n);

     T:=1;

     for i:=2 to n do

          T:=T*i;

     write('Tich la: ',t);

     readln;

end.   

Bạn xem ảnh