Tin học pascal: cấu trúc lặp

[Lê Thị Hàn]

[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.

Bài 9: Nhập vào số a và số nguyên dương n, tính a mũ n.
moi nguoi oi, day la bai cuoi cung minh can lam, ai biet giup minh voi a

 

[Sơn Nguyên 05]

Bài 9: Nhập vào số a và số nguyên dương n, tính a mũ n.
moi nguoi oi, day la bai cuoi cung minh can lam, ai biet giup minh voi a

Code
Write(‘nhap a=‘); readln(a);
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do s:=s*a;
Writeln(s)

 

[chungocha2k2qd]

Code
Write(‘nhap a=‘); readln(a);
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do s:=s*a;
Writeln(s)

Đầu tiên phải gán S trước chứ bạn

 

[Sơn Nguyên 05]

Đầu tiên phải gán S trước chứ bạn

Ừ nhỉ!
Gán s:=0 trước lệnh For ...

 

[chungocha2k2qd]

Ừ nhỉ!
Gán s:=0 trước lệnh For ...

Hình như gán s:=1 chứ bạn

 

[Lê Thị Hàn]

S:=0
Write(‘nhap a=‘); readln(a);
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do s:=s*a;
Writeln(s)
nhu nay dung chua a?

 

[Sơn Nguyên 05]

Hình như gán s:=1 chứ bạn

Code
Write(‘nhap a=‘); readln(a);
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do s:=s*a;
Writeln(s)

Lại nhầm nhọt. Sửa lại luôn!
Wrrite('nhap a = '); readln(a);
Write('nhap n = '); Readln(n);
s:=1;
For i:=1 to n do s:=s*a;
writeln(s);

 

[Nguyễn Tùng Ân]

Lại nhầm nhọt. Sửa lại luôn!
Wrrite('nhap a = '); readln(a);
Write('nhap n = '); Readln(n);
s:=1;
For i:=1 to n do s:=s*a;
writeln(s);

S:=0
Write(‘nhap a=‘); readln(a);
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do s:=s*a;
Writeln(s)
nhu nay dung chua a?

Hình như gán s:=1 chứ bạn

Ừ nhỉ!
Gán s:=0 trước lệnh For ...

Sai hết rồi, phần khai báo của người ta đâu ạ :v
Program luythua;
Uses crt;
Var a,b,i : integer;
S : longint;
Begin
clrscr;
Write('Nhap co so: ');Readln(a);
Write('Nhap so mu: '); Readln(b);
S:=1;
For i:= 1 to b do S:=S*a;
Writeln('Ket qua: ',S);read(S);
End.
Mặc dù tính lũy thừa nhưng mà y chang à, nhớ sửa lại nha, nộp bài này là 0 điểm đó

 

[Sơn Nguyên 05]

Sai hết rồi, phần khai báo của người ta đâu ạ :v
Program luythua;
Uses crt;
Var a,b,i : integer;
S : longint;
Begin
clrscr;
Write('Nhap co so: ');Readln(a);
Write('Nhap so mu: '); Readln(b);
S:=1;
For i:= 1 to b do S:=S*a;
Writeln('Ket qua: ',S);read(S);
End.
Mặc dù tính lũy thừa nhưng mà y chang à, nhớ sửa lại nha, nộp bài này là 0 điểm đó

Có một lỗi nhỏ là S có cần read ở dòng màu đỏ không nhỉ!
Mình chỉ ghi code chính thôi!

 

[chungocha2k2qd]

Sai hết rồi, phần khai báo của người ta đâu ạ :v
Program luythua;
Uses crt;
Var a,b,i : integer;
S : longint;
Begin
clrscr;
Write('Nhap co so: ');Readln(a);
Write('Nhap so mu: '); Readln(b);
S:=1;
For i:= 1 to b do S:=S*a;
Writeln('Ket qua: ',S);read(S);
End.
Mặc dù tính lũy thừa nhưng mà y chang à, nhớ sửa lại nha, nộp bài này là 0 điểm đó

Làm phần quan trọng nhất là đc rồi bạn

 

[Nguyễn Tùng Ân]

Có một lỗi nhỏ là S có cần read ở dòng màu đỏ không nhỉ!
Mình chỉ ghi code chính thôi!

mình thử rồi chạy được mà, có điều theo đề bài phải chình S thành biến integer, mình xài longint là tại mình tính nguyên âm luôn, phải sửa lại chỗ đó

 

[Lê Thị Hàn]

mình thử rồi chạy được mà, có điều theo đề bài phải chình S thành biến integer, mình xài longint là tại mình tính nguyên âm luôn, phải sửa lại chỗ đó

bạn ơi để longint đc mà??

 

[Nguyễn Tùng Ân]

bạn ơi để longint đc mà??

đề bài để là số nguyên dương nhưng mà phạm vi của longint lại có số âm

 

[siroclc]

đề bài để là số nguyên dương nhưng mà phạm vi của longint lại có số âm

Integer cũng có phạm vi là số âm bạn nhé.
Nếu muốn cho n luôn là số nguyên dương thì phải thêm lệnh repeat..until vào để n luôn là giá trị dương.