Bài giảng Tin học 11 - Bài 11: Bài tập chương 3

Nhập vào một dãy số nguyên vào từ bàn phím cho đến khi gặp số 0 rồi tính tổng của các số dươngvà trung bình céng cña c¸c sè ©m... Liệt kê và đếm các số nguyên tố từ 2 đến N.[r]

Bµi 11

Bµi tËp c©u lÖnh rÏ nh¸nh

IF <§iÒu kiÖn> THEN <C©u lÖnh> ;

 IF <§iÒu kiÖn> THEN <C©u lÖnh1> ELSE <C©u lÖnh2>;



"#

 $%&'(

%(-Bài 4 <tr.51>: Tính

Nếu x2 + y2 ≤ 1 Thì z = x2 + y2

Hãy xác

định Input

và Output

của bài

toán!

Input: Nhập x, y từ bàn phím.

Output: Tính z.

Xác định các

biểu thức

điều kiện của

bài toán?

Nếu x2 + y2 > 1

và y ≥ x Thì z = x + y

Nếu x2 + y2 > 1

và y < x Thì z = 0.5

Program vd1;

Uses crt;

Var

z,x,y: Real;

BEGIN

Clrscr;

write(‘ Nhap vao x vµ y : ’);

readln(x,y);

if (sqr(x)+sqr(y)<=1) then z := sqr(x)+sqr(y);

if (sqr(x)+sqr(y)>1) and (y>=x) then z := x+y;

if (sqr(x)+sqr(y)>1) and (y<x) then z := 0.5;

Writeln(‘ Z = ‘, z:5:1);

Readln;

END

Em h·y khai b¸o biÕn cña bµi to¸n?

NÕu x2 + y2 ≤ 1

Th× Z = x2 + y2

vµ y ≥ x

Th× Z = x + y

NÕu x2 + y2 > 1

vµ y < x Th× Z = 0.5

In ra kÕt qu¶?

Mét sè bµi tËp vÒ lÖnh rÏ nh¸nh

× ®­a

ra 2 = two)

I 9 D   J
@5.!>.B! $@58!>8B! *@5F!>FBK 

Bài tập câu lệnh lặp

FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>;

FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh >;

STDQ<=UT  1Q

WHILE <Điều kiện> DO <Câu lệnh>;

XY

Lập chương trình nhập vào số n rồi tính

Các bước viết chương trình:

$8YZ7-Z.-+ [Y

$ -^<G<

! GG-YG-$G

`G#@B-

YZ7-aZ. #

YZY6]@6.B-

_ G@‘Y’!Yb8B-

`G#-%(

$AZ6.

…-K…

$G

YZN-aW`……W…W

YZY6…-'Y

`G#-%#

$8

Em hãy hoàn

thiện chương

trình sau để

tính tổng S

B1: Gán S:=0; N:=0

B2: Chừng nào S<300

thì thực hiện:

N:=N+1;

S:= S+ N*N;

B3: In kết quả N

S:=0; N:= 0;

Begin N:=N+1;

S:=S + N*N;

End;

Writeln(‘ N = ’,N);

Các bước: câu lệnh trong chương trình

+<=



o &/ +X“Tr¨m tr©u, tr¨m cá…”

$8YZ 7- Z .- + [Y

$ -^ <G<

! GG - YG -$ G

`G#@B-...

`G#@B-

YZ 7- aZ. #

YZY6]@6.B-

_ G@‘Y’!Yb8B-

`G# -% (...

`G# -% (

$AZ6.

…-K…