Nhận giải các đề Pascal và giảng giải về lập trình bằng pascal phổ thông!

**Mr Bi** · 01-04-2010, 07:29 PM

Mình lập ra topic này để nhần giảng giải cho những ai không hiểu j về lập trình pascal phổ thông. Và giải các bài tập về lập trình bằng Pascal.
Nếu ai thắc mắc j về việc lập trình bằng Pascal phổ thông thì vào đây nha.;)

View more random threads:

.

**p1c4ss0** · 01-10-2010, 10:58 AM

BT : Tính tổng
1. S = 100 + a/ 1! + a²/ 2! + a³/ 3! + ... + an/ n!

2. S = 2009 + 1 - 3 + 5 - 7 + ... + (-1)n-1(2n+1)

Nhờ Bạn giải hộ.
Kèm theo hình ảnh thì quá tốt.
Minh` cảm ơn ! " Chữ lớn là số Mũ do' Bạn "
.

**Mr Bi** · 01-10-2010, 09:19 PM

Bài 1:

S = 100 + aⁿ/n!

program tinhtong; \vt Tên chương trình
uses crt; \vt Sử dụng thư viện màn hình
var S,a,g:real; \vt Khai báo biến S,a và g kiểu số thực

i,n:integer; \vt Khai báo biến i và n kiểu số nguyên

begin

clrscr; \vt Lệnh xoá lệnh cũ sau khi thực hiện lệnh viết tắt của từ clear screen
write('Nhap gia tri a: ');
readln(a); \vt Chú ý khi nhập biến nên sử dụng lệnh readln để tránh bị lỗi nha
write('Nhap gia tri n: ');
readln(n);
If a=0 then writeln('Tong la: 100'); \vt Nếu a = 0 thì xuất ra tổng bằng 100
If n=0 then writeln('Tong la: 101');
If n>=1 then
begin

g:=1; \vt Khởi tạo biến g bằng 1
for i:=1 to n do g:=n*i; \vt Câu lệnh lặp for...do dùng để tính n!
S:=1; \vt Khởi tạo biến S bằng 1
S:=100+(exp(n*ln(a)))/g; \vt S = 100 + aⁿ/g
writeln('Tong la: ',S:10:10); \vt Xuất ra tổng S với 10 số nguyên, và 10 số sau số nguyên tức là: xxxxxxxxxx.xxxxxxxxxxxx

end;
If n<0 then writeln('So duoc nhap khong thich hop');
readln;

end. .

**p1c4ss0** · 01-10-2010, 10:03 PM

cam' on ban nhieu lam'.bai` 1 minh nhap xong va dung' het luon.nho` ban lam ho. minh bai 2 nha.cam' on nhieu`. .

**Mr Bi** · 01-10-2010, 10:35 PM

Bạn nên kiểm tra lại đề bài 2 xem có hợp lý không luôn nha!
S=2009+(-1)^n-1(2n-1) \vt????
Có thể do chương trình ở máy nhà bị lỗi, nên mình chuyển hướng làm. Bạn test thử luôn nha.

program tinhtong;
uses crt;
var S,a,b,c,d:real;

i,n:integer;

begin
clrscr;
write('Nhap gia tri n: ');
readln(n);
If n>1 then

begin
If (n mod 2 =0) then

begin
a:=0;
for i:=1 to n do
a:=a+exp(i*ln(1));
b:=0;
for i:=1 to n do
b:=b+2*i;
c:=b+1;
S:=2009+a*c;
writeln('Tong la: ',S:10:5);
end;

If (n mod 2 <>0) then

begin
a:=0;
for i:=1 to n do
a:=a+exp(i*ln(1));
d:= a*(-1);
b:=0;
for i:=1 to n do
b:=b+2*i;
c:=b+1;
S:=2009+d*c;
writeln('Tong la: ',S:10:5);
end;

end;

If n=0 then writeln('Tong la: 2008');
If n<0 then

begin
If (n mod 2 =0) then

begin
a:=0;
for i:=1 downto n do
a:=a+exp(i*ln(1));
b:=0;
for i:=1 downto n do
b:=b+2*i;
c:=b+1;
S:=2009+a*c;
writeln('Tong la: ',S:10:5);
end;

If (n mod 2 <>0) then

begin
a:=0;
for i:=1 downto n do
a:=a+exp(i*ln(1));
d:= a*(-1);
b:=0;
for i:=1 downto n do
b:=b+2*i;
c:=b+1;
S:=2009+d*c;
writeln('Tong la: ',S:10:5);
end;

end;

readln;
end. .

**p1c4ss0** · 01-11-2010, 08:45 PM

bai`so' 2 nay` dai` qua' nhi.cam' on ban nhieu nhieu nha. .

**p1c4ss0** · 01-11-2010, 09:19 PM

Không được rồi bạn à. Mình nhập mà nó báo lỗi ở "end'. Bạn xem lại giúp mình cái. .

**ButBi** · 01-12-2010, 07:16 AM

Nguyên văn bởi p1c4ss0

Không được rồi bạn à. Mình nhập mà nó báo lỗi ở "end'. Bạn xem lại giúp mình cái.

Bài giải rõ ràng như thế, bạn nên tự kiểm tra lại cú pháp, ý nghĩa của từng câu lệnh để từ đó rút kinh nghiệm tại sao mình làm chưa được. Chứ đừng động 1 tí là hỏi. Lỗi ở "end" thì bạn xem trước và sao "end" có thiếu hay thừa cái gì không nhé. .

**p1c4ss0** · 01-12-2010, 01:56 PM

minh` nhap dung' hoan toan nhu ban post len do.nhung no' bao' loi~ o "end." ay.loi~ hien len la :" ; ".minh` khong hieu lam'.du` j cung cam on ban rat nhjeu. .

**Mr Bi** · 01-12-2010, 06:14 PM

Trong câu lệnh If khi có 2 câu lệnh trở lên thì phải rào bằng cặp lệnh begin...end, và khi kết thúc câu lệnh thì nút end đó có dấu (;). Còn nếu bạn kết thúc bằng dấu chấm thì chương trình sẽ chấm dứt tại đó, hoặc chương trình sẽ báo lỗi cú pháp!

Nếu báo lỗi đó, lệnh end đó không phải là lệnh cuối cùng thì bạn thay dấu chấm bằng dấu ;
Bạn fix lại luôn nha!

Vui lòng lần sau viết chữ có dấu nha! .