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

0 bình luận về “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”

1. 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.

   Bình luận