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:

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ụ:

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:

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ụ:

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.