Kiểm tra 15'
Chia sẻ bởi Lê Anh Đào |
Ngày 26/04/2019 |
57
Chia sẻ tài liệu: Kiểm tra 15' thuộc Tin học 11
Nội dung tài liệu:
BT Viet chuongtrinh dung chuongtrinh con nhapvao 3 so nguyen.Tinh tong, hieu, tich, thuong, tbccua 3 so nguyen do
program ctc3songuyen;
vara,b,c:byte;
{CTC nhap}
procedurenhap(vara,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 tinhtich}
functiontich(a,b,c:byte):longint;
begin
tich:=a*b*c;
end;
{CTC tinhthuong}
functionthuong(a,b,c:byte):real;
begin
thuong:=a/b/c;
end;
{CTC tinhtbc}
functiontbc(a,b,c:byte):real;
begin
tbc:=(a+b+c)/3;
end;
{CTC tinhhieu}
functionhieu(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.
program ctc3songuyen;
vara,b,c:byte;
{CTC nhap}
procedurenhap(vara,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 tinhtich}
functiontich(a,b,c:byte):longint;
begin
tich:=a*b*c;
end;
{CTC tinhthuong}
functionthuong(a,b,c:byte):real;
begin
thuong:=a/b/c;
end;
{CTC tinhtbc}
functiontbc(a,b,c:byte):real;
begin
tbc:=(a+b+c)/3;
end;
{CTC tinhhieu}
functionhieu(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.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Lê Anh Đào
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)