Thứ sáu, 17/05/2024
IMG-LOGO

Câu hỏi:

30/07/2023 20

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) 

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 trả lời này có hữu ích không?

0

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

Câu 1:

Xét về mặt cấu trúc, thuộc tính trường (field) trong mô hình dữ liệu quan hệ được hiểu là

Xem đáp án » 30/07/2023 2,068

Câu 2:

Phân biệt ưu và nhược điểm của hệ CSDL tập trung và hệ CSDL phân tán?

Xem đáp án » 29/07/2023 196

Câu 3:

Cho các thao tác sau : 
B1: Tạo bảng      B2: Đặt tên và lưu cấu trúc    B3: Chọn khóa chính cho bảng   B4: Tạo liên kết 
Khi tạo lập CSDL quan hệ ta thực hiện lần lượt các bước sau:

Xem đáp án » 29/07/2023 181

Câu 4:

Hiệu ứng động trong bài trình chiếu là gì? Có mấy loại hiệu ứng động? Hãy nêu sự khác nhau của các loại hiệu ứng động đó.

Xem đáp án » 29/07/2023 161

Câu 5:

Sau khi tạo liên kết giữa các bảng trong mô hình dữ liệu quan hệ, có thể thực hiện công việc nào dưới đây?

Xem đáp án » 30/07/2023 97

Câu 6:

Trong Access, để khai báo số điện thoại01267777777 ta dùng kiểu dữ liệu nào ?

Xem đáp án » 30/07/2023 88

Câu 7:

Yêu cầu: Nhập vào số nguyên dương n (0<n<=1000). In ra một hình vuông cạnh n gồm các dấu $.
Dữ liệu: Một dòng ghi số n duy nhất.
Kết quả: một hình vuông gồm nxn dấu $.(C++ nha)

Xem đáp án » 30/07/2023 86

Câu 8:

Cách viết phân số trong WPS Office

Xem đáp án » 30/07/2023 79

Câu 9:

Để chọn các mẫu định dạng có sẵn ta chọn dải lệnh nào? trình bày các bước thực hiện?

Xem đáp án » 30/07/2023 79

Câu 10:

Viết chương trình nhập vào 1 số nguyên kiểm tra xem số đó có chia hết cho 3 hay không và là số chẵn hay số lẻ

Xem đáp án » 29/07/2023 75

Câu 11:

Cho số nhị phân 10001101, số thập phân tương đương là

Xem đáp án » 30/07/2023 74

Câu 12:

Hãy cho biết cách :

+ Mở 1 bảng có tên HỌC_SINH trong CSDL

+ Xoá 1 bản ghi trong bảng HOC_SINH

+ Xắp xếp cột tên theo thứ tự giảm dần trong bảng HỌC SINH

Xem đáp án » 30/07/2023 72

Câu 13:

Thuật ngữ “quan hệ” dùng trong hệ CSDL quan hệ là để chỉ đối tượng:

Xem đáp án » 30/07/2023 72

Câu 14:

So sánh mạng không dây và mạng có dây

Xem đáp án » 30/07/2023 66

Câu 15:

Viết đoạn lệnh Python nhập một dãy số nguyên có n phần tử

Xem đáp án » 30/07/2023 66