[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

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

[vantuongvan]

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

[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 à

[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 . 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]

Originally Posted by quocviet0908

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