ROOM mới dành cho những người mới........

**Trần Lê Minh** · 26-06-2008 23:00

program songuyentol;
uses crt;
var n,i:integer;
m:real;
begin
clrscr;
write(' nhap so nguyen duong n ');
readln(n);
if n=1 then
writeln(' so ',n,' la so nguyen to')
else
begin
m:=sqrt(n);
i:=2;
while (n mod i <> 0) and (i<=n) do
i:=i+1;
if (i>m) and (n>=2) then
writeln(' so ',n,' la so nguyen to')
else
writeln(' so ',n,' ko la so nguyen to');
end;
readln;
end.
-----------------------------------------------------------
Máy báo là 'operand do not match operator'.

**BeatOfAngle** · 27-06-2008 00:27

sau lệnh If của pascal chắc phải có ()
dãy fibonaci là dãy mà phần tử sau bằng tổng 2 phần tử trc,dãy dc bắt đầu từ 0 và 1
0 1 1 2 3 5 8 13....

**Mr.Bo_Aloha** · 27-06-2008 09:45

Được gửi bởi bld

viết ctrình in dãy fibonaci , tính lũy thừa x mũ y ,
(bạn nào biết CTC rồi thì đệ quy nha ),
các member không biết đệ quy thì giải bình thường càng hay !

bài này hình như hơi khó đó ông bld!!ông hãy giải thích cái đề cho rõ trước khi ra đề chứ!!room này là của beginer mà!!

chào các beginer mới vào room

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

Được gửi bởi Trần Lê Minh

Máy báo là 'operand do not match operator'.

Lê Minh này!nếu bạn chưa biết thì tôi nhắc lại! các đoạn code phải viết trong 2 chử code và /code (ở trong dấu []) như thế sẽ dễ dàng sửa lỗi và còn giúp bạn học cách trình bày!!
bài của bạn rắc rối quá nên tôi không bik sửa từ đâu nữa!!
nếu 2 tôi thì tôi sẽ làm bài đó như sau!

Code:

ues crt ;
label loi ;
var  ngto:boolean ;
     a,i:integer ;
begin
        clrscr ;
        writeln(' nhap so ');readln(a) ;
        ngto:=false ;
        if a<2 then goto loi ;
        for i:=2 to trunc(sqrt(a)) do
        if a mod i = 0 then goto loi ;
        ngto:=true ;
        loi :
        if ngto=true writeln(' day la so nguyen to ') Else
             writeln(' khong phai la so nguyen to') ;
        readln
end.

**bld** · 27-06-2008 11:21

bld cũng là super beginner mà ,sau khi tham gia room 1 thời gian thì mới nâng cao được 1 chút ,
dãy fibonaci là dãy có số đứng sau bằng tổng của 2 số đứng trước ,
nhưng 2 phần tử đầu tiên của dãy là 1 và 1
=> 1,1,2,3,5,8,13,21,... , bài này nếu không đệ qui được (mà bld thì bó tay với đệ quy) thì cũng có thể giải theo cách thông thường

bài x mũ y thì các bạn mới biết qua pascal làm cũng ok ,

quan trọng nhất là phân tích đề bài, có dược thuật toán là ok thôi
bạn nào làm được thì nhớ pót lên nha! (học hỏi là chính mà!)

chúc các bạn thành công

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

à, còn bài nguyên tố mình xin đóng góp nha:

Code:

var: i:integer;a:integer;
begin
  a:=2;
  readln(i);
  while (a<=sqrt(i)) and (i mod a <>0) do
    a:=a+1;
  if a>sqrt(i) then writeln('la so nguyen to')
               else writeln('khong la so nguyen to ');
end.
F9 ; ctrl+F9;

**Trần Lê Minh** · 27-06-2008 12:10

cho mình hỏi kiểu vô hướng liệt kê là gì vậy ?

thanks !

Cho mình hỏi thêm hướng xác định một số là số chính phương.

thanks !

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

CHo mình hỏi bạn bld. "a:=a+1;" thì a là cái gì vậy. Mình ko hiểu.
như i=15 thì a=3. tại sao vậy ?

Thật ngớ ngẩn nhưng xin các bạn chỉ giùm.

**cogaihalan123** · 27-06-2008 13:38

bài số nguyên tố của bạn Trần Lê Minh rắc rối quá, ko biết sai ở đâu nữa. Nhưng Lê Minh chú ý đoạn code: if n=1 then write('so',n,' la so nguyen to) là hơi nhầm lẫn đó, vì 1 ko là số nguyên tố và cũng ko phải hợp số. Cogaihalan chỉ góp ý thế thôi ~^^~
Theo tài liệu của cogaihalan có thì kiểu liệt kê dc định nghĩa bằng cách liệt kê tất cả cá giá trị của kiểu thông qua các tên do người lập trình đặt ra và danh sách các giá trị trên dc đặt trong cặp ngoặc đơn ().
ví dụ: Type days=(sun, mon, tue, wed, thu, fri, sat);
khi đó ta có thể khai báo biến như sau
Var homqua, homnay:days;
Hoặc ta có thể khai báo trực tiếp với mô tả kiểu dữ liệu như sau:
Var days

sun, mon, tue, wed, thu, fri, sat);
Có thể thực hiện phép gán trên các giá trị kiểu liệt kê
homqua:=sun;
Các giá trị của các kiẻu liệt kê có thể so sánh với nhau theo quy định: giá trị đứng trước nhỏ hơn giá trị đứng sau. Ta chỉ sử dụng toán tử so sánh cho kiểu liệt kê và cũng là toán tử duy nhất dùng cho kiểu này.
Các hàm chuẩn áp cho kiểu liệt kê:
- Hàm ord(x): cho thứ tự trị của số đối x trong kiểu liệt kê
Theo như cách khai báo trên, ord(sun)=0, ord(mon)=1.
- Hàm fred(x): cho giá trị đứng trước của đối số trong kiểu liệt
kê
- Hàm succ(x): cho trị đi sau đối số trong kiểu liệt kê

Không thể nhập, xuất đối với kiểu liệt kê. Giá trị thuộc kiểu liệt kê thường dc dùng để làm chỉ số cho vòng lặp for, các trường hợp chọn lựa trong lệnh case, chỉ số cho các mảng (array).

Bài x mũ y của bld cho cogaihalan giải như sau

Code:

  uses crt;
var x,lt:real;
    y,i:integer;
begin
     clrscr;
     write('nhap co so x=');readln(x);
     write('nhap mu y=');readln(y);
     lt:=1;
     for i:=1 to y do
         lt:=lt*x;
     write(x:0:2,' mu ',y,'=',lt:0:2);
readln
end.

chắc ko sai đâu ~^^~

a:=a+1 là câu lệnh để tăng giá trị của a lên 1 đv

**bld** · 27-06-2008 14:03

cô gái làm đúng 100% ,

bạn trần lê minh:
hi hi, ai mới bắt tay vô học pascal thì cũng thế thôi ;
bld phải mất cả tuần mới hiểu được cái a:=a+1 này đấy
lí do là a không bằng a+1 (hehe)
nhưng để đọc và hiểu được bài của người khác thì thực hành là quan trọng nhất
các bài giải rất khó hiểu ,tự bắt tay vào làm , đến lúc bí thì đọc bài của người khác , lúc đó tự nhiên hiểu ra à ,
vì thế các bạn muốn tiến bộ thì cứ pót bài lên, ngắn ,dài ,hay , dở thì điều quan trọng nhất là học hỏi mà .

còn ... dãy fibo có ai giải ko?

**cogaihalan123** · 27-06-2008 14:50

dãy fibonaci cũng phải có giới hạn cho nó chứ bld ơi, nếu ko máy chạy hoài in cũng hổng hết
Có thể sửa đề thành thế này ko: viết ct in dãy fibonaci tới số nguyên n

**timberlake** · 27-06-2008 15:54

Được gửi bởi bld

hello ,timberlake

Code:

for i:=2 to sốlớn do 
     begin 
          if solon mod i = 0 then u:=u+[i]{u:=[]};
          if i in u then 
                         begin 
                              while (a<= sqrt(i)) and (i mod a <>0) do
                                   a:=a +1 ; 
                              if a> sqrt(i) then uc:=uc+[i] ;
                         end;
     end;
for i:= 2 to sónhỏ div 2 do 
     if (i in uc) and (sonhỏ mod i =0)
                then  
                    begin
                         writeln(i){in ra các ước ngtố chung} 
                         m:=m+1;
                    end;
if m=0 then writeln('khong ngto tuong duong');

đây là code in ra các số ngtố tương đương ,cách này không dùng goto hay jump gì hết ,có gì thì góp ý ha!
còn có gì khó hiểu thì bld nói luôn thuật toán:
tìm các ước của số lớn ( u )
trong các ước đó kiểm tra và lọc ra các ước ngtố ( uc )
kiểm tra số nhỏ chia hết cho số nào trong uc thì in ra ,
nếu không thì viết ko ngtố tương đuơng

bài mới nè

viết ctrình in dãy fibonaci , tính lũy thừa x mũ y ,
(bạn nào biết CTC rồi thì đệ quy nha ),
các member không biết đệ quy thì giải bình thường càng hay !

Cảm ơn BLD nha bài của BLD sẽ rất có ích cho tôi.
2 bài của BLD fibo thì trong c:\bp\examples\....có rồi
còn x^y thì trong SGK.
Thôi thi BLD thấy có đề nào khác thì post cho tôi nha
thankSSSSSSSSSSSSSSSSsss

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

Được gửi bởi cogaihalan123

dãy fibonaci cũng phải có giới hạn cho nó chứ bld ơi, nếu ko máy chạy hoài in cũng hổng hết
Có thể sửa đề thành thế này ko: viết ct in dãy fibonaci tới số nguyên n

Có thể chứ cogaihalan123 cứ xem trong sách bài tập tin học 11 sẽ thấy 1 đề như vậy

**bld** · 27-06-2008 17:19

vậy thì bld sửa bài fibonaci : nhập n ; in dãy fibonaci cho đến phần tử thứ n;ok?
còn bài lũy thừa còn có 1 cách khác nữa:

Code:

var: x,lt:real ;y,i:integer;
begin
   readln(x);
   readln(y);
   lt:=x;
   for i:=1 to y do
      x:=x*lt;
   writeln(x);
end.

hihi không có gì khác nhau cả !!

còn đây là bài dành cho timberlake :

nhập 1 số ,in ra số nhị phân tương ứng với số đó( có trùng trong sgk 11 ko vậy - đề do bld tự nghĩ ra đấy)