Tin học Lập trình Pascal !

[storm5906]

Híc ai bít giúp mjnh 2 bài này với:
1. Viết chương trình kiểm tra tính nguyên tố của một số tự nhiên N.
2. Viết chương trình xác định 1 số tự nhiên bất kì N là số chính phương hay không.
Mình đang cần gấp mng nhận được câu trả lời càng sớm càng tốt.

Bài 1:

PROGRAM Bai_1;
VAR     n,i:integer;
        kt:boolean;
BEGIN
        Write('Nhap so n : '); Readln(n);
        If n<2 then kt:=False
        Else kt:=True;
        For i:=2 to (n div 2) do
                If n mod i = 0 then
                        Begin
                                kt:=False;
                                Break;
                        End;
        If kt=True then Writeln('So ',n,' la so nguyen to!')
        Else Writeln('So ',n,' khong phai la so nguyen to!');
        READLN;
END.

Bài 2:

PROGRAM Bai_2;
VAR     n,x:integer;
BEGIN
        Write('Nhap so n : '); Readln(n);
        If n<0 then
                Begin
                        Writeln('So ',n,' khong phai la so chinh phuong!');
                        Readln;
                        Exit;
                End;
        x:=round(sqrt(n));
        If sqr(x)=n then Writeln('So ',n,' la so chinh phuong!')
        Else Writeln('So ',n,' khong phai la so chinh phuong!');
        READLN;
END.

 

[tuyetphan]

Trời ai đó giúp mình bài này với!!!!
1. [TEX]S= 1+2.z+3.x^2+ 4.z^3+.....+(n+1).z^n[/TEX]
2.[TEX]\sum_{n=2}^(150) \sqrt[2]{n^2 +1}.\frac{2n}{n-4}[/TEX]

 

[chini106]

Nhân tiện, mọi người làm thử bài này xem:

Nhập 3 số nguyên a, b, c. Không dùng cấu trúc If , hãy tìm số lớn nhất trong 3 số đó.

uses crt;
var a, b, c, max : byte;
begin
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Nhap c:'); readln(c);
max := a;
while max < b do max := b;
while max < c do max := c;
write(max);
readln
end.

 

[storm5906]

uses crt;
var a, b, c, max : byte;
begin
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Nhap c:'); readln(c);
max := a;
while max < b do max := b;
while max < c do max := c;
write(max);
readln
end.

Tốt lắm. Vậy là box Tin lại có thêm một nhân vật cao thủ xuất hiện rồi! Làm thử bài này xem: Nhập vào 3 số a,b,c. Chỉ dùng cấu trúc Case, hãy tìm số lớn nhất trong 3 số đó.

 

[chini106]

Cấu trúc Case là cấu trúc gì ) Chjn chỉ là dân nghiệp dư thoy, bik những gì trong ct

 

[storm5906]

Cấu trúc Case là cấu trúc gì ) Chjn chỉ là dân nghiệp dư thoy, bik những gì trong ct

Cấu trúc Case là cấu trúc Case ... of đó. Làm thử xem đi! &gt;

 

[dung_92bn]

bạn nào giúp mjnh thêm câu này với:
Viết chương trình đưa ra xếp loại học sinh dựa vào điểm trung bình.
Cần gấp nha bà con mjnh rất cảm ơn mọi người

 

[storm5906]

bạn nào giúp mjnh thêm câu này với:
Viết chương trình đưa ra xếp loại học sinh dựa vào điểm trung bình.
Cần gấp nha bà con mjnh rất cảm ơn mọi người

Bài làm:

- Nếu muốn có thể chỉnh lại số điểm cho phù hợp.

PROGRAM Bai_tap;
USES    CRT;
VAR     diem:real;
BEGIN
        Clrscr;
        Write('Nhap diem trung binh cua hoc sinh : '); Readln(diem);
        If diem>8 then Writeln('Hoc sinh xep loai gioi!')
        Else
                If diem>6 then Writeln('Hoc sinh xep loai kha!')
                Else
                        If diem>4 then Writeln('Hoc sinh xep loai trung binh!')
                        Else
                                If diem>2 then Writeln('Hoc sinh xep loai yeu!')
                                Else Writeln('Hoc sinh xep loai kem!');
        READLN;
END.

 

[dung_92bn]

Hic lại phải làm phiền mọi ngưwif rùi giúp mjnh bài này với :
Viết chương trình tính diện tích hình tròn có bán kính R=3m mjnh cần gấp rùi mai mjnh phải nộp mong mọi người giúp nha.
@ storm5906: bạn ơi bài bạn giúp mjnh sai rùi huhuhuhuh((((

 

[dung_92bn]

Hic khong ai giúp mjnh àh????? Mình cần gấp lém rùi huhuhuhu

 

[chini106]

Hic lại phải làm phiền mọi ngưwif rùi giúp mjnh bài này với :
Viết chương trình tính diện tích hình tròn có bán kính R=3m mjnh cần gấp rùi mai mjnh phải nộp mong mọi người giúp nha.
@ storm5906: bạn ơi bài bạn giúp mjnh sai rùi huhuhuhuh((((

var r : byte;
S: real;
begin
write('Nhap ban kinh: ');
readln(r);
S:= r*r*3.14;
write(S);
readln
end.

 

[laban95]

e cho mình tham gia với!!!!! nhưng mình mới học lớp 8 à. đọc mấy bài này hem hỉu j hết ( bùn wá

 

[storm5906]

var r : byte;
S: real;
begin
write('Nhap ban kinh: ');
readln(r);
S:= r*r*3.14;
write(S);
readln
end.

Theo mình thì r cũng nên cho kiểu real chứ nhỉ???
...........................................................................

@dung_92bn: Bài đó không sai đâu! Nếu có sai là sai cái thang điểm thôi!

 

[tungvip95]

cac cao thu giup minh lam bai nay
nhap vao 2 so a,b( trong do a<b,a>0,b<=1000)
a)viet chuong trinh de dem' cac so fibonacci nam giua 2 so a,b
b) yeu cau nhu cau a nhung khong dc dung mang
Ai ko lam duoc cam on em phat nhe, ko thi anb-p

các cao thủ giúp mình làm bài này
nhập vào 2 số a,b (trong đó a<b, a>b, b<=1000)
a)viết chương trình để đếm các số fibonacci nằm giữa 2 số a,b
b) yêu cầu như câu a nhưng không được dùng mảng
Ai không làm được cảm ơn em phạt nhé, ko thi anb-p

 

[storm5906]

cac cao thu giup minh lam bai nay
nhap vao 2 so a,b( trong do a<b,a>0,b<=1000)
a)viet chuong trinh de dem' cac so fibonacci nam giua 2 so a,b
b) yeu cau nhu cau a nhung khong dc dung mang
Ai ko lam duoc cam on em phat nhe, ko thi anb-p

PROGRAM Bai_tap;
USES    CRT;
VAR     a,b,i,dem:integer;
        f1,f2,tam:integer;
BEGIN
        Clrscr;
        Write('Nhap so nguyen a : '); Readln(a);
        Write('Nhap so nguyen b : '); Readln(b);
        If (a<=0) or (b>=1000) or (a>b) then
                Begin
                        Writeln('a hoac b khong thoa man dieu kien de bai!');
                        Readln;
                        Exit;
                End;
        f1:=1;
        f2:=1;
        dem:=1;
        For i:=a to b do
                Begin
                        tam:=f2;
                        f2:=f1+f2;
                        f1:=tam;
                        If f2<=b then dem:=dem+1;
                End;
        Writeln('Tu ',a,' den ',b,' co ',dem,' so thuoc day Fibonacci.');
        READLN;
END.

 

[sakura_3282]

èo.....sao em mở hok dc zậy???? link turbor passcal em nhấn tải về mà nó hiện ra toàn là gì hok !!!

 

[meo_beo89]

vấn đề là đệ ko hiểu cái lệnh

CanGoBack:= not Free[x]

cái lệnh đó làm nhiệm vụ gì?
thank cho câu trả lời của mọi người

 

[storm5906]

Dường như bài của meo_beo89 thuộc phần đồ thị (chu trình Euler). Tiếc là phần này mình chưa học

 

[meo_beo89]

Dường như bài của meo_beo89 thuộc phần đồ thị (chu trình Euler). Tiếc là phần này mình chưa học

thực ra ko cần huynh đọc hết cả bài
chỉ cần huyn để ý đến cái lệnh

CanGoBack :=not Free[x]

mà theo trên thì CanGoBack là một hàm boolean

còn Free[x] là một biến boolean

làm sao có thể gán một hàm bởi một biến(đệ đoán thế ko biết lệnh này ẩn ý của nó là gì)

vì đệ cần dịch bài đó sang C++ mà trong khi chưa học pascal ->rất phức tạp->mong dc giúp đỡ

 

[storm5906]

thực ra ko cần huynh đọc hết cả bài
chỉ cần huyn để ý đến cái lệnh

CanGoBack :=not Free[x]

mà theo trên thì CanGoBack là một hàm boolean

còn Free[x] là một biến boolean

làm sao có thể gán một hàm bởi một biến(đệ đoán thế ko biết lệnh này ẩn ý của nó là gì)

vì đệ cần dịch bài đó sang C++ mà trong khi chưa học pascal ->rất phức tạp->mong dc giúp đỡ

Sao lại không được chứ??? Vì lệnh CanGoBack := not Free[x] đang nằm trong phần khai báo hàm CanGoBack nên vấn có thể gán như thường . Nhiều khi còn gán "độc" hơn như trong đệ quy nữa kìa!


Và điều cuối cùng: đừng kêu mình bằng "huynh", mình nhỏ hơn bạn đó .