Giúp bài tập Tin học lớp 11!

[plum78]

Viết chương trình tính: ((1+3)x5+7)x9+...2n+1
Tức là cộng xong rồi nhân số lẻ
Giúp mình với!!!

[Farmer_Boy]

Tức là nhập số n vào hả bạn, giới hạn của n là bao nhiêu?

[plum78]

Đúng rồi bạn n<100. Bạn giúp mình với nhé!!!

[Farmer_Boy]

Uhm, đợi một lát nhé

[Farmer_Boy]

n<100 hả bạn, vậy thì giá trị lớn lắm đó

[plum78]

Thực ra thì mình cũng không nhớ rõ lắm. Vậy thì bạn giúp mình cho giới hạn nào cũng được.

[Farmer_Boy]

n<100 cũng dc thôi, chờ nhé

[Farmer_Boy]

bạn có bộ test không, để mình thử chương trình

[plum78]

Mình có cái Free Pascal gì đây nè. Năm nay mình mới lên 11 nên cũng không biết nhiều.

[Farmer_Boy]

không, ý mình là mấy cái bộ n để nhập vào chạy thử xem có ra kết quả đúng không như n=1 n=2 hay n=55....etc...

[plum78]

Tức là VD n=9 thì nó ra 56408 phải k?

[Farmer_Boy]

Uhm đúng rồi, bài của bạn nèk:



program so_le;
var
n,i:byte;
s:double;
c:string;
begin
repeat
writeln('CHUONG TRINH TINH GIA TRI BIEU THUC');
writeln('-------((1+3)*5+7)*9+...2n+1-------');
writeln;
write('-Nhap so n (n<100): ');
readln(n);
s:=1;
if n=0 then writeln('=> S= 1')
else for i:=1 to n do
begin
if (i mod 2)<>0 then s:=s+(2*i+1)
else s:=s*(2*i+1);
end;
writeln('=> S= ',s:10:2);
write('-Co tiep tuc nua khong (C/K): ');
readln(c);
writeln;
until upcase(c)='K';
writeln('-Nhan Enter de thoat');
readln
end.

[plum78]

Cảm ơn bạn nhiều lắm lắm!!!

[quangtq]

Giới hạn bao nhiêu vậy bạn? Lớn quá thì cài số lớn

[dongbo]

Chạy trên Free Pascal đi bạn :)

[auauau97]

Chạy trên Free Pascal đi bạn :)
Ừ chạy trên FP dùng kiểu int64 thì được nhiều số lắm !

[haplinhavxt]

Làm gì được nhiều lắm! 10^19 là tràn! Bài này bạn thử cài int64 rồi cho n= 10^5 đi xem nào! Tràn ngay lập tức!

[HGMinh95]

Làm gì được nhiều lắm! 10^19 là tràn! Bài này bạn thử cài int64 rồi cho n= 10^5 đi xem nào! Tràn ngay lập tức!
Đề bài chỉ yêu cầu n<100 thôi mà @@

[Farmer_Boy]

Ờ, nếu muốn thêm thì có kiểu extended