Câu 1:Viết chương trình tính: S=2+4+6+…+n Câu 2:Viết chương trình tính: S+1+(1/2)+(1/3)+…(1/n) Câu 3:Viết chương trình tính trung bình cộng của n

0 bình luận về “Câu 1:Viết chương trình tính: S=2+4+6+…+n Câu 2:Viết chương trình tính: S+1+(1/2)+(1/3)+…(1/n) Câu 3:Viết chương trình tính trung bình cộng của n”

1. Câu 1:

   Program tinh_tong;

   Uses crt;

   Var S,i,n : integer;

   Begin 

   Write (‘Nhap n=’);

   Readln (n);

   S:=0; 

   For i:=1 to n do

   If i mod 2= 0 then 

   S:= S+ i;

   Writeln (‘Tong S la:’, S);

   Readln

   End.

   Câu 2:

   Program tinh_tong;

   Uses crt;

   Var i, n: integer;

          S: real;

   Begin 

   Write (‘Nhap n=’); 

   Readln (n);

   S:=0;

   For i:= 1 to n do 

   S:=S + 1/i ;

   Writeln (‘Tong S  la:’, S:8:3);

   Readln

   End.

   Câu 3:

   Program tinh_tbc;

   Uses crt;

   Var i, n,S: integer;

         Tbc: real;

   Begin

   Write (‘Nhap n=’);

   Readln (n);

   S:=0;

   Tbc:= 0;

   For i:= 1 to n do 

   S:= S+ i;

   Tbc:= S/n ;

   Writeln (‘Trung binh cong la:’, tbc:8:3);

   Readln

   End.

   #Không chắc câu 3 nữa -_-

   Bình luận

2. Bài $1$ Program Hotboy ;

   Uses crt;

   Var s,i,n : longint;

   Begin

   Clrscr ;

   S:=0;

   Write(‘nhap so n tu ban phim ‘);

   Readln(n);

   For i:=1 to n do

   If (i mod 2=0) then S:=S+i;

   Writeln(‘tong can tim la’,S);

   Readln

   End.

   Bài $2$

   Program Hotboy ;

   Uses crt;

   Var s,i,n : real;

   Begin

   Clrscr ;

   S:=0;

   Write(‘nhap so n tu ban phim ‘);

   Readln(n);

   For i:=1 to n do

   S:=S+1/i; inc(i);

   Writeln(‘tong can tim la’,S);

   Readln

   End.

   Bài $3$

   Program Hotboy ;

   Uses crt; 

   Var a:array[1..100] of integer ;

   S,n,i ,tb: real;

   Begin

   Clrscr ;

   Writeln(‘nhap so n’); 

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘A[‘,i,’]’); 

   Readln(A[i]);

   End;

   For i:=1 to n do

   $S:=S+A[i];$

   Tb:= S/n

   Write(‘tong la’,S,’Trung binh la’,Tb);

   Readln

   End.

   Bình luận