Câu 1: Hãy điền đúng , sai (đánh dấu x) và sửa chương trình sau: (3điểm)Viết chương trình tính H và tìm n biết H= và H >1.85 Câu lệnhĐS Sửa lỗiUse_Crt; Var I, n,H :interge; Begin; H:=1; n:=0; clrscr; while H<= 1.85 do begin n:=n+2; if n mod 2 =1 then H:= H+1/n; End. writeln('so can tim la ,n,’tong...
Đọc tiếp
Câu 1: Hãy điền đúng , sai (đánh dấu x) và sửa chương trình sau: (3điểm)
Viết chương trình tính H và tìm n biết H= 
và H >1.85
Câu lệnh | Đ | S | Sửa lỗi |
Use_Crt; |
|
|
|
Var I, n,H :interge; |
|
|
|
Begin; |
|
|
|
H:=1; n:=0; |
|
|
|
clrscr; |
|
|
|
while H<= 1.85 do |
|
|
|
begin n:=n+2; |
|
|
|
if n mod 2 =1 then H:= H+1/n; |
|
|
|
End. |
|
|
|
writeln('so can tim la ,n,’tong la:,H); |
|
|
|
readln end; |
|
|
|
