Printable View
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'.
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....
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à!!Quote:
Được gửi bởi bld
chào các beginer mới vào room
[=========> Bổ sung bài viết <=========]
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!!Quote:
Được gửi bởi Trần Lê Minh
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 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;
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.
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
chắc ko sai đâu ~^^~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.
a:=a+1 là câu lệnh để tăng giá trị của a lên 1 đv
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?:)
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ảm ơn BLD nha bài của BLD sẽ rất có ích cho tôi.Quote:
Được gửi bởi bld
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ó thể chứ cogaihalan123 cứ xem trong sách bài tập tin học 11 sẽ thấy 1 đề như vậyQuote:
Được gửi bởi cogaihalan123
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:
hihi không có gì khác nhau cả !!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.
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) :) :) :) :)