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

nút sửa bài đó sẽ mất sau 1 thời gian nhất định

Vậy sao ? thế mình sửa bn lần thì nó sẽ mất và mất trong bao lâu ??

Mình nghĩ nếu 1/0 không tồn tại rồi thì $\dfrac{1}{\frac10}$ cũng không tồn tại đâu

Ừ bạn nói có lý thật.

*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 --------

* Phân tích đề:

Viết phương trình tính tổng S = 2 + 4 + 6 + 8 +...+ 2N

----> viết chương trình chứ bạn.

Code:

program tt;

uses crt;

var j,k,i,n:integer;

s:real;

begin

clrscr;

repeat

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

if n>=1 then break;

writeln('Hay nhap n>=1');

until false;

s:=0;

for i:=1 to n do

s:=s+2*i;

writeln('Tong: ',s:4:2);

readln

end.

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

đề hỏi gì vậy.khó hiểu

Để mình làm cho tối mai

Cũng làm được nhưng hơi lâu............

Bạn làm đúng ý mình rồi đó.

Chuẩn hóa là làm tất cả các việc để đưa ra xau hoàn thiện nhất.

Vi dụ: Xau la:'     nGuyeN       tUNg     lAm       ' thì sau khi chuẩn hóa sẽ là:'Nguyen Tung Lam'.

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

Xin lỗi các mem yêu Tin pascal...mấy bữa toàn kêu là không có bài để làm nhưng thực ra là có mà không tìm đến @@

Rất xin lỗi nhưng mà mình có ý kiến này cần trình bày luôn: nếu có post đề lên thì nhân tiện vào đây cho địa chỉ trang để tìm cho dễ hoặc thông báo 1 tiếng để mình biết mà còn làm (nếu làm được  ).Các mem nhớ nha.

       Chào !

Sao ở đây đông vui thế mà ở cái topic mình lập ra thì chẳng có ai tham gia thế ???

Cho tứ giác ABCD nội tiếp (O;R). AB =  a, BC = b, CD = c, DA = d. Cho biết  Chứng minh ABCD là hình vuông

Ở đoạn Cho biết ấy..... là sao vậy bạn ,,mình không hiểu ...

ờ mình chép sai cái vd 

Vd nó phải là:

5                                          --->        5  

1 6 15 10 21                        --->     2 5 13 11 19

Thanks    

Ừ lần sau bạn phải cẩn thận hơn nhé, nếu không khó hiểu lắm (nhất là caí vd đó).   

 

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 đi bạn , chờ lâu quá

À à xin lỗi bạn mình không để ý để mình bù xho bạn vào trưa mai (bận viết văn mai nộp)) ....thực sự xin lỗi.

P/s:Mình ẩu quá rất xin lỗi bạn...    

làm hộ đi

Ờ...

Câu 3: (3,5 điểm) Tần suất                                                       TS.PAS

Cho tập hợp S có N phần tử nguyên dương {s₁, s₂,…, s_N}.

(1 ≤ N ≤ 32000; 0 < s_i ≤ 32000; 1 ≤ i ≤ N)

Yêu cầu: Hãy liệt kê các phần tử trong S có số lần xuất hiện lớn hơn một lần.

Dữ liệu vào: Cho trong file văn bản TS.INP có cấu trúc như sau:

- Dòng 1:  Ghi số nguyên dương N.

- Dòng 2: Ghi N số nguyên dương là giá trị các phần tử của tập hợp S, các số được ghi cách nhau ít nhất một dấu cách.

Dữ liệu ra: Ghi ra file văn bản TS.OUT  trên nhiều dòng, dòng thứ i ghi 2 số s_i   d_i, hai số cách nhau một dấu cách. Trong đó s_i là phần tử xuất hiện trong S lớn hơn một lần và d_i tương ứng là số lần s_i xuất hiện.

Ví dụ:

TS.INP

TS.OUT

7

2  5  5  3  5  3   9

3   2

5   3

Viết chương trình đưa ra tất cả các từ có thể phát sinh ra từ 1 tập chữ cái

lại cho hỏi 1 bài nữa

 

Bài 2: (3,0 điềm) Xóa số                                               

Cho một số tự nhiên có n chữ số a = a₁a₂.. a_n với a_iÎ{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}           i = 1..n. Hãy tìm cách xoá bỏ m chữ số của a sao cho số thu được sau khi xoá m chữ số thì số thu được là nhỏ nhất.

Dữ liệu: vào từ file BAI2.INP có cấu trúc:

-   Dòng đầu ghi hai giá trị n, m cách nhau ít nhất một dấu cách. (1<= N <= 30)

-   n dòng tiếp theo ghi các chữ số của a theo trình tự từ trái qua phải.

Kết quả: ghi ra file BAI2.OUT gồm:

-   M dòng đầu tiên mỗi dòng chứa một chỉ số của số bị xoá trong số a ban đầu.

-   Dòng cuối cùng ghi ra số còn lại sau khi xoá, nếu là số có chứa số 0 ở đầu thì số 0 đó được coi là tự động được bỏ.

 

VD1:a = 1200123

Bài 1.inp                                                                    bài 1.out

 

7 2                                                                              1

1                                                                                 2

2                                                                                 123

0

0

1

2

3

 

VD2:a =  321987

 

Bài 1.inp                                                 bài 1.out

 

6 3                                                               1

3                                                                  2

2                                                                  4

1                                                                  187

9

8

7

 Cập nhập: Ở dòng output thi M dòng đầu tiên ghi vị trí của số đã xóa chứ không phải là số đâu nhá nên mọi người đừng nhầm(Làm nhanh hộ nha )

Program zzk;

uses crt;

var f,f1:text;

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

a,b,c,d:array[1..10000] of longint;

begin

clrscr;

assign(f,'b1.inp');

reset(f);

i:=0;

while not eof(f) do

begin

read(f,x);

i:=i+1;

a[i]:=x;

end;

close(f);

assign(f,'b1.out');

rewrite(f);

n:=a[1];

m:=a[2];

max:=a[3];

p:=n-m;

for i:=3 to n do

if (a[i]<max)and(a[i]<>0)and(n-i>=p) then max:=a[i];

----- đang làm giở chưa xong ...---------------

Tiếp đi p

Xin lỗi đang nghĩ mà hơi ríc rắc ở đoạn tìm số bé nhất thỏa mãn Đk,,,lúc đầu đọc sơ qua thấy khá giống cái bài hôm trước mình làm nhưng giời đọc lại công nhận nó nặng hơn 1 tí @@....Bạn cố gắng chờ thêm vài bữa nữa khi nào nghĩ ra thì mình post lên ngay.

Yêu cầu của cái đề 2 nó chỉ là:

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

 

Đề nó yêu cầu là tim số nguyên tố gần với phan tử a[i] nhất. Lấy Vd ở trên là a[i]=15 thì số nguyên tố gần với nó la 13 và 17 nhưng đề yêu cầu  lấy số nguyên tố nhỏ hơn nên sẽ chi lấy số 13 thôi.(nếu còn j ko hieu đề thì cứ nói).

Vậy thằng số 5 ở đề  chạy đi đâu rồi ?

Dàng lẽ là kq= 2 5 3 13 11 19 chứ 

 

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.

 

Nếu bạn nói vậy thì mình chưa hiểu cái đề bài 2 (chủ yếu là cái vd, mình chưa hiểu ở chổ đó) bạn có thể chỉ rõ hơn không ?

Mình cảm ơn đã góp ý chân thành.

cái này ko thuộc kiểu mà sao làm đc

À đúng rồi, cảm ơn bạn.

Sửa: đáng lẽ ở phần function thì chỉ cần kiểm tra xâu là được rồi chứ không cần phải kiểm tra số làm gì cho mệt. 

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 ạ ..