Một số kĩ thuật cơ bản của Pascal

[mylinh9006]

bạn ui mình nhờ bạn giúp chút việc nhé
mình muốn viết 1chương trình sử dụng unit. các chương trình con là, chuvitamgiac, chuvihinhchunhat, chuvitron, dientichtamgiac, dientichhinhchunhat, dientichtron .lưu với đuôi .TPU mình hok làm được bạn có biết thì bớt chút thời gian chỉ cho mình nhá.sẽ rất cảm ơn bạn

[chung49dhv]

Mấy phác giúp em mấy câu này cái
Câu1 : Sử dụng Repeat... Until để tính tổng S=1+1/2+1/4...+1/(2n).Với n nguyên dương được nhập từ bàn phím. Yêu cầu chương trình có kiểm tra tính hợp lệ
Câu 2 : Sử dụng While.... do để tính tổng S= 2+5...+(3n-1).Với n nguyên dương được nhập từ bàn phím. Yêu cầu chương trình có kiểm tra tính hợp lệ
Cẩu 3 : Viết chương trình tính tổng S=1-1/2+1/3+...+(-1)mũ n+1/n.Với n nguyên dương được nhập từ bàn phím. Yêu cầu chương trình có kiểm tra tính hợp lệ
Câu 4: Viết chương trình tính tổng
S= 2002+2+4+....2n
Với n nguyên dương được nhập từ bàn phím. Yêu cầu chương trình có kiểm tra tính hợp lệ
Câu 5:Viết chương trình nhập vào một số nguyên dương n, kiểm tra xem số đó có phải nguyên tố hay không
Câu 6: Viết chương trình tính và in ra n, với n nguyên dương ( n<=7) được nhập từ bàn phím.Yêu cầu chương trình có kiểm tra tính hợp lệ.
Câu 7: Viết chương trình cho phép nhập vào 1 số thực a ( 1<a<10). Hãy tìm số n nguyên dương nhỏ nhất sao cho 1+1/2+...1/n>= a.
Câu 8: Hãy viết chương trình tìm tất cả các số nguyên dương có 3 chữ số sao cho:
___ 3 3 3
abc= a +b +c [ a mũ 3 , b mũ 3 c mũ 3).

[hungkcdhv]

Bạn nói rõ hơn về các kiểm tra tính vi phạm đi ?

[tomatoxanh]

Câu1 : Sử dụng Repeat... Until để tính tổng S=1+1/2+1/4...+1/(2n).Với n nguyên dương được nhập từ bàn phím. Yêu cầu chương trình có kiểm tra tính hợp lệ
Bài giải:
Var n,i:Integer;
S:real;
Begin
Repeat
write('Nhap so nguyen duong n: ');readln(n);
Until n>0;
S:= 1; i := 1;
Repeat
S:= S + 1/(2*i);
i:=i+1;
Until i>n ;
Writeln('Tong S = ',S:10:2);
Readln;
END.

[=========> Bổ sung bài viết <=========]

Câu1 : Sử dụng Repeat... Until để tính tổng S=1+1/2+1/4...+1/(2n).Với n nguyên dương được nhập từ bàn phím. Yêu cầu chương trình có kiểm tra tính hợp lệ
Bài giải:
Var n,i:Integer;
S:real;
Begin
Repeat
write('Nhap so nguyen duong n: ');readln(n);
Until n>0;
S:= 1; i := 1;
Repeat
S:= S + 1/(2*i);
i:=i+1;
Until i>n ;
Writeln('Tong S = ',S:10:2);
Readln;
END.

Các bạn đưa nhiều bài tập nữa đi để mọi người tham khảo học tập

[kien_sph]

cho tui hoi loi 109 trong passcal la loi ji vay

[=========> Bổ sung bài viết <=========]

co ban nao joi jup tui voi
tui cam on nhieu

[laptop943hongha]

có ý kiến với chủ toppic đây là :1 số kĩ thuật cơ bản cua pascal cơ mà sao các bác toàn nói cao xa thía chẳng trách lắm lỗi xin hãy post các bài cơ bản nhưng không thể thiếu Như TÍNH TỔNG,TÍNH SỐ TRUNG BÌNH, TÍNH GIÁ TRỊ MAX,MIN cho mọi người mới bắt đầ với pascal có dịp học hỏi không chie học trên lớp thôi chụt hết.
Tiện thể cho em hỏi 1 vấn để em có 1 bài tấp sau :Cho danh sách liên kết đơn có con trỏ là L,mỗi nút chứa 1 số khác không. Lập giải thuật đếm số lượng các số trong danh sách.Sau khi tìm hiểu đề gặp đc 1 đoạn mã viết về giải thuật trên nhưng vấn đề em học pas chưa đc học C nên ko hiểu rõ vậy mong bác nào chỉnh sửa cho nó về ngôn ngữ mẹ để hộ em với
Chỉnh về pascal ạ
đoạn mã về giải thuật trên trong C:
int DemSoNode(DanhSach a)
{
int Dem=0;
Nut* q = a.NutDau;
while (q!=NULL)
{
Dem++;
q=q->Tiep;
}
return Dem;
}
http://ddth.com/showthread.php?t=331794
Mong mọi người giúp đỡ gấp

[nirvanat]

Tiếp nhé
+Hàm kiểm tra số nguyên tố,trả về true nếu số n là số nguyên tố
[code]
Function nt(n:integer):boolean;
Var
i:integer;
Begin
if n<=1 then begin
nt:=false;
Exit;
end;
for i:=2 to (n div 2) do
if (n mod i)=0 then begin
nt:=false;
Exit;
end;
nt:=true;
End;

Bác ji` ji` đó trong ddth vừa đưa ra cách tìm nhanh hơn nè. trích dẫn lại cho các bác các cô ^^!.
If k<2 then kt:=false
else if (k=2)or (k=3) then kt:=true
else If (k/6+1 mod 1=0)or (k/6-1 mod 1=0) then kt:=true;
Nghĩa là ngoài số 2 và 3 là 2 số nguyên tố, tất cả các số nguyên số sau đều có dạng 6k+(-)1 {k=1,2,...). viết như trên kia không bek có đúng không, ai kiểm tra giùm tui nha ^^!

[o0Tieu0Long0o]

Nếu nói inc(i) nhanh hay chậm hơn i:=i+1 thì dù có cái nào nhanh hay chậm thì cũng đâu đáng kể, chạy 1 tỉ lần mới nhận thấy sự khác biệt, trong khi có ct nào chạy i 1 tỉ lần không? Hiếm lắm mới có 1 bài như thế, trong khi thời gian tiết kiệm được chẳng là bao.

[=========> Bổ sung bài viết <=========]

Bác ji` ji` đó trong ddth vừa đưa ra cách tìm nhanh hơn nè. trích dẫn lại cho các bác các cô ^^!.
If k<2 then kt:=false
else if (k=2)or (k=3) then kt:=true
else If (k/6+1 mod 1=0)or (k/6-1 mod 1=0) then kt:=true;
Nghĩa là ngoài số 2 và 3 là 2 số nguyên tố, tất cả các số nguyên số sau đều có dạng 6k+(-)1 {k=1,2,...). viết như trên kia không bek có đúng không, ai kiểm tra giùm tui nha ^^!

Đây là tính chất ít được biết đến của số nguyên tố đó bạn, yên tâm tính chất này đúng.

[tomatoxanh]

Bác ji` ji` đó trong ddth vừa đưa ra cách tìm nhanh hơn nè. trích dẫn lại cho các bác các cô ^^!.
If k<2 then kt:=false
else if (k=2)or (k=3) then kt:=true
else If (k/6+1 mod 1=0)or (k/6-1 mod 1=0) then kt:=true;
Nghĩa là ngoài số 2 và 3 là 2 số nguyên tố, tất cả các số nguyên số sau đều có dạng 6k+(-)1 {k=1,2,...). Có ai chứng minh tính chất này để mọi người cùng học tập với!

[letrungcuongdtc]

kiem tra nguyen to theo e chach nay le the best:

for i:=2 to trunc(sqrt(N)) do if N mod i=0 then
begin
kt:=false;
exit;
end;

[=========> Bổ sung bài viết <=========]

anh+chi nao biet chia keo cho N nguoi k?em chi biet chia cho 2 nguoi ah,k man nguyen.chiua cho N nguyoi ta dung thuat toan "sinh nhị phân"

nếu day co M phan tu thi vong for se chay 2^N-1;
cach tao day "sinh nhị phân" :
for i:=1 to M do
if S[i]='0' then {S la kieu string}
begin
S[i]:='1';
for j:=i+1 to M do S[j]:='0';
break;
end;
Lê Trung Cường hst Đặng Trần Côn

[=========> Bổ sung bài viết <=========]

ua sao co space ma no van thang duot vay troi