tinhoc 11 8952 1234567890

Great by: Nguyễn Trọng Hoàng Email:

Gi¶i Bµi
TËp Tin
Häc 11


Great by: Nguyn Trng Hong Email:

Chơng 1:

M

ột số khái niệm về lập trình và ngôn ngữ lập trình

Bài tập

1. Ngi ta phi xõy dng ngụn ng lp trỡnh bc cao vỡ
- Ngụn ng lp trỡnh bc cao gn gi vi t nhiờn hn, thun tin cho
ủụng ủo ngi lp trỡnh.
- Ngụn ng lp trỡnh bc cao núi chung khụng ph thuc vo loi mỏy,
cựng mt chng trỡnh cú th thc hin nhiu mỏy khỏc nhau.
- Chng trỡnh vit bng ngụn ng bc cao d hiu, d hiu chnh v d
nõng cp hn.
- Ngụn ng lp trỡnh bc cao cho phộp lm vic vi nhiu kiu d liu v
cỏch t chc d liu ủa dng, thun tin cho mụ t thut toỏn.
2. Chng trỡnh dch l chng trỡnh ủc bit, cú chc nng chuyn ủi
chng trỡnh ủc vit trờn ngụn ng lp trỡnh bc cao thnh chng
trỡnh thc hin ủc trờn mỏy tớnh.
3.
- Biờn dch: duyt, kim tra, phỏt hin li, xỏc ủnh chng trỡnh ngun

cú dch ủc khụng. Dch ton b chng trỡnh ngun thnh mt
chng trỡnh ủớch cú th thc hin trờn mỏy v cú th lu tr li ủ s
dng v sau khi cn.
- Thụng dch: ln lt dch tng cõu lnh ra ngụn ng mỏy ri thc hiờn
ngay cõu lnh va dch ủc hoc thụng bỏo li nu khụng dch ủc.
4. Cỏc ủim khỏc nhau gia tờn dnh riờng v tờn chun: tờn dnh riờng
khụng ủc dựng khỏc vi ý ngha xỏc ủnh, tờn chun cú th dựng vi
ý ngha khỏc.
5. ỳng: tamgiac, bai5a, xemxonxiu_ngu...
6. C: 6,23 6.23
E: A20 tờn cha cú giỏ tr
G: 4 + 6 H: C CI: TRUE true l hng logic.


Great by: Nguyễn Trọng Hoàng Email:

Ch−¬ng 2:

C

h−¬ng tr×nh ®¬n gi¶n

Bµi Thùc Hµnh Sè 1
-----------------*****
-----------------*****----------------*****----------------Sự khác nhau giữa hằng có ñặt tên và tên biến: Giá trị của hằng có ñặt
tên không thay ñổi khi thực hiện chương trình còn giá trị của biến có
thể thay ñổi tại từng thời ñiểm thực hiện chương trình.
2. Khai báo biến nhằm những mục ñích sau:
- Xác ñịnh kiểu của biến. Trình dịch sẽ biết cách tổ chức ô nhớ chứa giá
trị của biến.

- ðưa tên biến vào danh sách các ñối tượng ñược chương trình quản lí.
- Trình dịch biết cách truy cập giá trị của biến và áp dụng thao tác thích
hợp cho biến.
3. integer, real, extended, longint.
4. D
5. C
1.

6. (1 + z ) * ( x + y / z ) /(a − 1 /(1 + x * x * x * x))
2a
7. a)
; b) abc ; c) b ; d) 2b
b
2
ac
a +b

a)
program bai8a;
uses crt;
crt;
var x,y:real;
kt:boolean;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
kt:=false;
if ((y<1) or (y=1)) and ((y>abs(x)) or (y=abs(x)))
then

kt:=true;
if kt then write('Diem vua nhap thuoc phan gach
cheo')
8.


Great by: Nguyễn Trọng Hoàng Email:

else write('Khong thuoc');
thuoc');
readln
end.
end.

VÝ Dô

b)
program bai8;
uses crt;
var x,y:real;
kt:boolean;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
kt:=false;
if (abs(y)<=1) and (abs(x)<=1) then
kt:=true;
if kt then write('Diem vua nhap thuoc phan gach
gach

cheo')
else write('Khong thuoc');
readln
end.
end.

VÝ Dô

Bài 9.
rogram bai9;
uses crt;
const pi= 3.1416;
var a,s:real;
begin
clrscr;
repeat
write('Nhap ban kinh duong tron: ');
readln(a);
if a<0 then writeln('Nhap lai!');
until a>0;
s:=(a*a*pi)/2;
write('Dien
write('Dien tichphan gach cheo: ',s:8:3);


Great by: Nguyễn Trọng Hoàng Email:

readln
end.
end.

VÝ Dô

Bài 10.
program bai10;
uses crt;
const g= 9.8;
var v, h:real;
begin
clrscr;
repeat
write('Nhap do cao: ');
readln(h);
if h<0 then writeln('Nhap lai!');
until h>0;
v:=sqrt(2*g*h);
write('Van toc:
toc: ',v:8:3);
readln
end.
end.

VÝ Dô


Great by: Nguyn Trng Hong Email:

Chơng 3:

C

ấu trúc rẽ nhánh và lặp

Bài Thực Hành Số 2
-----------------*****
-----------------*****----------------*****----------------1. SGK
2. Cõu lnh ghộp l mt cõu lnh ủc hp thnh t nhiu cõu lnh thnh
phn. Cõu lnh ghộp nhm thc hin thao tỏc gm nhiu thao tỏc thnh
phn. Mi thao tỏc thnh phn ng vi mt cõu lnh ủn hoc mt cõu lnh
ghộp khỏc. Cõu lnh ghộp l mt trong cỏc yu t ủ to kh nng chng
trỡnh cú cu trỳc. Cỏc cõu lnh ủt gia begin v end;
Bi 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;
N:=N+1;
End;
End;
Writeln('Tong S la: ',S:8:4);
Readln

End.
End.

Ví Dụ


Great by: Nguyễn Trọng Hoàng Email:

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

begin
z:=0.5;
writeln('tong can tim: ',z);
end;
end;
readln
end.
end.

readln(x,y);

VÝ Dô
b)
program bai4b
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(xsqrt(sqr(x-a)+sqr(xa)+sqr(x-b))begin


Great by: Nguyễn Trọng Hoàng Email:

z:=abs(x)+abs(y);
writeln('Z= ',z:3:3);
end
else
begin
begin
z:=x+y;
writeln('Z= ',z:3:3);
end;
end;
readln
end.
end.

VÝ Dô

Bài 5.
a)
Program bai5a;
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

',y:9:3);
:9:3);
Readln
End.
End.

VÝ Dô

b)
program
program bai5b;
bai5b;
uses crt;
var n:longint;
e,sh:real;
begin
clrscr;
sh:=1/2;
n:=2;


Great by: Nguyễn Trọng Hoàng Email:

e:=2+sh;
while sh>=2*1esh>=2*1e-16 do
begin
n:=n+1;
sh:=sh*(1/n);
e:=e+sh;
end;

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

VÝ Dô
Bài 6.
program
program Bai6;
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;
end;
readln
end.
end.

VÝ Dô
Bài 7.
program Bai7;

Bai7;
uses crt;
var b, c, n:byte;
begin
begin
clrscr;
repeat
write('Nhap tuoi
write('Nhap tuoi
if (b(b-c<25) or
writeln('Du lieu

cha: ');readln(b);
con: ');readln(c);
(b<2*c) then
khong hop le,nhap lai.');


Great by: Nguyễn Trọng Hoàng Email:

until (b(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',b-2*c,' nam tuoi cha se gap doi tuoi
con');
readln
end.
end.

VÝ Dô

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

VÝ Dô