Viết chương trình nhập M phần tử các số nguyên B1, B2,…,BM. Đếm các phần từ thỏa điều kiện (11 < Bi < 33). Yêu cầu: Phân tích bài toán thành các thao tác nhỏ. Viết chương trình theo hướng lập trình cấu trúc (chương trình con).
2 câu trả lời
Phân tích bài toán:
input: M phần tử các số nguyên B1, B2,…,BM
output: Đếm các phần từ thỏa điều kiện (11 < Bi < 33)
b1: nhập m
b2: nhập mảng
b3: dùng for..do duyệt từng phần tử xem có thỏa mãn điều kiện hay không
b4: xuất kết quả
chương trình:
uses crt;
var b: array[1..100] of integer;
m,i,d: integer;
procedure nhap_dem;
var b: array[1..100] of integer;
i,m,d: integer;
begin
write ('nhap m: '); readln (m);
for i:=1 to m do
begin
write ('nhap phan tu thu ',i,': '); readln (b[i]);
if (b[i]>11) and (b[i]<33) then d:=d+1;
end;
end;
begin
clrscr;
nhap_dem;
writeln ('co ',d,' phan tu thoa man dieu kien');
readln;
end.
B1: Nhập M
B2: Nhập mảng gồm M phần tử
B3: Duyệt phần tử trong mảng và kiểm kiểm tra có phù hợp yêu cầu không. Nếu phù hợp thì tăng biến đếm thêm 1.
B4: ghi ra màn hình.
Program Hello;
var m,i,d:longint;
b:array[1..100000] of longint;
procedure nhap;
begin
readln(m);
for i:= 1 to m do
read(b[i]);
end;
procedure dem;
begin
for i:= 1 to m do
if (b[i] < 33) and (b[i] > 11) then
d:= d + 1;
end;
begin
nhap();
dem();
writeln(d);
readln;
readln;
end.
