Zjkar

Thì em có thể post phần "đính chính" của em bằng cách trả lời vào cùng topic đấy. Thời hạn là 1 tuần (có vẻ vẫn còn hơi nhiều).

Mà hình như có nút là "sửa bài" rồi mà ??

Các bạn có lẽ đã nghe danh tiếng của bộ tiểu thuyết "Thủy Hử" ?? 

Và tất nhiên "Thủy Hử" đã chiếm được rất nhiều cảm tình của khán giả ....

"Thủy hử" là câu chuyện xoay quanh cuộc đời của 108 vị anh hung hảo hán Lương Sơn Bạc và đặc biệt là vị thủ lĩnh Tống Giang,...

Trong topic này chúng ta hãy cùng trò chuyện,nói lên nhân vật mà mình yêu thích trong vấn đề này nhé !!

Mình thấy Chu Du cũng đâu có kém! hoặc như Gia Cát Cẩn chẳng hạn, hình như cũng là quân sư cho Tào Tháo!

Mình rất thích câu nói: " Trời đã sinh ra Du, tại sao lại còn sinh ra Lượng"

Câu nói rất hay ...vỗ tay,vỗ tay     

Cho em hỏi là tại sao nick tên : thanhviennoibat lại được vào danh sách thành viên nổi bật vậy ạ ?

Ừ đúng rồi hình như cái nick này có vấn đề thật rồi, khác người quá:

+ Không có bài viết nào mà có chức cao thế @@

+Danh hiệu với nhóm vip quá mà hình như chẳng có cống hiến gì =='

Ý kiến :mong ĐHV hay BQT lý giải hộ mình/em với ạ ..

 

 

 

 

 

Tạm thời nick Nguyen10A đã bị mình/em band nick.BQT hãy ban luôn IP!

Nói hơi quá tí chứ cũng phải nói: loại người này đáng lẽ phải tuyệt chủng lâu rồi chứ sao còn sót lại 1 tên như thế này nhỉ ???

Đấy là bạn dùng trình duyệt Google Chrome nên xảy ra lỗi thế

Lần trước mình cx bị, lên diễn đàn hỏi thì admin bảo vậy, cho nên chuyển sang dùng Cốc Cốc thì ko bị nữa

Vậy cho mình hỏi sao diễn đàn không dùng công thức bình thường mà lại yêu cầu sử dụng LATEX vậy ??

Ý bạn là sao ??/ mà giới hạn về cái gì chứ @@

Bài 1: Hai số được gọi là anh em nếu tổng các ước của chúng ngoài 1 và chính nó bằng nhau:

   

      VD:      6: 2 3 >>> 5

                  25: 5 >>> 5

                  nên 6 và 25 là hai số anh em

 

Bài 2: Tìm số hoàn hảo: có các ước số trừ nó bằng chính nó

 

VD: 6: 1,2,3 >>> 1+2+3=6: 6 là số hoàn hảo.

 

Bài 3: 1)  Tìm số nguyên tố bé hơn hoặc bằng số n nhập trước.

          2)  Kiểm tra 1 số là số nguyên tố hay không

 

Bài 4: Cho một xâu:

          a) Đếm xâu

          b) Đảo xâu

          c) Đảo từ

Bài 5*: Cho một xâu kí tự, viết chương trình để lấy một đoạn xâu con của xâu mẹ với vị trí bắt đầu và vị trí cuối nhập trước!

 

p/s: tất cả đều phải sử dụng tệp!

*Bai 1:

program bb1;

uses crt;

var f:text;

i,n,j,k,l,p:longint;

function kt(n:longint):longint;

var i,j,k:longint;

begin

k:=0;

for i:=2 to n-1 do

if n mod i=0 then k:=k+i;

kt:=k;

end;

begin

clrscr;

assign(f,'b1.dat');

rewrite(f);

write('Nhap so thu 1:');readln(n);

writeln('Nhap so thu 2:');readln(p);

if kt(n)=kt(p) then writeln(f,n, va ',p,' la 2 so anh em') else writeln(f,n,' va ',p,' khong la 2 so anh em');

end;

reset(f);

while not eof(f) do

begin

readln(f,n);

writeln(f);

end;

close(f);

readln

end.

*Bai 2:

program bb2;

uses crt;

var f:text;

n:longint;

function hh(n:longint):boolean;

var i,,j:longint;

kt:boolean;

begin

kt:=false;

j:=0;

for i:=1 to n-1 do

if n mod i=0 then j:=j+i;

if j=n then kt:=true;

hh:=kt;

end;

begin

clrscr;

assign(f,'b2.dat');

rewrite(f);

write('Nhap so :');readln(n);

for i:=1 to n do

if hh(i) then write(f,i):

write('Cac so hoan hao la:');

reset(f);

while not eof(f) do

begin

read(f,i);

write(i,'  ');

end;

close(f);

readln

end.

*Bai 3:

program bb3;

uses crt;

var f:text;

i,n,j,k,l,p:longint;

function nt(n:longint):boolean;

var i,s:longint;

kt:boolean;

begin

s:=0;

kt:=false;

for i:=1 to n do

if n mod i=0 then s:=s+1;

if s=2 then kt:=true;

nt:=kt;

end;

begin

clrscr;

assign(f,'b3.dat');

rewrite(f);

write('Nhap n:');readln(n);

for i:=1 to n do

if nt(i) then write(f,i);

writeln('Cac so nguyen to be hon hoac bang ',n,' la:');

reset(f);

while not eof(f) do

begin

read(f,i);

write(i,'   ');

end;

writeln;

write('Nhap so can xac dinh:');readln(p);

rewrite(f);

if nt(p) then writeln(f,p,' la so nguyen to') else writeln(f,p,' khong la so nguyen to');

reset(f);

while not eof(f) do

begin

readln(f,p);

writeln(f);

end;

close(f);

readln

end.

*Bai 4:

program bb4;

uses crt;

var f:text;

i,n,j,k,l,p:longint;

s,s1,s2,s3:string;

begin

clrscr;

assign(f,'b4.dat');

rewrite(f);

write('Nhap xau:');readln(s);

s1:=s;st:='';s3:='';s2:='';

writeln(f,'Xau co ',length(s),' ky tu');

for i:=length(s) downto 1 do

st:=st+s[i];

writeln(f,'Xau dao:',st);

for i:=length(s1) downto 1 do

begin

if s1[i]<>' ' then s3:=s3+s1[i];

if (s1[i+1]<>' ')and(s1[i]=' ')or(i=1) then

begin

for j:=length(s3) downto 1 do

s2:=s2+s3[j];

s2:=s2+' ';

s3:='';

end;

end;

writeln(f,'Xau dao theo tu:',s2);

reset(f);

while not eof(f) do

begin

readln(f,s);

writeln(f);

end;

close(f);

readln

end.

*Bai 5:

program bb5;

uses crt;

var f:text;

i,,j,k:longint;

s,s1:string;

begin

clrscr;

write('Nhap xau me:');readln(s);

repeat

write('Nhap vi tri dau:');readln(k);

if (k>=1)and(k<=length(s) then break;

writeln('Nhap 1<=1<=length(s)');

until false;

repeat

write('Nhap vi tri cuoi:');readln(j);

if (j>=i)and(j<=length(s)) then break;

writeln('Nhap i<=j<=length(s)');

until false;

s1:='';

for i:=k to j do

s1:=s1+s[i];

assign(f,'b5.dat');

rewrite(f);

write(f,'Xau con:',s1);

reset(f);

while not eof(f) do

begin

read(f,s1);

write(s1);

end;

close(f);

readln

end.

--------- Phù phù....cuối cùng cũng post xong !!!

P/s:"Phù phù" không phải ý là mệt vì bài khó mà là bị cắt giở do mất điện @@ << 3 lần >>  

==> Vô cùng ức chế    .... mà bài làm ok rồi đó.

                             Chúc may mắn !  

Nếu sử dụng điều kiện như trên thì code sẽ thế này:

Program xau;

uses crt;

var i,n,j,k,l,p:byte;

s,s1,s2:string;

f:text;

begin

clrscr;

assign(f,'d:\xau.inp');

reset(f);

while not eof(f) do read(f,s);

close(f);

k:=0;

p:=0;

for i:=1 to length(s) do

if (s[i] in ['0'..'9'])or(s[i] in ['a'..'z'])or(s[i] in ['A'..'Z']) then p:=p+1;

assign(f,'d:\xau.out');

rewrite(f);

if (p=length(s))and(length(s)<=100) then

begin 

for i:=1 to length(s) do

if (s[i] in ['0'..'9']) then k:=k+1;

writeln(f,'Chu cai:',p-k);

writeln(f,'Chu so:',k);

end else

writeln(f,'Ban phai nhap dung nhu de bai');

close(f);

readln

end.

Đề bài: Nhập vào văn bản XAU.INP một xâu gồm kí tự chữ cái và kí tự chữ số sao cho số kí tự không vượt quá 100. Cho ra văn bản XAU.OUT số chữ cái và số chữ số của xâu nhập.

 

VD: XAU.INP                        XAU.OUT

       abc123                          Chữ cái: 3

                                             Chữ số: 3

 

 

* Bài này là đề thi huyện mình năm nay, bài giải của mình sẽ đăng vào ngày mai (nếu không ai giải)!

Bạn không cần lo mình làm cho   

Program xau;

uses crt;

var i,n,j,k,l,p:longint;

s,s1,s2:string;

f:text;

begin

clrscr;

assign(f,'d:\xau.inp');

reset(f);

while not eof(f) do read(f,s);

close(f);

k:=0;

l:=0;

p:=0;

for i:=1 to length(s) do

if (s[i] in ['0'..'9'])or(s[i] in ['a'..'z'])or(s[i] in ['A'..'Z']) then p:=p+1;

assign(f,'d:\xau.out');

rewrite(f);

if (p=length(s))and(length(s)<=100) then

begin 

for i:=1 to length(s) do

if (s[i] in ['0'..'9']) then k:=k+1 else l:=l+1;

writeln(f,'Chu cai:',l);

writeln(f,'Chu so:',k);

end else

writeln(f,'Ban phai nhap dung nhu de bai');

close(f);

readln

end.

--- Ok rồi đó bạn ---------

------- Good luck ---------

Các bạn thân mến !!

Mình lập ra topic này nhằm mục đích thảo luận về kinh nghiệm cũng như trao đổi bài tập về lĩnh vực tin học pascal.

P/s: Dạo này mình thấy  góc tin học ít người ghé thăm với trò chuyện cùng nhau cho nên nhân cơ hội này chúng ta hãy trò chuyện,chat với nhau thật thỏa thích nhé...

Thân mến...

*Câu 1:

program b1;

uses crt;

var i,t,s,n,k,l:longint;

a:array[1..100000] of longint;

begin

clrscr;

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

s:=0;

k:=0;

for i:=1 to n do

if a[i]>5 then

begin

k:=k+1;

s:=s+a[i];

end;

t:=0;

l:=0;

for i:=1 to n do

if a[i]<15 then

begin

l:=l+1;

t:=t+a[i];

end;

writeln('Co ',k,' so lon hon 5');

writeln('Tong cac so lon hon 5: ',s);

writeln('Co ',l,' so be hon 15');

writeln('Tong cac so be hon 15: ',t);

readln

end.

*Cau 2:

program b2;

uses crt;

var i:longint;

s:string;

begin

clrscr;

write('Nhap xau:');readln(s);

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then delete(s,i,1);

writeln('Xau sau khi bo cac ky tu so:',s);

readln

end;

*Cau 3:

program b3;

uses crt;

var a,b,c,d:longint;

begin

clrscr;

writeln('Cac so thoa he thuc la:');

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

for d:=0 to 9 do

if 1000*a+100*b+10*c+d=(10*a+b+10*c+d)*(10*a+b+10*c+d) then write(a,b,c,d,'     ');

readln

end.

---- Ok rồi đó bạn -------

------- Good luck --------

   

 

Câu 1 mình cho sai đề là đúng rồi (cảm ơn bạn). Còn câu 2 thì bạn phải đọc kĩ đề chứ

 

Bài 1 : Tính tổng các chữ số trong xâu kí tự

vd : ngày12thang8nam83 ----> Tổng=12+8+83=103

 

Bài 2 : Cho 1 mảng gồm các số nguyên, hãy đưa ra mảng số nguyên tố gần của các số nguyên đó

(TH tìm được 2 số nguyên tố gần với số trong mảng thì đưa ra số nguyên tố gần bé hơn)

vd: Cho mảng ban đầu

1 6 5 15 10 21

Kết quả hiển thị của các số nguyên tố gần của mảng ban đầu là : 2 5 13 11 19

 

* Phân tích đề:

- Bài 1:

+ Đề y/c là tính tổng các chữ số vậy mà ở ví dụ thì lại tính tổng các số !

+ Nếu là tính tổng các số thì cần thêm điều kiện các số cách nhau bởi 1 ký tự  (Cho phù hợp, chứ nếu các số gần nhau thì tình tổng làm gì nữa ?).

+ Nếu là tính tổng các chữ số thì phải cho ví dụ rõ ràng, chính xác !

- Bài 2:

+ Ở đoạn : (vd: Cho mảng ban đầu

 

1 6 5 15 10 21

Kết quả hiển thị của các số nguyên tố gần của mảng ban đầu là : 2 5 13 11 19) thì theeo mình ví dụ sai:

+ Theo mình cái đúng là thế này: 2 5 3 13 11 19   hoặc  2 5 7 13 11 19.

Cho nên bạn transontung nếu ra đề thì cần phải cẩn thận .

----> Nếu bạn muốn hỏi bài thì nên vào chủ đề Ai muốn hỏi bài tập thì vào đây đó là chủ đề do mình lập nên khi đăng bài nếu có thể thì mình sẽ giúp . Cảm ơn.

 

*Bài 1:

program b1;

uses crt;

var s,s1,s2:string;

i,n,j,k,l,p,t:integer;

begin

clrscr;

write('Nhap xau:');readln(s);

s1:='';

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then s1:=s1+s[i];

for i:=1 to length(s1) do

begin

val(s1[i],n,l);

t:=t+n;

end;

writeln('Tong: ',t);

readln

end.

*bai 2:

program bg;

uses crt;

var i,n,j,k,l,p:integer;

a,b:array[1..1000] of integer;

function nto(n:integer):boolean;

var i,s:integer;

kt:boolean;

begin

kt:=false;

s:=0;

for i:=1 to n do

if n mod i=0 then s:=s+1;

if s=2 then kt:=true;

nto:=kt;

end;

function nt(n:integer):integer;

var i,j,k,l,v,u,z,x:integer;

begin

k:=n;

z:=n;

repeat

n:=n-1;

if nto(n) then begin

l:=n;

break;

end;

until nto(n);

repeat

k:=k+1;

if nto(k) then begin

p:=k;

break;

end;

until nto(k);

v:=z-l;

u:=k-z;

if nto(z) then nt:=z else

if u<v then nt:=k else

if u>=v then nt:=l;

end;

begin

clrscr;

write('Nhap so pt:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do

if a[i]<>1 then

b[i]:=nt(a[i]) else b[i]:=2;

write('Day la:');

for i:=1 to n do

write(b[i],'    ');

readln

end.

P/s: chạy trên tubor pascal thì very good nhưng chạy trên free pascal thì bị lỗi ((Ko biết tại sao))

Làm chuẩn đấy (Mất 2 ngày liền  chứ copy ở đâu được ) Ông xem thử đi, nếu có j góp ý thì cứ nói

Bài có vấn đề hay do máy zậy mà sao mình copy vào ct free pascal mà chạy thì nó báo lỗi:

exited with

exitcode=2

BT pascal:

Bài 1 (3 điểm): Hai số tự nhiên n, m được gọi là nguyên tố tương đương nếu chúng có chung các ước số nguyên tố. Hãy viết chương trình nhập vào hai số n, m và kiểm tra chúng có là nguyên tố tương đương với nhau hay không.

Ví dụ: số 75 và số 15 là nguyên tố tương đương vì chúng có cùng các ước số nguyên tố là 3 và 5.

Bài 2 (3 điểm): Cho hệ phương trình bậc nhất hai ẩn:

      (I)

Hãy viết chương trình giải hệ phương trình trên, đồng thời xác định vị trí tương đối của hai đường thẳng d: ax+by=c và d’=a’x+b’y =c’ đã tạo nên hệ phương trình (I).