Lỗi pascal!!!

O

ochuotqb

tại sao bài pascal này của em chạy lại bị lỗi nhỉ: (tính n^m)
var i,n,s,m:integer;
begin
write('nhap n'); readln(n);
write('nhap m'); readln(m);
i:=1;
while i<m do
begin
s:=n*n;
end;
writeln('n^m=',s);
readln
end.
 
M

marik

ochuotqb said:
tại sao bài pascal này của em chạy lại bị lỗi nhỉ: (tính n^m)
var i,n,s,m:integer;
begin
write('nhap n'); readln(n);
write('nhap m'); readln(m);
i:=1;
while i<m do
begin
s:=n*n;
end;
writeln('n^m=',s);
readln
end.
Bấm để xem đầy đủ nội dung ...

điều kiện lặp i<m luôn đúng!

muốn dừng vòng lặp vô hạn nhấn ctrl + break
 
A

auauau97

Mình nghĩ 1 vài máy ấn Ctrl+break không hết đâu.
Mình cũng chẳng biết vì sao.
Bạn cho mình hỏi thêm nếu chương trình chính không có vòng lặp mà chương trình con có vòng lắp thì Crtl+break có được không ?
 
H

hongnhung.97

Hiện tại máy mình gặp lỗi nên không thể mở pascal lên được. Nên mình nói theo... cảm tính thui nha ^^
Em gặp lỗi pascal khi chạy chương trình thì không chạy được... em thoát mãi mà không thể nào ra nỗi... ai có cách gi để thoát ra khi chương trình chạy bị lỗi...
Bấm để xem đầy đủ nội dung ...
Bạn nói rõ lỗi này đi :-?. nếu nói thế này thực sự mình không giúp bạn được :-S

tại sao bài pascal này của em chạy lại bị lỗi nhỉ: (tính n^m)
var i,n,s,m:integer;
begin
write('nhap n'); readln(n);
write('nhap m'); readln(m);
i:=1;
while i<m do
begin
s:=n*n;
end;
writeln('n^m=',s);
readln
end.
Bấm để xem đầy đủ nội dung ...
Bạn cần sửa lại cái gán giá trị của i^^. Theo chương trình trên thì giá trị của i luôn luôn là 1 như thế điều kiện trong câu lệnh không được thay đổi ~~> Điều kiện không thể chuyển từ đúng sang sai [Trừ khi bạn nhập m nhỏ hơn hoặc bằng i thì may ra vừa vào cái thoát luôn được^^]
Mình nghĩ 1 vài máy ấn Ctrl+break không hết đâu.
Mình cũng chẳng biết vì sao.
Bạn cho mình hỏi thêm nếu chương trình chính không có vòng lặp mà chương trình con có vòng lắp thì Crtl+break có được không ?
Bấm để xem đầy đủ nội dung ...
Mình nghĩ là được ^^. [hiên tại máy mình không mở pascal được nên không giúp bạn được rồi :((]
sao mà pascal mình chạy F7,F8 lại tự out ra nhỉ. ........................
Bấm để xem đầy đủ nội dung ...
Bạn mình là Kiên [khá giỏi pascal] từng nói là có thể thay đổi các phím tắt của pascal... :-?. Chẳng biết phải không. Nhưng bạn thử kt lại về pascal xem có lỗi gì không + xem các phím tắt thử ^^.

P.s Sr mình không mở được pascal nên không thể giúp gì nhiều được... :-S Mình cũng không giỏi pascal :((

P.s Các bạn chú ý tiêu đề hơn nha^^.
 
H

huyenthoai_smile

hongnhung.97 said:

Bạn mình là Kiên [khá giỏi pascal] từng nói là có thể thay đổi các phím tắt của pascal... :-?. Chẳng biết phải không. Nhưng bạn thử kt lại về pascal xem có lỗi gì không + xem các phím tắt thử ^^.
.
Bấm để xem đầy đủ nội dung ...
Có phải tên là Nguyễn Tiến Trung Kiên ko ? :)
;)) nick yh là kien_coi..... :-/
Pm qua tin nhắn cá nhân.
 
N

nghiahung2000

auauau97 said:
Mình nghĩ 1 vài máy ấn Ctrl+break không hết đâu.
Mình cũng chẳng biết vì sao.
Bạn cho mình hỏi thêm nếu chương trình chính không có vòng lặp mà chương trình con có vòng lắp thì Crtl+break có được không ?
Bấm để xem đầy đủ nội dung ...
Chỉ có Turbo Và Free Pascal mới Ctrl+break dc thôi
 
N

nghiahung2000

ochuotqb said:
tại sao bài pascal này của em chạy lại bị lỗi nhỉ: (tính n^m)
var i,n,s,m:integer;
begin
write('nhap n'); readln(n);
write('nhap m'); readln(m);
i:=1;
while i<m do
begin
s:=n*n;
end;
writeln('n^m=',s);
readln
end.
Bấm để xem đầy đủ nội dung ...
bạn chỉ cần sửa lại thế này là xong:
while i<m do
begin
s:=sqr(n);
i:=i+1;

end;
 
You must log in or register to reply here.
Top Bottom