1. Trang chủ
  2. » Tất cả

Kiểm tra 15'' - Tin học 11 - Lê Anh Đào - Thư viện Đề thi & Kiểm tra

2 0 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Tiêu đề Kiểm tra 15''
Tác giả Lê Anh Đào
Chuyên ngành Tin học 11
Thể loại Đề thi
Định dạng
Số trang 2
Dung lượng 13,24 KB

Các công cụ chuyển đổi và chỉnh sửa cho tài liệu này

Nội dung

BT Viet chuong trinh dung chuong trinh con nhap vao 3 so nguyen Tinh tong, hieu, tich, thuong, tbc cua 3 so nguyen do program ctc3songuyen; var a,b,c byte; {CTC nhap} procedure nhap(var a,b,c byte); b[.]

Trang 1

BT Viet chuong trinh dung chuong trinh con nhap vao 3 so nguyen.Tinh tong, hieu, tich, thuong, tbc cua

3 so nguyen do

program ctc3songuyen;

var a,b,c:byte;

{CTC nhap}

procedure nhap(var a,b,c:byte);

begin

writeln('nhap 3 so nguyen');

readln(a,b,c);

end;

{CTC tinh tong}

function tong(a,b,c:byte):word;

begin

tong:=a+b+c;

end;

{CTC tinh tich}

function tich(a,b,c:byte):longint;

begin

tich:=a*b*c;

end;

{CTC tinh thuong}

function thuong(a,b,c:byte):real;

begin

thuong:=a/b/c;

end;

{CTC tinh tbc}

Trang 2

function tbc(a,b,c:byte):real;

begin

tbc:=(a+b+c)/3;

end;

{CTC tinh hieu}

function hieu(a,b,c:byte):integer;

begin

hieu:=a-b-c;

end;

{CT chinh}

begin

nhap(a,b,c);

writeln('tong 3 so',tong(a,b,c));

writeln('tich 3 so',tich(a,b,c));

writeln('thuong 3 so',thuong(a,b,c):10:2); writeln('tbc 3 so',tbc(a,b,c):10:2);

writeln('hieu 3 so',hieu(a,b,c));

readln;

end

Ngày đăng: 22/11/2022, 05:35

🧩 Sản phẩm bạn có thể quan tâm

w