Giải bài tập Pascal lớp 11 – Chương 3

Các bài giải đã post trước đó:

• Giải bài tập Pascal lớp 11 – Chương 1
• Giải bài tập Pascal lớp 11 – Chương 2

Bây giờ mình sẽ đi tiếp Chương 3 - Giải bài tập tin học 11 về Pascal. Các bạn cùng theo dõi nhá!!! :)
Bài thực hành số 2


Bài 1: SGK

Bài 2: Câu lệnh ghép là một câu lệnh được hợp thành từ nhiều câu lệnh thành phần. Câu lệnh ghép nhằm thực hiện thao tác gồm nhiều thao tác thành phần. Mỗi thao tác thành phần ứng với một câu lệnh đơn hoặc một câu lệnh ghép khác. Câu lệnh ghép là một trong các yếu tố để tạo khả năng chương trình có cấu trúc. Các câu lệnh đặt giữa begin và end;
Bài 3:

Program tong1a; Uses crt;
Var S: real;
    a, N: integer;
begin
 clrscr;
  write('Nhap a: ');readln(a);
  S:=1.0/a;
  N:=1;
  While n<=100 do 
    Begin
       S:=S+1.0/(a+N);
       N:=N+1;
       End;
  Writeln('Tong S la: ',S:8:4);
 Readln
End.

Ví dụ:

Bài 4:
a)

program bai4a;
uses crt;
var x, y, z:real;
begin
  clrscr;
    write('nhap hai so x va y: ');readln(x,y);
    if x*x+y*y<=1 then
      begin
        z:=(x*x+y*y);
        writeln('tong can tim: ',z:9);
      end;
    if (x*x+y*y>1) and (y>=x) then
      begin
        z:=(x+y);
        writeln('tong can tim: ',z:9);
      end;
    if (x*x+y*y>1) and (y<x) then
      begin
      z:=0.5;
      writeln('tong can tim: ',z);
      end;
  readln
end.

Ví dụ:

b)

program bai4b;
uses crt;
var x,y,z,a,b,r:real;
begin
 clrscr;
  write('Nhap x: ');readln(x);
  write('Nhap y: ');readln(y);
  write('Nhap toa do tam hinh tron: ');readln(a,b);
  write('Nhap ban kinh r: ');readln(r);
  if sqrt(sqr(x-a)+sqr(x-b))<r then
    begin 
      z:=abs(x)+abs(y);
      writeln('Z= ',z:3:3);
    end
  else
    begin
      z:=x+y;
      writeln('Z= ',z:3:3); 
    end;
 readln
end.

Ví dụ:

Bài 5:
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.

Ví dụ:

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:6);
 readln
end.

Ví dụ:

Bài 6:

program Bai6;
uses crt;
var x, y:byte;
begin
 clrscr;
  for x:=1 to 36 do
    for y:=0 to 20 do
      if (x+y=36) and (2*x+4*y=100) then
        begin
        writeln('Co ',x,' con Ga'); write('Co ',y,' con Cho');
        end;
 readln
end.

Ví dụ:

Bài 7:

program Bai7;
uses crt;
var b, c, n:byte;
begin
 clrscr;
  repeat
  write('Nhap tuoi cha: ');readln(b);
  write('Nhap tuoi con: ');readln(c);
  if (b-c<25) or (b<2*c) then
    writeln('Du lieu khong hop le,nhap lai.'); 
  until (b-c>=25) and (b>=2*c);
  if b=2*c then
    writeln('Hien nay tuoi cha gap hai lan tuoi con.')
  else
    if b>2*c then
      writeln('Sau ',b-2*c,' nam tuoi cha se gap doi tuoi con');
 readln
end.

Ví dụ:

Bài 8:

program Bai8;
uses crt;
var A, B, St, Luu :real;
    n:byte;
begin
 clrscr;
  write('Nhap so tien gui: ');readln(a);
  write('Nhap so tien nhan: ');readln(b);
  luu:=A; n:=0; st:=a;
  while St<=B do
   begin
     St:=St+luu*0.003;
     n:=n+1;
   end;
  writeln('So thang can la: ',n);
 readln
end.

Ví dụ:

Vậy là xong!!! :)

Chúc các bạn học tốt Pascal!

Lâm Ngọc Khương

Luôn tìm tòi, thích học hỏi! Tất cả chỉ vì con đường đã chọn. Tôi yêu công nghệ thông tin! :)