[tin học 8] ôn thi tin 8 học kì ii

[kienduc_vatli]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1/ viết chương trình tính tổng sử dụng lệnh lặp while...do
$s=1+\frac{1}{2} + \frac{1}{3} + ...+ \frac{1}{n} $
với $\frac{1}{n}$ < E, giá trj E là sai số cho trươc và được nhập từ bàn phím
2/ viết chương trình để nhập số tự nhiên N và tính tổng các ước thực sự của N
3/ viết chương trình nhạp vào 2 số nguyên a,b . tìm UCLN của a,b
4/ tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số của nó ( những số này được gọi là số amstrong)
5/ số hoàn hảo là những số bằng tổng các ước thực sự của nó. hãy viết CT tìm các số hoàng hảo nhỏ hơn 100

 

[thienluan14211]

Bài 4

Code in Turbo Pascal 7.0​

program so_amstrong;
uses crt;
var a,b,c: integer;
begin
     clrscr;
     for a:=0 to 9 do
     For b:= 0 to 9 do
     For c:= 0 to 9 do
     if (a*100+b*10+c)=(a*a*a+b*b*b+c*c*c) then writeln('So ',a,b,c,' la so amstrong');
readln;
end.

 

[thinhrost1]

Bài 4

Code in Turbo Pascal 7.0​

program so_amstrong;
uses crt;
var a,b,c: integer;
begin
     clrscr;
     for a:=0 to 9 do
     For b:= 0 to 9 do
     For c:= 0 to 9 do
     if (a*100+b*10+c)=(a*a*a+b*b*b+c*c*c) then writeln('So ',a,b,c,' la so amstrong');
readln;
end.

For a:=1 to 9 mới đúng bạn ạ, bởi a là chữ số hàng trăm mà

 

[thienluan14211]

For a:=1 to 9 mới đúng bạn ạ, bởi a là chữ số hàng trăm mà

Nhưng mà đề bài yêu cầu kiểm tra các số từ 0 -> 999
Nếu như bạn nói thì nó sẽ kiểm tra từ 100 -> 999 mất rồi

 

[thienluan14211]

Code in Turbo Pascal 7.0​

Bài 3: TÌm UCLN

Program bai_3;
Uses crt;
var a,b,du:     integer;
begin
     Clrscr;
     Write('Nhap 2 so a, b can tim uoc chung ');
     Readln(a,b);
     While b <> 0 do
     Begin
          du := a mod b;
          a:=b;
          b:=du;
     end;
     writeln('Uoc chung lon nhat cua hai so tren la ',abs(a));
     readln
end.

 

[thienluan14211]

Bài 5

Code in Turbo Pascal 7.0​

Program So_hoan_hao; 
uses crt; 
Var S, i,j: integer; 
Begin 
clrscr; 
For i:=1 to 100 do 
Begin 
S:=0; 
For j:=1 to i-1 do
if i mod j = 0 then
S:=S+j;
if S = i then
writeln(i, ' la so hoan hao');
end; 
readln; 
end.