viết hàm hoặc thủ tục tính S=a^n+b^m; s1=1+2+3+...n; s2=1/2+1/3+...1/100
1 câu trả lời
Var s2: real; s,s1:longint;
i:integer; a,b,n,m:integer;
procedure nhap;
begin
Write(‘nhap a va b= ‘); readln(a,b);
Write(‘nhap n va m= ‘); readln(n,m);
end;
function luythua:longint;
begin
Luythua:=exp(n*ln(a))+ exp(m*ln(b));
end;
function s1:longint;
begin
s1:=0;
for i:=1 to n do s1:=s1+n;
end;
function s2:real;
begin
s2:=0;
for i:=2 to 100 do s2:=s2+1/i;
end;
begin
clrscr;
nhap;
Writeln(‘luy thua= ‘,luythua)
Writeln(‘s1=‘,s1);
Write(‘s2=‘,s2:5:2);
readln
end.
Câu hỏi trong lớp
Xem thêm
