Tin học Tin 11 : viết chương trình

[lâm chấn phong]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1. nhập một số nguyên dương n , tính n! biết n!=1.2.3.4....n
2. nhập a và số nguyên dương n. tính a mũ n
Các bạn giúp mình với , mình sắp thi rồi !!!

 

[Quang Trungg]

1. nhập một số nguyên dương n , tính n! biết n!=1.2.3.4....n
2. nhập a và số nguyên dương n. tính a mũ n
Các bạn giúp mình với , mình sắp thi rồi !!!

Program a_LUYTHUA_n;
Uses crt;
Var lt, a,n,z: real;
Begin
Clrscr;
Writeln(‘TINH a LUY THUA n: ’);
Writeln('----------------------------------');
Write('Nhap a = '); readln(a); Write('nhap n = '); readln(n);
If a>=0 then
Begin
z:=exp(n*ln(a));
Writeln('a ^ n = ',z: 4: 2);
End
Else
Writeln('Khong tinh duoc do a la so am');
Readln;
End.
Nguồn:Thầy cô

 

[ka1412]

Program a_LUYTHUA_n;
Uses crt;
Var lt, a,n,z: real;
Begin
Clrscr;
Writeln(‘TINH a LUY THUA n: ’);
Writeln('----------------------------------');
Write('Nhap a = '); readln(a); Write('nhap n = '); readln(n);
If a>=0 then
Begin
z:=exp(n*ln(a));
Writeln('a ^ n = ',z: 4: 2);
End
Else
Writeln('Khong tinh duoc do a la so am');
Readln;
End.
Nguồn:Thầy cô

exp là gì? ln là gì?

 

[ka1412]

b2:
uses crt;
var n,a,i:integer;
s:longint;
begin
clrscr;
write('Nhap a:');readln(a);
write('Nhap n:');readln(n);
s := 1;
for i := 1 to n do s:=s*a;
write('a^n=',s);
readln
end.