Tiết 41: THỰC HÀNH 5 – VÒNG LẶP FOR … DO Bài 1: Viết chương trình tính tích P = 1*2*3*4*5 Bài 2: Viết chương trình tính tổng S = 1 + 2 + 3 + 4 + …+ N

0 bình luận về “Tiết 41: THỰC HÀNH 5 – VÒNG LẶP FOR … DO Bài 1: Viết chương trình tính tích P = 1*2*3*4*5 Bài 2: Viết chương trình tính tổng S = 1 + 2 + 3 + 4 + …+ N”

1. bài 1

   progam tinh_p ;

   uses crt ;

   var  i ,p :  integer ;

   begin

   clrscr;

   P:=1;

   for i:=1 to 5 do

   p:=p*i ;

   writeln(‘p=’,p);

   readln

   end.

   bài 2

   program tong_S ;

   uses crt ;
   var  i ,n,s :  integer ;
   begin
   clrscr;

   s:=0;

   write(‘n=’);readln(n);

   for i:=1 to n do 

   S:=s+i ;

   writeln(‘Tong = ‘,s);

   readln

   end.

   Bình luận

2. 1)

   Uses crt;

   Var i, P : integer;

   Begin clrscr;

   Writeln(‘Nhap so n=’);Readln(n);

   P :=1;

   For i :=1 to 5 do P := P*i;

   Writeln(‘P=’, P );

   Readln

   End.

   2)

   Uses crt;

   Var i, n, T : integer;

   Begin clrscr;

   Writeln(‘Nhap so n=’);Readln(n);

   T :=0;

   For i :=1 to n do T :=t+i;

   Writeln(‘Tong do la :’, T);

   Readln

   End.

   Bình luận