Bài tập 5 trang 51 tin học 11 năm 2024

Bài tập và thực hành 2

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

Lập trình tính:

Lời giải:

1. 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.

Tham khảo toàn bộ: Giải Tin học 11

• * Lớp 1
  • Lớp 2
  • Lớp 3
  • Lớp 4
  • Lớp 5
  • Lớp 6
  • Lớp 7
  • Lớp 8
  • Lớp 9
  • Lớp 10
  • Lớp 11
  • Lớp 12
  • Thi chuyển cấp
  • • Mầm non

      • Tranh tô màu
      • Trường mầm non
      • Tiền tiểu học
      • Danh mục Trường Tiểu học
      • Dạy con học ở nhà
      • Giáo án Mầm non
      • Sáng kiến kinh nghiệm

    • Học tập

      • Giáo án - Bài giảng
      • Luyện thi
      • Văn bản - Biểu mẫu
      • Viết thư UPU
      • An toàn giao thông
      • Dành cho Giáo Viên
      • Hỏi đáp học tập
      • Cao học - Sau Cao học
      • Trung cấp - Học nghề
      • Cao đẳng - Đại học

    • Hỏi bài

      • Toán học
      • Văn học
      • Tiếng Anh
      • Vật Lý
      • Hóa học
      • Sinh học
      • Lịch Sử
      • Địa Lý
      • GDCD
      • Tin học

    • Trắc nghiệm

      • Trắc nghiệm IQ
      • Trắc nghiệm EQ
      • KPOP Quiz
      • Đố vui
      • Trạng Nguyên Toàn Tài
      • Trạng Nguyên Tiếng Việt
      • Thi Violympic
      • Thi IOE Tiếng Anh
      • Kiểm tra trình độ tiếng Anh
      • Kiểm tra Ngữ pháp tiếng Anh

    • Tiếng Anh

      • Luyện kỹ năng
      • Giáo án điện tử
      • Ngữ pháp tiếng Anh
      • Màu sắc trong tiếng Anh
      • Tiếng Anh khung châu Âu
      • Tiếng Anh phổ thông
      • Tiếng Anh thương mại
      • Luyện thi IELTS
      • Luyện thi TOEFL
      • Luyện thi TOEIC

    • Khóa học trực tuyến

      • Tiếng Anh cơ bản 1
      • Tiếng Anh cơ bản 2
      • Tiếng Anh trung cấp
      • Tiếng Anh cao cấp
      • Toán mầm non
      • Toán song ngữ lớp 1
      • Toán Nâng cao lớp 1
      • Toán Nâng cao lớp 2
      • Toán Nâng cao lớp 3
      • Toán Nâng cao lớp 4

Giao diện mới của VnDoc Pro: Dễ sử dụng hơn - chỉ tập trung vào lớp bạn quan tâm. Vui lòng chọn lớp mà bạn quan tâm: Lưu và trải nghiệm

• Giải bài tập Tin học 11

  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.

  Xem lời giải

  Chương trình cài đặt:

  a)

  Program bai5a;

  Uses crt;

  Const n=50;

  Var i: integer;

  Y: real;

  Begin

  Clrscr;

  for i:=1 to n do

  Y:=i/(i+1);

  Write('Tong Y: ',y:9:3);

  Readln

  End.

  b)

  program bai5b;

  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

  n:=n+1;

  sh:=sh*(1/n);

  e:=e+sh;

  end;

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

  readln

  end.

  -- Mod Tin Học 11 HỌC247