logo fqa gpt

banner fqa app
Tải APP FQA Hỏi & đáp bài tập
Tải ngay

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

Admin FQA

30/12/2022, 13:16

Đề 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.

Fqa.vn

Bài giải cùng chuyên mục

Hướng dẫn làm bài tập và thực hành 2 Khởi động Turbo Pascal: Nhấp chuột lên biểu tượng Pascal trên màn hình hoặc lên tệp Turbo.exe trong thư mục BIN của thư mục TP ở ổ đĩa C hoặc ổ đĩa D.
Câu 2 trang 50 SGK Tin học 11 Câu lệnh ghép là gì? Tại sao phải có câu lệnh ghép?
Câu 6 trang 51 SGK Tin học 11 Lập trình để giải bài toán cổ sau:
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 4 trang 51 SGK Tin học 11 Viết câu lệnh rẽ nhánh tính:
Xem thêm
Điện thoại: 1900636019 Email: info@fqa.vn

LIÊN KẾT

FQA.vn Nền tảng kết nối cộng đồng hỗ trợ giải bài tập học sinh trong khối K12. Sản phẩm được phát triển bởi CÔNG TY TNHH CÔNG NGHỆ GIA ĐÌNH (FTECH CO., LTD)

Copyright © 2024 fqa.vn All Rights Reserved