Tin học Bài tập pascal

[ka1412]

Check số phần tử trong file ntn?

 

[trà nguyễn hữu nghĩa]

Check số phần tử trong file ntn?

vẫn không hiểu

 

[ka1412]

vẫn không hiểu

Check các số trong file input ấy

 

[ka1412]

@trà nguyễn hữu nghĩa a tính giai thừa của các số cao ntn (khoảng 1000+)

 

[trà nguyễn hữu nghĩa]

@trà nguyễn hữu nghĩa a tính giai thừa của các số cao ntn (khoảng 1000+)

dùng string thôi. Cho các số thành string rồi nhân lại là được
Coi lại Code ở trên đấy....có cách tính giai thừa của số cao.

 

[ka1412]

dùng string thôi. Cho các số thành string rồi nhân lại là được
Coi lại Code ở trên đấy....có cách tính giai thừa của số cao.

Vấn đề là e đọc không hiểu :v
Thôi để gg

 

[trà nguyễn hữu nghĩa]

Vấn đề là e đọc không hiểu :v
Thôi để gg

nhân kiểu như nhân của lớp 4 ấy
nhân từ sau tới trước rồi cộng lại.

 

[ka1412]

nhân kiểu như nhân của lớp 4 ấy
nhân từ sau tới trước rồi cộng lại.

Thôi e hiểu rồi.
Không hiểu sao hôm nay đọc code mà đầu loạn cả lên

 

[trà nguyễn hữu nghĩa]

Thôi e hiểu rồi.
Không hiểu sao hôm nay đọc code mà đầu loạn cả lên

lâu r k làm là quên hết.
Hồi học C# một thời gian còn không biết Pascal là gì mà

 

[ka1412]

@trà nguyễn hữu nghĩa a gán file vào bài của a là xong :v
Nhưng sao a không gán ?

 

[trà nguyễn hữu nghĩa]

@trà nguyễn hữu nghĩa a gán file vào bài của a là xong :v
Nhưng sao a không gán ?

thao tác trên file chán!
cứ bật qua kia nhập rồi lại bật để đọc

 

[ka1412]

thao tác trên file chán!
cứ bật qua kia nhập rồi lại bật để đọc

Thì làm xong r là add thoi =)

 

[trà nguyễn hữu nghĩa]

Thì làm xong r là add thoi =)

Tất cả cũng vì "Lười"

 

[ka1412]

Tất cả cũng vì "Lười"

Lười sometimes gud tho

 

[trà nguyễn hữu nghĩa]

Lười sometimes gud tho

dốt tiếng Anh

 

[thoaqueens@gmail.com]

bài cũng dễ thôi !!
code như sau:
uses crt;
var n,i,gt,s:longint;
BEGIN
clrscr;
repeat
write('nhap n='); readln(n);
if (n<=1) or (n>=2000) then writeln('nhap lai:');
until (n>1) and (n<2000);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln('giai thua cua n la:',gt);
s:=0;
while gt<>0 do
begin
s:=s+(gt mod 10);
gt:=gt div 10;
end;
write('tong giai thua cua n la:',s);
readln;
END.

 

[Bùi Thành Công]

while gt<>0 do
begin
s:=s+(gt mod 10);
gt:=gt div 10;
end;

ko ổn bạn ạ, sau khi thực hiện xong đoạn này thì gt = 0

 

[thoaqueens@gmail.com]

Bạn ơi đề hỏi là tổng giai thừa đâu có hỏi giai thừa đâu làm gì. Có muốn thì ban đầu gán gt:=d rồi thế vào là xong

 

[Bùi Thành Công]

Bạn ơi đề hỏi là tổng giai thừa đâu có hỏi giai thừa đâu làm gì. Có muốn thì ban đầu gán gt:=d rồi thế vào là xong

à mình nhầm tí
mà bài của bạn vẫn chưa đk, bạn thử test lớn như n=199 xem, máy ko tính đk đâu

 

[thoaqueens@gmail.com]

Dễ thôi mà. Lúc đầu ban khai báo st:=string; sau đó bạn chuyển xâu qua số là được. val(st,n,code), với biến
code bạn khai báo là integer. như thế là bạn nhập bao nhiêu cũng được tùy thuộc vào tốc độ máy tính bạn thôi.