Viết hàm tính giá trị F(a) = a^4 Viết thân chương trình nhập vào 2 số nguyên x ,y tính và suất ra màn hình giá trị T = F(x) + F(y)
2 câu trả lời
program tinh_T;
uses crt;
var x,y,t:longint;
{---Ham---}
function F(a:longint):longint;
begin
F:=a*a*a*a;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
T:=F(x)+F(y);
write('T= ',t);
readln;
end.
program tinh_T;
uses crt;
var x,y,t:longint;
{---Ham---}
function F(a:longint):longint;
begin
F:=a*a*a*a;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
T:=F(x)+F(y);
write('T= ',t);
readln;
end.
chúc bn học tốt
