Câu hỏi:

19/08/2025 168 Lưu

Cho mảng T gồm 20 phần tử thuộc kiểu nguyên. Viết chương trình thực hiện các yêu cầu sau: 
       a. Viết thủ tục nhập giá trị cho mảng T từ bàn phím 
       b. Viết hàm tính giá trị trung bình của các phần từ vừa nhập 
       c. Viết hàm tính tổng các số chia hết cho X (X nhập từ bàn phím) 

Quảng cáo

Trả lời:

verified Giải bởi Vietjack

Lời giải:

Chương trình đề xuất                                       

   Program kiemtrahk2;                                                      
   type   mang=array[1..20] of integer;                                     
   var    n,i,x:integer;   T:mang; 
  a.                                          
   procedure nhap(var T:mang; n:integer);                                   
   begin                                                                     
         for i:= 1 to n do                                                    
               begin                                                        
                   write('T[',i,']='); 
                    readln(T[i]); 
                end; 
   end; 

b. 

function    trungbinh(var a:mang; n:integer):real;                      
   var tb:real;    stb:integer;                                            
   begin                                                                    
         stb:=0; 
               for i:= 1 to n do 
                     stb:=stb+T[i]; 
                     tb:=stb/n; 
                      trungbinh:=tb; 
        end; 

c. 

function tongchia(var T:mang;var x:integer; n:integer):real;                
 var schia:real;                                                           
begin                                                                      
      schia:=0; 
         for i:= 1 to n do 
               if T[i] mod x=0 then          schia:=schia+T[i]; 
         tongchia:=schia; 
   end; 
   begin                                                                   
          nhap(T,20);                                                         
          xuat(T,20); writeln;                                              
          write( ‘Trung binh la:’,trungbinh(T,20):6:4); writeln; 
          write( ‘nhap so nguyen x= ’);      readln(x); 
          write( ‘    Tong       cac      so    chia     het    cho’,x,’ 
   la:’,tongchia(T,x,20):6:2);readln 
     end. 

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

A. Đọc dữ liệu
B. Xem, bổ sung, sửa, xóa và không truy cập dữ liệu
C. Thêm dữ liệu
D. Xem, sửa, bổ sung và xóa dữ liệu

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

A. Microsoft Access
B. Oracle
C. Microsoft SQL server
D. Microsoft Excel

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

A. Có thể lưu lại cấu trúc và nhập dữ liệu sau
B. Không thể sửa lại cấu trúc
C. Tạo mẫu hỏi ngay
D. Phải nhập dữ liệu ngay

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

A. Khoá chính = {Mahs}
B. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi, Toan}
C. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi, Li}
D. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi}

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

A. Một bảng có thể có nhiều khoá chính
B. Mỗi bảng có ít nhất một khoá
C. Xác định khoá phụ thuộc vào quan hệ logic của các dữ liệu chứ không phụ thuộc vào giá trị các dữ liệu
D. Nên chọn khoá chính là khoá có ít thuộc tính nhất

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

A. Chỉ quan tâm bảo mật dữ liệu
B. Chỉ quan tâm bảo mật chương trình xử lí dữ liệu
C. Quan tâm bảo mật cả dữ liệu và chương trình xử lí dữ liệu
D. Chỉ là các giải pháp kĩ thuật phần mềm

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

A. Thiết bị công nghệ, phần mềm
B. Linh kiện điện tử,các vi mạch.
C. Ti vi màu, đồ chơi điện tử, catset.
D. Máy fax, điện thoại, mạng viba

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP