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

0 bình luận về “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. 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.

   Bình luận