Chủ đề này có 72 trả lời

[vanlong12]

Bài 11:  Tính tổng các số nguyên dương có trong một chuỗi.

 

Ví dụ: abcAcb90sgsd3sdsdg12sdfsdfds                  :              Tong: 105

          fsđfSdgvfd                                                      :              Sai! Nhap lai:

 

 

ĐÂY LÀ THUẬT TOÁN CỦA MK!!

 

uses crt;

var st:string;

g,i,j,k,l,n,s:integer;

begin

clrscr;

write('mhap xau:');readln(st);

i:=0;

while i<=length(st)do

begin

i:=i+1;

j:=i;

if st[j] in['0'..'9'] then

begin

while st[j] in['0'..'9'] do

begin

val(st[j],k,g);

l:=l*10+k;

writeln(k);

j:=j+1;

i:=i+1;

end;

s:=s+l;

l:=0;

end;

end;

write('tong:',s);

readln;

 

end.

[vanlong12]

Thuật toán chưa triệt để,thậm chí còn chưa xét đến trường hợp :

       fsđfSdgvfd                                                      :              Sai! Nhap lai:

nè bạn,,mk nói đây là bài thuật toán tham khảo mà,,,

[perfectstrong]

Chỉ cần thêm một biến boolean kiểm tra tồn tại chữ số hay không thôi.

[PlanBbyFESN]

Bài 13: Dãy đối xứng.

 

Cho dãy số nguyên mỗi số có giá trị tuyệt đối không quá $10000$.

Hãy tìm dãy con đối xứng dài nhất trong dãy đã cho (dãy con là dãy các phần tử liên tiếp có 2 phần tử trở lên)

 

• VD: 10                                                                             4 5                               (Dãy đối xứng dài nhất 12 13 15 13 12 bắt đầu từ vị trí 4 có        1 2 1 12 13 15 13 12 4 9                                                                                   độ dài 5)                                     
• VD: 7                                                                                0

                 1 2 3 4 5 6 7

 

Bài 14: Số đẹp

 

Số đẹp tức là $N$ mà thêm hai số $a,b$ vào hai đầu thì giá trị của $N$ tăng lên $99$ lần, tức là: $\overline{aNb}=99N$.

 

Cho trước hai số $a,b$ hãy tìm số đẹp! ($0\leq a,b\leq 9$)

 

VD:  8 1                            9

        9 4                            0

        1 4                            11236

 

Bài 15: Cho 1 dãy số nguyên. Hãy tìm dãy con có tổng lớn nhất có số phần tử nhập trước. (Tối ưu)

 

@perfect: Anh chỉ em cách test với chạy trên Turbo hay Free anh ơi! (Em không chuyên lắm )

Bài viết đã được chỉnh sửa nội dung bởi PlanBbyFESN: 30-04-2016 - 08:36

[perfectstrong]

@perfect: Anh chỉ em cách test với chạy trên Turbo hay Free anh ơi! (Em không chuyên lắm )

Test là sao? Thường thì người ta hay dùng file INP để cho dữ liệu vào, OUT để đọc dữ liệu ra. Thử với nhiều file INP khác nhau là được thôi (có cùng tên nhưng khác số liệu).

[PlanBbyFESN]

Test là sao? Thường thì người ta hay dùng file INP để cho dữ liệu vào, OUT để đọc dữ liệu ra. Thử với nhiều file INP khác nhau là được thôi (có cùng tên nhưng khác số liệu).

 

Ý em là cop chương trình của anh paste vào free hay tubor và sau đó làm thế nào nữa?

[perfectstrong]

Ý em là cop chương trình của anh paste vào free hay tubor và sau đó làm thế nào nữa?

Pascal cho phép đọc chương trình từ file txt. Em chép code vào một file text (tạo rất dễ) rồi mở lên bằng pascal, sau đó lưu lại dưới dạng .pas xem.

[thanhtv1]

bạn giúp mình chương trình lấy 10 chữ số thập phân sau dấu phẩy được không

[thang1308]

Ai làm giúp với:

Cho dãy số nguyên $a1,a2,a3,...,an$ ( $n\leq 100$).

1, Xem xét trong dãy có k số dương đứng cạnh nhau không.

2, Tìm dãy con liên tiếp tăng, có tổng lớn nhất.

[The Dark Hunter]

Số nguyên tố ghép

Xét dãy A các số nguyên tố  2, 3, 5, 7, 11, 13, 17, 19,...

và dãy B gồm các số thu được từ dãy A bằng cách ghép hai số liên tiếp trong A: 23, 57, 1113, 1719, ...

Trong dãy B có những phần tử là số nguyên tố. Chẳng hạn 23, 3137, 8389, 157163...

Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.

Yêu cầu: Cho trước số nguyên dương K ≤ 500, hãy tìm số nguyên tố ghép thứ K.

Input

Output

2

3137

ai nghĩ hộ thuật toán bài này dc ko?

Mk làm rồi nhưng k lớn thì chịu 

program wanted;

uses crt;

var a,i,j,k:longint;

function ktra(x:longint):boolean;

var i:longint;

begin

ktra:=true;

for i:=2 to trunc(sqrt(x)) do

if x mod i=0 then

   begin

   ktra:=false;

   exit;

   end;

end;

function ghepso(x1,x2:longint):longint;

var s1,s2,s:string;a:longint;c:integer;

begin

str(x1,s1);str(x2,s2);

s:=s1+s2;

val(s,a,c);

ghepso:=a;

end;

begin

clrscr;

write('nhap k=');

readln(k);

j:=0;a:=2;i:=2;

repeat

      begin

      if ktra(i) then a:=i;

         inc(i);

      if (ktra(i)) and (ktra(ghepso(a,i))) then

       inc(j);

      end;

until j=k;

writeln('so nguyen to ghep thu k la:',ghepso(a,i));

readln

end.

[NTL2k1]

 

Số nguyên tố ghép

Xét dãy A các số nguyên tố  2, 3, 5, 7, 11, 13, 17, 19,...

và dãy B gồm các số thu được từ dãy A bằng cách ghép hai số liên tiếp trong A: 23, 57, 1113, 1719, ...

Trong dãy B có những phần tử là số nguyên tố. Chẳng hạn 23, 3137, 8389, 157163...

Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.

Yêu cầu: Cho trước số nguyên dương K ≤ 500, hãy tìm số nguyên tố ghép thứ K.

Input

Output

2

3137

ai nghĩ hộ thuật toán bài này dc ko?

Mk làm rồi nhưng k lớn thì chịu 

program wanted;

uses crt;

var a,i,j,k:longint;

function ktra(x:longint):boolean;

var i:longint;

begin

ktra:=true;

for i:=2 to trunc(sqrt(x)) do

if x mod i=0 then

   begin

   ktra:=false;

   exit;

   end;

end;

function ghepso(x1,x2:longint):longint;

var s1,s2,s:string;a:longint;c:integer;

begin

str(x1,s1);str(x2,s2);

s:=s1+s2;

val(s,a,c);

ghepso:=a;

end;

begin

clrscr;

write('nhap k=');

readln(k);

j:=0;a:=2;i:=2;

repeat

      begin

      if ktra(i) then a:=i;

         inc(i);

      if (ktra(i)) and (ktra(ghepso(a,i))) then

       inc(j);

      end;

until j=k;

writeln('so nguyen to ghep thu k la:',ghepso(a,i));

readln

end.

 

* Lỗi ở đây là do số nguyên tố ghép đó lớn hơn kiểu dữ liệu trong chương trình !

Có hai cách giải quyết:

- Nghĩ cách làm sao để sử dụng được kiểu dữ liệu lớn hơn để giải quyết vấn đề trên (vẫn sử dụng thuật toán cũ)

- Nghĩ một thuật toán mới, tối ưu hơn thuật toán cũ và sử dụng kiểu dữ liệu lớn hơn.

* Nếu bạn muốn người khác suy nghĩ, cải tiến theo hướng thuật toán của bạn thì ít nhất bạn cũng phải nói ý tưởng của mình. Chứ nhìn vào chương trình thì ai mà biết bạn đang làm gì ? có tác dụng gì ? ...vv 

[The Dark Hunter]

* Lỗi ở đây là do số nguyên tố ghép đó lớn hơn kiểu dữ liệu trong chương trình !

Có hai cách giải quyết:

- Nghĩ cách làm sao để sử dụng được kiểu dữ liệu lớn hơn để giải quyết vấn đề trên (vẫn sử dụng thuật toán cũ)

- Nghĩ một thuật toán mới, tối ưu hơn thuật toán cũ và sử dụng kiểu dữ liệu lớn hơn.

* Nếu bạn muốn người khác suy nghĩ, cải tiến theo hướng thuật toán của bạn thì ít nhất bạn cũng phải nói ý tưởng của mình. Chứ nhìn vào chương trình thì ai mà biết bạn đang làm gì ? có tác dụng gì ? ...vv 

thì mình làm như bình thường :kiểm tra số nguyên tố rồi ghép với số nguyên tố trước nó xong kiểm tra số ghép có phải số nguyên tố không

nếu đúng thì tăng j,nếu j=k thì chương trình dừng

[cuibap0911]

Bài 17:

Cho bảng A kích thước MxN (1< M <5000, 1< N <5000). Phần tử Aij (i = 1..M, j = 1..N) được gọi là phần tử đặc biệt nếu Aij là phần tử nhỏ nhất trong hàng của nó đồng thời là phần tử lớn nhất trong cột của nó. Hãy viết chương trình kiểm tra xem bảng A có phần tử đặc biệt hay không và phần tử đặc biệt đó có phải là số nguyên tố hay không.

Dữ liệu vào trong tập tin văn bản PTDB.inp gồm:

-  Dòng 1: hai số M, N (1< M <5000, 1< N <5000).

-  M dòng tiếp theo chứa các giá trị gồm N cột.

Kết quả xuất ra tập tin văn bản PTDB.out gồm:

-  Dòng 1: Chứa chỉ số của các phần tử đặc biệt. - Dòng 2: Giá trị của các phần tử đặc biệt.

-  Dòng 3: Kiểm tra tính chất số nguyên tố của phần tử đặc biệt.

            Lưu ý: các số trên một dòng cách nhau bằng một khoảng trắng. Ví dụ:

PTDB.inp

 

 

4  3

5  13 10 

3 14 16

11 17 14 

2 40 23

                                                                         PTDB.out

Chi so cac phan tu dac biet la: (3,1)  

Cac phan tu dac biet co gia tri =11

Phan tu dac biet 11 la so nguyen to

 

PTDB.inp

 

 

5 5

15 3 9 2 10

55 14 16 10 5

76 17 14 10 4

12 4 23 3 3

5 14 56 13 5

                                                                     PTDB.out

Khong co phan tu dac biet

Bài viết đã được chỉnh sửa nội dung bởi PlanBbyFESN: 29-01-2017 - 16:55