Bài 18: Ví dụ về cách viết và sử dụng chương trình con

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đạt Tạ

Cho màng A gồm N phần tử thuộc kiểu nguyên dương (N<500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:

a)

Thủ tục nhập giá trị cho màng A từ bản phim.

b) Hàm kiểm tra số chia hết cho 3 hoặc 5.

Nguyễn Lê Phước Thịnh
9 tháng 4 2020 lúc 17:37

uses crt;
type mang=array[1..499]of integer;
var a:mang;
i,n,t,t1:integer;
{--------------------------------thu-tuc-nhap-----------------------}
procedure nhap;
begin
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
end;
{-------------------------------ham-kiem-tra-so-chia-het------------------------}
function ktch(var x:integer):boolean;
var kt:boolean;
begin
kt:=false;
if (x mod 3=0) and (x mod 5=0) then kt:=true;
ktch:=kt;
end;
{-------------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('nhap n='); readln(n);
nhap;
t:=0;
for i:=1 to n do
begin
t1:=a[i];
if ktch(t1) then t:=t+t1;
end;
writeln(t);
readln;
end.


Các câu hỏi tương tự
M Ạ C H N H A
Xem chi tiết
BT Thêm
Xem chi tiết
Veres Pro
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Trường
Xem chi tiết
 Nguyễn Xuân  Hậu
Xem chi tiết
Đoàn Vĩ Khang
Xem chi tiết
Nguyễn Thảo Nguyên
Xem chi tiết
Oanh Đỗ
Xem chi tiết