Câu 5 trang 51 SGK Tin học 11

Lập trình tính:

Quảng cáo

Đề bài

Lập trình tính:

Lời giải chi tiết

a) program Tong_5a,

uses crt,

var y: real;

n: byte;

Begin

clrscr

y : 0;

for n :=1 to 50 do

y : = y + n / ( n +1 ) ;

writeln('Tong y la: y:0:18);

readln ;

End.

Nếu biến y khai báo theo kiểu extended thì chương trình tính tổng y sẽ là như sau:

($e+, N+}

program Tong_5a;

uses crt;

var y: real;

n :byte;

Begin clrscr;

y : = 0 ;

for n:= 1 to 50 do

y:= y + n/(n+1);

writeln('Tong y la: y:0:18);

readln

End.

b) 

program Tong_5b;

uses crt;

var n: longint;

e, sh: real;

Begin

clrscr;

sh:= 1/2,

n: = 2 ;

e:= 2 + sh;

while sh>= 2*1E-16 do

begin

inc (n) ,

sh: = sh*(1/n) ,

e:= e + sh;

end;

writeln('Gia tri e(n)la: ',e:10:6);

readln

End.

Loigiaihay.com

  • Câu 4 trang 51 SGK Tin học 11

    Viết câu lệnh rẽ nhánh tính:

  • Câu 8 trang 51 SGK Tin học 11

    Một người gửi tiết kiệm không kì hạn với số tiền A đồng với lãi suất 0,2% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút tiền thì sẽ nhận được số tiền là bao nhiêu. Biết rằng tiền gửi tiết kiệm không ki hạn không được tính cộng vào vốn.

  • Câu 7 trang 51 SGK Tin học 11

    Nhập từ bàn phím tuổi của cha và con (tuổi của cha hơn tuổi con ít nhất là 25). Đưa ra màn hình bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.

  • Câu 6 trang 51 SGK Tin học 11

    Lập trình để giải bài toán cổ sau:

  • Câu 3 trang 51 SGK Tin học 11

    Có thể dùng câu lệnh while-đo để thay cho câu lệnh for-do được không? Nếu được, hãy thực hiện điều đỏ với chương trình.

Quảng cáo

Tham Gia Group Dành Cho 2K8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

close