Pascal !!!

[quocviet0908]

Tình hình là mấy cái Pascal oải quá, anh em nào pro vào giúp đỡ mình với, sau này đãi 1 chầu thịt chó mắm tôm:haha:

Bài 1: Nhập vào 1 số nguyên dương N và kiểm tra nó có phải là số nguyên tố hay ko?
Mở rộng: nhập vào 1 số N bất kì và xuất tất cả các số nguyên tố từ 2->N

Bài 2: Xuất ra màn hình:
a/
$ $ $ $ $
$ $ $ $
$ $ $
$ $
$

b/
*
* * *
* * * * *
* * * * * * *

Giúp mình nhé! Có lẽ mình còn hỏi anh em dài dài :D

[vantuongvan]

đang dịch tả thíe mịe, chờ hết dịch tớ giúp cho :D

[pvthanh100]

1a


var i,n:interger;

function ngto(n:integer):boolean;
var i,n:integer;
begin
ngto:=false;
if n<2 then exit;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then exit;
ngto:=true;
end;

begin
writeln("nhap n :");
readln(n);
if ngto(n)=true then
Writeln(n," la so nguyen to")
else
Writeln(n," ko phai la so nguyen to")
end;
end
1b

var i,n:interger;

function ngto(n:integer):boolean;
var i:integer;
begin
ngto:=false;
if n<2 then exit;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then exit;
ngto:=true;
end;

begin
writeln("nhap n :");
readln(n);
writeln("cac so ng to tu 2 toi ",n," la : ");
for i:=2 to n do
if ngto(n)=true then write(n:3)
end;
end

2a
var i,j,n:integer;
begin
for i:=5 downto 1 do
for j:=1 to i
write("*");
end;
writeln;
end;
end
2b
tương tự thế nhưng em quên mịe nó cái hàm space của Pascal rồi

[huythach83]

Hàm space là hàm gì á? trước giờ mình toàn chơi kiều write("* "); không à :D

[Global Hell]

lol, đang học THCB trong trường ĐH nè, pascal giống bác lun ^^
bài của bác pvthanh100 thì chắc đúng rồi nhưng theo em đc ông thầy dạy thì chưa đc học lệnh exit nên mấy chỗ đó thay bằng break
thứ 2 nữa là string trong pascal đc quy định trong dấu ' và ' chứ ko phải là " và " đâu bác ạ, với lại thêm cái for ... to ... thì bọn em đc học chứ còn downto cũng chưa đc học nốt ^^, nhưng nói chung 1 bài tóan luôn có nhiều cách giải, giải cách nào cũng ko thành vấn đề ^^

[quocviet0908]

Cám ơn bro pvthanh100 trước nhe ^^

[tm02019]

Ma'y lession na`y ma` ho?i thi` cha'c cha'n co`n ho?i da`i da`i:D . Day la` ma'y ba`i ta.p can ba?n ma`, bro chi.u kho' do.ng na~o suy nghi~ di, mai mo't mo'i tu duy to't ca'c thua.t toa'n duo.c, chu' la.p tri`nh ma` ho?i kie?u na`y thi` kho' hie?u ba`i la'm.:)

[Global Hell]

lập trình nó cần cái khiếu với cái tư duy logic

[pvthanh100]

Cám ơn bro pvthanh100 trước nhe ^^
bro nhớ sửa mấy cái lỗi ngữ pháp mà Global Hell nói. Thú thật là hơi nhầm 1 tí vì lâu rồi ko xài.
@huythach83 : Ví dụ trong VB6 có hàm Space$(50) = 50 dấu cách liền nhau thì Pascal cũng có 1 hàm như thế. Dùng hàm có sẵn cho tiện chứ thêm câu lệnh for để add 50 cái dấu trống thì hơi rườm rà khó chịu

[beatƖemania]

Mấy bài căn bản này là để tập làm quen với tư duy lập trình mà, cóp source thế này thì làm sao tư duy được :D

[Global Hell]

bọn lớp em học pascal mỗi lần đến kì kiểm tra là mấy chục đứa như 1, y chang bài của em :rofl: hài vật, có điều là bọn nó chép chuyền tay nên cứ bị sửa dần dần và điểm cũng đi xuống từ từ =))

[hell_badlyboy]

Cám ơn bro pvthanh100 trước nhe ^^
cái này đang học ở chương trình lớp 11 mà:D , ko làm bài được à:look_down:

[Global Hell]

cái này đang học ở chương trình lớp 11 mà:D , ko làm bài được à:look_down:
thế à, vậy mà lên ĐH mình học y chang nó :D

[Core4_Extreme_Quad_tv]

bro phải xác định số nguyên tố là wo61 như thế nào
theo em nhớ thì nó chỉ chia hết cho 1 và chia hết cho chính nó
toGH: downto là biến đếm dếm dc thôi mà anh, còn vụ thoát ct thì là end.

[beatƖemania]

bro phải xác định số nguyên tố là wo61 như thế nào
theo em nhớ thì nó chỉ chia hết cho 1 và chia hết cho chính nó
toGH: downto là biến đếm dếm dc thôi mà anh, còn vụ thoát ct thì là end.
Thoát 1 vòng lặp là Break.
Thoát 1 function/procedure là Exit.
Thoát cả program là Halt.

[halohcm]

Các bạn cho mình hỏi bài này làm như thế nào nhé. Các bạn có thể chỉ nói thuật toán thôi ko cần viết code cho dài dòng đâu. Thank trước nha.

Nhập vào số nguyên n (ví dụ n=5), rồi in ra màn hình dãy số như sau:

[Global Hell]

bro phải xác định số nguyên tố là wo61 như thế nào
theo em nhớ thì nó chỉ chia hết cho 1 và chia hết cho chính nó
toGH: downto là biến đếm dếm dc thôi mà anh, còn vụ thoát ct thì là end.
downto thì là đếm ngược lại, anh chỉ bảo là trong trường chưa đc học thôi mà:D

[Global Hell]

Các bạn cho mình hỏi bài này làm như thế nào nhé. Các bạn có thể chỉ nói thuật toán thôi ko cần viết code cho dài dòng đâu. Thank trước nha.

Nhập vào số nguyên n (ví dụ n=5), rồi in ra màn hình dãy số như sau:
1 3 6 10 15
2 5 9 14 19
4 8 13 18 22
7 12 17 21 24
11 16 20 23 25
in ra dãy số thế mình ko hiều lắm, có quy luật gì ko ?
hiểu rồi, +1, 2, 3, 4, 5 hả, rối vậy ta :oh:

[Global Hell]

k:=1
For i:=0 to n-1 do
Begin
k:=k+i
s:=k
For j:=2 to n+1 do
Begin
write(s,' ');
s:=s+j;
End;
writeln;
End;
phải ko nhể:pudency:
/nhầm quy luật rồi

[vantuongvan]

cái này đang học ở chương trình lớp 11 mà:D , ko làm bài được à:look_down:
tụi lớp 11 giờ khá thật, mình lên DH mới biết pascal là gì, mà giờ thì cũng quên luôn roài :)

[minhtri_595]

tụi lớp 11 giờ khá thật, mình lên DH mới biết pascal là gì, mà giờ thì cũng quên luôn roài :)
chương trình mới hình như có pascal chứ chường trình cũ học visual bacsic thì phải
hồi mình học lớp 10 anh mình lớp 11 học VB đến khi mình lên 11 thì học pascal.

[Global Hell]

cấp 3 mình học tin học văn phòng, word và excel

[minhtri_595]

cấp 3 mình học tin học văn phòng, word và excel
lớp 12 em cũng học word với excel nữa
sẵn tiện lấy chứng chỉ nghề luôn

[Global Hell]

Các bạn cho mình hỏi bài này làm như thế nào nhé. Các bạn có thể chỉ nói thuật toán thôi ko cần viết code cho dài dòng đâu. Thank trước nha.

Nhập vào số nguyên n (ví dụ n=5), rồi in ra màn hình dãy số như sau:
sorry bác nhưng làm 1 hồi cái dòng cuối ko theo quy luật gì hết :surrender:

[beatƖemania]

in ra dãy số thế mình ko hiều lắm, có quy luật gì ko ?
hiểu rồi, +1, 2, 3, 4, 5 hả, rối vậy ta :oh:
Cái này là dãy tăng theo hàng chéo đó mà.
Làm bằng 1 cái mảng 2 chiều.
Nghĩ đại 1 cách đơn giản:

uses crt;
var
a:array[1..10,1..10]of integer;
i,j,k,l,n:integer;
begin
l:=1;
n:=5;

for i:=1 to n do
begin
j:=i;
k:=1;
while (j>=1)and(k<=i) do
begin
a[j,k]:=l;
j:=j-1;
k:=k+1;
l:=l+1;
end;
end;

for i:=2 to n do
begin
j:=n;
k:=i;
while (j>=1)and(k<=n) do
begin
a[j,k]:=l;
j:=j-1;
k:=K+1;
l:=l+1;
end;
end;

for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;

readln;
end.

[pvthanh100]

sorry bác nhưng làm 1 hồi cái dòng cuối ko theo quy luật gì hết :surrender:
Cách giải như beatmania
Quy luật đây :

[Chip]

Thoát 1 vòng lặp là Break.
Thoát 1 function/procedure là Exit.
Thoát cả program là Halt.
Đây là 3 thủ tục hết sức nên tránh vì nó làm vỡ cấu trúc chương trình. Bạn nào quan tâm đến "lập trình có cấu trúc" khắc biết.

[quocviet0908]

Tại sao ko chạy đc Turbo Pascal trên XP vậy mọi người :sosad:

[bl4ckdr4g00n]

nếu vậy bro chuyển sang borland pascal thì chạy đc
ps: mấy bài cơ bản này phải cố mà nghĩ chứ

[quocviet0908]

Mới làm quen có hiểu mo tê gì đâu :haha:
Đang chuyển qua Free Pascal :D

[Yukumi]

Mới làm quen có hiểu mo tê gì đâu :haha:
Đang chuyển qua Free Pascal :D

Chuye^?n me. le^n Java viet applet vo'i la`m Java Servlet di.. Pascal voi' cha? Free passcal lam e'o gi :sogood:

[Matrix]

:stick:

//Srr vi ko go duoc TV.

[quocviet0908]

:stick:

//Srr vi ko go duoc TV.

Pa này spam trắng trợn quá :D
Em còn đi học mấy bro ạ

[DarkPhoenix]

Chuye^?n me. le^n Java viet applet vo'i la`m Java Servlet di.. Pascal voi' cha? Free passcal lam e'o gi :sogood:

bác đang làm cái này ah :)

[codochi]

DarkPhoenix ơi, người ở avatar tên là Quỳnh phải ko?

[halohcm]

ps: mấy bài cơ bản này phải cố mà nghĩ chứ
mình cũng cố rồi đấy chứ, nhưng mới vỡ lòng học lập trình mà, chưa thành thạo cho lém:byebye:

[Matrix]

mình cũng cố rồi đấy chứ, nhưng mới vỡ lòng học lập trình mà, chưa thành thạo cho lém:byebye:

Đây là những bài vỡ lòng nên phải cố lên bro. Lúc trước tớ cũng tốn biết bao nhiêu thời gian cho những bài này.
Nếu mấy bài đó khó quá thì bro cứ làm từ đơn giản đến phức tạp.
1. In n dấu *, n nhập từ bàn phím. Vd n=5, *****
2. Tương tự câu 1, nhưng in vertical:
__________*
__________*
__________*
__________*
__________*
3. Rồi đến in hình chữ nhật cạnh n,m
4. Hình vuông, cạnh n
5. Hình tam giác cân: chiều cao n, đáy m
6. ......

/Nhắc lại: Vỡ lòng nên phải tự tìm tòi.

[Global Hell]

Cách giải như beatmania
Quy luật đây :
ôi trời, ra là thế, lúc đầu cứ tưởng nó cộng tăng dần lên, nhưng đến dòng thứ 5 thì tịt :D gà quá

[gthn]

ôi, pascal. ký ức buồn thời SV lại về.

Mười thằng đi học 9 thằng ngu. May mà qua cái môn khỉ gió này ngay phát đầu tiên, nhưng bạn bè thì rủ nhau học lại hết cả. Biết thế gạch bài thi rồi học lại ho vui.

[Global Hell]

có ai biết âm tần của 7 nốt nhạc ko nhỉ?

[beatƖemania]

có ai biết âm tần của 7 nốt nhạc ko nhỉ?

//Google ra được một bài khá đầy đủ của một bro bên diendantinhoc.com:

MÔ PHỎNG NỐT NHẠC
Theo âm luật, một khuông nhạc đầy đủ gồm 3 quãng 8 (thấp, trung, cao). Mỗi quãng 8 có 7 nốt chính: C, D, E, F, G, A, B (đô, rê, mi, fa, son, la, si). Xen giữa những nốt chính là 5 nốt thăng (#). Như vậy trong một quãng khuông nhạc đầy đủ sẽ bao gồm:

C1→C1#→D1→D1#→E1→F1→F1#→G1→G1#→A1→A1#→B1→
C→C#→D→D#→E→F→F#→G→G#→A→A#→B→
C1→C1#→D1→D1#→E1→F1→G1→G1#→A1→A1#→B1

Cũng theo âm luật thì cao độ các nốt sắp theo một cấp số nhân, hơn nữa cao độ của cùng một nốt trong 2 quãng 8 kế tiếp chênh nhau 2 lần. Vậy thì cao độ (tần số) của nốt sau bằng cao độ nốt trước nhân với 21/12 (căn bậc 12 của 2)

Vậy xuất phát từ nốt C (đô trung) có cao độ là 512(hz) bạn sẽ tính ra các nốt khác một cách dễ dàng!

Về trường độ lấy nốt móc ba (t = 100 mili giây) làm đơn vị ta có
móc kép = 200 ms = 2t
móc kép. = 300 ms = 3t
móc đơn = 400 ms = 4t
móc đơn. = 600 ms = 6t
nốt đen = 800 ms = 8t
nốt đen. = 1200 ms =12t
nốt trắng = 1600 ms =16t
nốt trắng. = 2400 ms =24t
nốt tròn = 3200 ms =32t

[halohcm]

ah nhân tiện cho mình hỏi cuốn sách nào về bài tập lập trình mà hay hay 1 tí ko, mình định mua 1 cuốn nhưng chẳng biết nên mua cuốn nào bây giờ, ra nhà sách thì 1 rừng sách ở đó làm sao mà chọn được đây.
Thank các bồ trước

[beatƖemania]

Lập trình cơ bản thì cứ làm mấy bài tập bình thường ở lớp cho là đủ rồi.
Chuyên sâu vào thuật toán thì kiếm cuốn Những viên ngọc lập trình hay Cẩm nang thuật toán vân vân

[quynguyen]

ah nhân tiện cho mình hỏi cuốn sách nào về bài tập lập trình mà hay hay 1 tí ko, mình định mua 1 cuốn nhưng chẳng biết nên mua cuốn nào bây giờ, ra nhà sách thì 1 rừng sách ở đó làm sao mà chọn được đây.
Thank các bồ trước

Bạn có thể tham khảo:
+ Bài tập Pascal tập 1,2 (Nguyễn Quý Khang - Kiều Văn Hưng, NXB Đại học Quốc gia Hà Nội)
+ Bài tập lập trình Turbo Pascal 7.0(PGS.TS Bùi Thế Tâm, NXB Giao thông vận tải)
Học Pascal tạo lập tư duy logic, cấu trúc dữ liệu và thuật toán, bạn có thể mua thêm cuốn Cấu trúc dữ liệu của Đỗ Xuân Lôi.
Còn Java nó là thằng lập trình hướng đối tượng, chú ý về đối tượng, lớp và thừa kế, khác với Pascal nhiều.
Chúc bạn học tốt.

[LoveNF]

Nhân tiện các bác làm giúp em đoạn code của bài toán này :
"Có 1 người viết 5 lá thư bỏ vào 5 phong bì được viết sẵn tên và địa chỉ, tính xác suất để cả 5 người nhận đều ko nhận được đúng thư của mình ":stick:
/Thanks trước nha :D

[nhatnguyen2791]

Em cũng đang học mí ngón Pascal này,chật vật wé,sợ dưới trung bình wé.có Bác nào có tài liệu tham khảo hem ném cho em cái hen,Thanks trước!!!!!!!!:byebye: :byebye: :byebye:

[AMDcian]

Đang học C++, mấy kinh nghiệm hồi PT về Pascal toi sạch :sosad:

[beatƖemania]

Đang học C++, mấy kinh nghiệm hồi PT về Pascal toi sạch :sosad:
Giống nhau cả mà lmao, quan trọng ở cái tư duy lập trình thôi :D

[halohcm]

Đang học C++, mấy kinh nghiệm hồi PT về Pascal toi sạch :sosad:
tui cũng đang học C++ nè, hồi lớp 11 có học pascal mờ bi giờ chỉ còn lưu lại vài cú pháp của nó thôi:oh: :oh: :oh:

[LoveNF]

Nhân tiện các bác làm giúp em đoạn code của bài toán này :
"Có 1 người viết 5 lá thư bỏ vào 5 phong bì được viết sẵn tên và địa chỉ, tính xác suất để cả 5 người nhận đều ko nhận được đúng thư của mình ":stick:
/Thanks trước nha :D
Ko ai giúp mình hết àh, đang cần gấp lắm :((

[p3_hip_kut3]

ngồy trong giờ toàn chép lại mấy kái thấy vik trên bảng thôy.... kó hiểu rỳ đâu :">... ghét học tin 11 :(

[K10]

ngồy trong giờ toàn chép lại mấy kái thấy vik trên bảng thôy.... kó hiểu rỳ đâu :">... ghét học tin 11 :(
học giỏi thế :surrender:

[p3_hip_kut3]

học giỏi thế :surrender:
chỷ giỏi chém gió vs trêu thầy thôy ạ :x... thầy giáo trẻ chưa vợ =))

[LoveNF]

ngồy trong giờ toàn chép lại mấy kái thấy vik trên bảng thôy.... kó hiểu rỳ đâu :">... ghét học tin 11 :(
Cái này là do ko biết giải bài toán này nên ko biết viết nó trên Pascal như thế nào, chia rất nhiều trường hợp, kể cả lấy phần bù nữa, khó quá ko nghĩ ra được :oh: :stick:

[K10]

chỷ giỏi chém gió vs trêu thầy thôy ạ :x... thầy giáo trẻ chưa vợ =))
giống mình thế nhở
khác mỗi cái: cô giáo trẻ chưa chồng :D

[p3_hip_kut3]

Cái này là do ko biết giải bài toán này nên ko biết viết nó trên Pascal như thế nào, chia rất nhiều trường hợp, kể cả lấy phần bù nữa, khó quá ko nghĩ ra được :oh: :stick:
giải toán bt thỳ đc nhưng ko biết chuyển sang Pascal thôy :(

[LoveNF]

giải toán bt thỳ đc nhưng ko biết chuyển sang Pascal thôy :(
Hay vậy, nói trước ông thầy dạy Toán lớp mình ông giải tới hơn 40 trường hợp đấy :D

[Reltih]

@LoveNF: Lâu rồi tui ko dùng Pascal, và cũng ko có Pascal trên máy nên tui giải dùm bro bằng C#, bro đọc và convert sang Pascal cũng dễ dàng thôi.

Cách làm như sau:

Đặt mỗi người một con số từ 1 tới 5, và cấp cho mỗi người một con địa chỉ cũng từ 1 tới 5, nếu người thứ i dính địa chỉ i thì coi như là trùng địa chỉ.

Từ đó:
1. Phát sinh hết các trường hợp có thể (5! =120)
2. Kiểm tra xem trường hợp nào có ít nhất một người bị trùng địa chỉ (trùng khi người thứ i trúng số thứ i)
3. Chia ra là xong

Cái này gọi là vét cạn (tát nước bắt cá)

Đoạn code (Tui làm gấp nên chưa test nhưng kỹ, ra kết quả là 44/120)
static void Main(string[] args)
{
int sai = 0;
int tongCong = 0;
double kq=0;
for (int i1 = 1; i1 <= 5; i1++)
for (int i2 = 1; i2 <= 5; i2++)
for (int i3 = 1; i3 <= 5; i3++)
for (int i4 = 1; i4 <= 5; i4++)
for (int i5 = 1; i5 <= 5; i5++)
if (i1 != i2 && i1 != i3 && i1 != i4 && i1 != i5 &&
i2 != i3 && i2 != i4 && i2 != i5 &&
i3 != i4 && i3 != i5 &&
i4 != i5)
{
Console.Write(i1 + " " + i2 + " " + i3 + " " + i4 + " " + i5);
tongCong++;
if (i1 != 1 && i2 != 2 && i3 != 3 && i4 != 4 && i5 != 5)
{
sai++;
Console.WriteLine(" *");
}
else
Console.WriteLine();


}
kq = (double)sai / tongCong;
Console.WriteLine("Tong cong co: " + tongCong + " truong hop");
Console.WriteLine("Trong do co " + sai + " truong hop khong trung dia chi");
Console.WriteLine("Sac xuat la: " + sai + "/" + tongCong + " = " + kq);
Console.ReadLine();
}

Và đây là kết quả:
1 2 3 4 5
1 2 3 5 4
1 2 4 3 5
1 2 4 5 3
1 2 5 3 4
1 2 5 4 3
1 3 2 4 5
1 3 2 5 4
1 3 4 2 5
1 3 4 5 2
1 3 5 2 4
1 3 5 4 2
1 4 2 3 5
1 4 2 5 3
1 4 3 2 5
1 4 3 5 2
1 4 5 2 3
1 4 5 3 2
1 5 2 3 4
1 5 2 4 3
1 5 3 2 4
1 5 3 4 2
1 5 4 2 3
1 5 4 3 2
2 1 3 4 5
2 1 3 5 4
2 1 4 3 5
2 1 4 5 3 *
2 1 5 3 4 *
2 1 5 4 3
2 3 1 4 5
2 3 1 5 4 *
2 3 4 1 5
2 3 4 5 1 *
2 3 5 1 4 *
2 3 5 4 1
2 4 1 3 5
2 4 1 5 3 *
2 4 3 1 5
2 4 3 5 1
2 4 5 1 3 *
2 4 5 3 1 *
2 5 1 3 4 *
2 5 1 4 3
2 5 3 1 4
2 5 3 4 1
2 5 4 1 3 *
2 5 4 3 1 *
3 1 2 4 5
3 1 2 5 4 *
3 1 4 2 5
3 1 4 5 2 *
3 1 5 2 4 *
3 1 5 4 2
3 2 1 4 5
3 2 1 5 4
3 2 4 1 5
3 2 4 5 1
3 2 5 1 4
3 2 5 4 1
3 4 1 2 5
3 4 1 5 2 *
3 4 2 1 5
3 4 2 5 1 *
3 4 5 1 2 *
3 4 5 2 1 *
3 5 1 2 4 *
3 5 1 4 2
3 5 2 1 4 *
3 5 2 4 1
3 5 4 1 2 *
3 5 4 2 1 *
4 1 2 3 5
4 1 2 5 3 *
4 1 3 2 5
4 1 3 5 2
4 1 5 2 3 *
4 1 5 3 2 *
4 2 1 3 5
4 2 1 5 3
4 2 3 1 5
4 2 3 5 1
4 2 5 1 3
4 2 5 3 1
4 3 1 2 5
4 3 1 5 2 *
4 3 2 1 5
4 3 2 5 1 *
4 3 5 1 2 *
4 3 5 2 1 *
4 5 1 2 3 *
4 5 1 3 2 *
4 5 2 1 3 *
4 5 2 3 1 *
4 5 3 1 2
4 5 3 2 1
5 1 2 3 4 *
5 1 2 4 3
5 1 3 2 4
5 1 3 4 2
5 1 4 2 3 *
5 1 4 3 2 *
5 2 1 3 4
5 2 1 4 3
5 2 3 1 4
5 2 3 4 1
5 2 4 1 3
5 2 4 3 1
5 3 1 2 4 *
5 3 1 4 2
5 3 2 1 4 *
5 3 2 4 1
5 3 4 1 2 *
5 3 4 2 1 *
5 4 1 2 3 *
5 4 1 3 2 *
5 4 2 1 3 *
5 4 2 3 1 *
5 4 3 1 2
5 4 3 2 1
Tong cong co: 120 truong hop
Trong do co 44 truong hop khong trung dia chi
Sac xuat la: 44/120 = 0.366666666666667

[USRobotics]

Mình đang cần tìm bản PASCAL TURBO for WIN, có bạn nào có ko ạ ? :)
nó là TPW 1.5 :D
thanks