Đến nội dung

NTL2k1

NTL2k1

Đăng ký: 05-07-2016
Offline Đăng nhập: 14-04-2021 - 10:25
****-

#655020 Viết chương trình nhập vào 1 xâu họ tên (xâu chuẩn). In lên màn hình Họ, Tên,...

Gửi bởi NTL2k1 trong 21-09-2016 - 20:00



Viết chương trình nhập vào 1 xâu họ tên (xâu chuẩn). In lên màn hình Họ, Tên, Họ đệm của tên đó.

 

program xau_hoten;
uses crt;
var st,ten:string;
var k,vt,d,i:integer;
begin
clrscr;
write('Nhap ten:');readln(st);
writeln;
write('Ho: ');
for i:=1 to length(st) do
if st[i]<>#32 then write(st[i]) else
   begin
   k:=i+1;
   break;
   end;
writeln;
for i:=1 to length(st) do
if st[i]=#32 then vt:=i+1;
d:=length(st)-vt+1;
ten:=copy(st,vt,d);
delete(st,vt,d);
writeln('Ten: ',ten);
write('Ho dem: ');
for i:=k to vt-2 do
write(st[i]);
readln
end.



#655016 Viết chương trình nhập vào một xâu và in mỗi từ của xâu lên một hàng

Gửi bởi NTL2k1 trong 21-09-2016 - 19:38



Viết chương trình nhập vào một xâu và in mỗi từ của xâu lên một hàng ( xâu chưa là xâu chuẩn ).

program "từ cấm";

ues crt;

var st:string;

i:integer;

begin

clrscr;

write('Nhap xau la:');readln(st);

while st[1]=chr(32) do

delete(st,1,1);

while st[length(st)]=chr(32) do

delete(st,length(st),1);

while pos(#32#32,st)<>0 do

delete(st,pos(#32#32,st),1);

for i:=1 to length(st) do

begin

write(st[i]);

if st[i]=#32 then

writeln;

end;

readln

end.




#653045 Thơ Tình

Gửi bởi NTL2k1 trong 06-09-2016 - 20:52

:) mình yêu nhau đi

:)) anh Bằng Gay , anh Lộc cẩn thận :P




#651605 Topic chia sẻ ảnh đẹp

Gửi bởi NTL2k1 trong 28-08-2016 - 09:01

Trong pic này các bạn hãy chia sẻ với mọi người những bức ảnh mà bạn cho là đẹp nhé, ảnh không gò bó trong 1 thể loại nào đó mà là ảnh kiểu gì cũng được.Chẳng hạn ảnh về nhân vật anime,manga, chân lý cuộc sống,... riêng ảnh người thì đừng post lên đây nhé !

Quy định mỗi bài viết thì đăng từ 3 - 4 ảnh, riêng ảnh có kích thước to thì chỉ đăng 1 tấm thôi. Thế nhé !

 




#649998 Lấy ý kiến về việc tổ chức "cặp đôi hoàn hảo 2016"

Gửi bởi NTL2k1 trong 17-08-2016 - 08:35

Chào các bạn !

Mấy năm gần đây thấy diễn đàn mình đang đi xuống về mặt vui chơi,giải trí. Nên hôm nay nhân ngày trời xanh,gió mát mình muốn tổ chức lại cuộc thi "cặp đôi hoàn hảo" để lấy lại không khí cho diễn đàn !

Nhưng để làm được việc này thì phải cần sự giúp sức của các bạn, vì thế nên mình mong các bạn ủng hộ để cuộc thi năm nay vượt xa năm trước (2013).




#649881 TOPIC: Tổng hợp bài tập PASCAL

Gửi bởi NTL2k1 trong 16-08-2016 - 15:38

 

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 




#647938 Đếm số phần tử xuất hiện nhiều nhất trong mảng, In phần tử và sô lần xuất hiệ...

Gửi bởi NTL2k1 trong 04-08-2016 - 16:56



4. Cho 2 mảng A, B có các phần tử đôi một khác nhau.

  Viết chương trình in ra màn hình:

  a, hợp của 2 mảng A, B.

  b, hiệu của 2 mảng A,B. 

Code:

 

program no_4;
uses crt;
var i,j,k,l,p,n,m:longint;
a,b,c:array[1..1000] of longint;
begin
clrscr;
write('Nhap pt mang a:');readln(n);
l:=0;
for i:=1 to n do
        begin
        write('a[',i,']=');readln(a[i]);
        if a[i]=0 then l:=l+1;
        end;
write('Nhap pt mang b:');readln(m);
for i:=1 to m do
        begin
        write('b[',i,']=');readln(b[i]);
        if b[i]=0 then l:=l+1;
        end;
j:=1;
i:=1;
while i<=n do
        begin
        c[j]:=a[i];
        j:=j+1;
        i:=i+1;
        end;
i:=1;
while i<=m do
        begin
        c[j]:=b[i];
        j:=j+1;
        i:=i+1;
        end;
for i:=1 to j-1 do
        begin
        k:=i+1;
        while k<=j do
        begin
        if c[i]=c[k] then
                begin
                for p:=k to j do
                c[p]:=c[p+1];
                j:=j-1;
                end else k:=k+1;
        end;
        end;
writeln('Hop cua 2 mang A,B:');
if l=0 then
        begin
        for i:=1 to j-1 do
        write(c[i]:4);
        end else
        begin
        for i:=1 to j do
        write(c[i]:4);
        end;
writeln;
writeln('Hieu cua 2 mang A,B:');
for i:=1 to n do
write(a[i]:4);
readln
end.



#647931 Đếm số phần tử xuất hiện nhiều nhất trong mảng, In phần tử và sô lần xuất hiệ...

Gửi bởi NTL2k1 trong 04-08-2016 - 16:28



3. Chèn 1 số x vào mảng tăng dần sao cho mảng vẫn có thứ tự tăng dần.

Code:

 

program no_3;
uses crt;
var i,j,k,n:integer;
a:array[0..1000] of integer;
begin
clrscr;
write('Nhap so pt:');readln(n);
for i:=1 to n do
        begin
        write('a[',i,']=');readln(a[i]);
        end;
writeln('Nhap so can chen:');readln(k);
if k<=a[1] then
        begin
        for i:=n+1 downto 1 do
        a[i]:=a[i-1];
        a[1]:=k;
        n:=n+1;
        end else
        begin
        i:=1;
        while (a[i]<k) and (i<=n) do
        i:=i+1;
        for j:=n+1 downto i do
        a[j]:=a[j-1];
        a[i]:=k;
        n:=n+1;
        end;
writeln('Mang sau khi chen:');
for i:=1 to n do
write(a[i]:4);
readln
end.



#647930 Đếm số phần tử xuất hiện nhiều nhất trong mảng, In phần tử và sô lần xuất hiệ...

Gửi bởi NTL2k1 trong 04-08-2016 - 16:02



2. Tính tổng các số chính phương trong mảng.

 

* Có 2 cách:

- Cách thông thường:Vừa kiểm tra vừa in ra làm trong chương trình chính luôn

- Làm 1 cái hàm kiểm tra, rồi dùng trong chương trình chính.

 -> Ở đây thì mình nghĩ ta nên dùng hàm vì nó nhìn rất rõ ràng, dễ hiểu và đặc biệt nếu làm như vậy trong thi cử sẽ đạt được điểm cao hơn so với cách thông thường.

Code:

Program no_2;

 

uses crt;
var t,i,n:word;
a:array[1..1000] of word;
function cp(n:word):boolean;
var kt:boolean;
 i:word;
begin
kt:=false;
for i:=1 to n-1 do
if i*i=n then kt:=true;
cp:=kt;
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 cp(a[i]) then t:=t+a[i];
writeln('Tong cac so chinh phuong trong day: ',t);
readln
end.



#647927 Đếm số phần tử xuất hiện nhiều nhất trong mảng, In phần tử và sô lần xuất hiệ...

Gửi bởi NTL2k1 trong 04-08-2016 - 15:46



Trên Pascal, viết chương trình:

1. Đếm số phần tử xuất hiện nhiều nhất trong mảng, In phần tử và sô lần xuất hiện của phần tử đó.

Code:

 

program no_1;
uses crt;
var a,d,b,c:array[1..100] of integer;
var i,n,j,t,s,k,tg,th,id:integer;
kt:boolean;
begin
clrscr;
kt:=true;
write('Nhap n la:');readln(n);
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
for i:=1 to n do
d[i]:=1;
for i:=1 to n-1 do
begin
j:=i+1;
while j<=n do
if a[i]=a[j] then begin
             for k:=j to n do
             a[k]:=a[k+1];
             n:=n-1;
             d[i]:=d[i]+1;
             end else j:=j+1;
if d[i]>1 then b[i]:=d[i];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
   begin
   tg:=b[i];
   b[i]:=b[j];
   b[j]:=tg;
   th:=a[i];
   a[i]:=a[j];
   a[j]:=th;
   end;
k:=0;
if n=1 then writeln('Phan tu xuat hien nhieu nhat la: ',a[1]) else
if b[1]=b[n] then
 writeln('Cac phan tu xuat hien bang nhau va xuat hien ',b[n],' lan') else
  begin
  for i:=1 to n do
  if b[1]=b[i] then k:=k+1;
  Writeln('Co ',k,' phan tu xuat hien nhieu nhat va xuat hien ',k,' lan');
  writeln('Phan tu xuat hien nhieu nhat la:');
  for i:=1 to n do
  if b[1]=b[i] then  write(a[i]:4);
  end;
readln
end.



#647746 Trộn 2 mảng A, B đã sắp xếp thành một mảng C sao cho các phần tử đôi một khác...

Gửi bởi NTL2k1 trong 03-08-2016 - 12:01



Trộn 2 mảng A, B đã sắp xếp thành một mảng C sao cho các phần tử đôi một khác nhau và không đồng thời thuộc 2 mảng A, B.

 

VD:  mảng A: 5, 5, 6,   , 8, 9 

        mảng B: 4, 5, 6, 7, 7, 10, 12

        mảng C: 4,         7, 8, 9, 10, 12 

Mình có ý kiến thế này:

- Khi post đề thì bạn nên viết cho rõ ràng và chính xác !

- Cho ví dụ đúng, dễ hiểu và chuẩn !
- Còn như đề của bạn thì mình chưa biết là mảng ký tự hay mảng số nguyên nữa  :wacko: ( Nếu là mảng số nguyên thì code ở dưới)
- Xin bạn thứ lỗi chứ thực ra mình thấy cái ví dụ bạn viết quá ẩu :mảng C: 4,         7, 8, 9, 10, 12 
Mình nói thế không có ý xúc phạm bạn nhưng mong bạn hiểu và rút kinh ngiệm. Thế thôi  :lol: 
Code:
program mang_c;
uses crt;
var i,j,k,l,p,n,m,tg:longint;
a,b,c,x,d:array[1..1000] of longint;
begin
clrscr;
write('Nhap so phan tu mang a:');readln(n);
k:=0;
for i:=1 to n do
    begin
    write('a[',i,']=');readln(a[i]);
    end;
for i:=1 to n-1 do
begin
l:=i+1;
       while l<=n do
       begin
       if a[i]=a[l] then
       begin
       for p:=l to n do
       a[p]:=a[p+1];
       n:=n-1;
       end else l:=l+1;
       end;
end;
writeln;
write('Nhap so phan tu mang b:');readln(m);
for i:=1 to m do
    begin
    write('b[',i,']=');readln(b[i]);
    k:=k+1;
    end;
for i:=1 to m-1 do
begin
l:=i+1;
       while l<=m do
       begin
       if b[i]=b[l] then
       begin
       for p:=l to m do
       b[p]:=b[p+1];
       m:=m-1;
       end else l:=l+1;
       end;
end;
k:=0;
i:=0;
while i<=n do
      begin
      k:=k+1;
      i:=i+1;
      c[k]:=a[i];
      d[k]:=0;
      end;
i:=0;
while i<=m do
      begin
      k:=k+1;
      i:=i+1;
      c[k]:=b[i];
      d[k]:=0;
      end;
for i:=1 to k-1 do
begin
    l:=i+1;
    while l<=k do
    begin
    if c[i]=c[l] then
    begin
    d[i]:=d[i]+1;
    for p:=l to k do
    c[p]:=c[p+1];
    k:=k-1;
    end else l:=l+1;
    end;
end;
l:=0;
for i:=1 to k do
if d[i]=0 then
   begin
   l:=l+1;
   x[l]:=c[i];
   end;
for i:=1 to l-1 do
for j:=i+1 to l do
    if x[i]>x[j] then
    begin
    tg:=x[i];
    x[i]:=x[j];
    x[j]:=tg;
    end;
writeln('Mang C:');
for i:=1 to l do
write(x[i]:4);
readln
end.



#647243 Fan Naruto vô chém !

Gửi bởi NTL2k1 trong 30-07-2016 - 20:31

Hazz ... tình trạng này mà kéo dài chắc thành tự truyện quá @@!

Mình thì khoái nhiều nhân vật vì mỗi người đều có 1 cá tính riêng nhưng đa phần thì thích :

- Thằng Nar nổ hay còn gọi là Naruto chân nhân - Nhà thông não học được chọn lựa bởi đất giời, mang công phu mình đi thông não cả thiên hạ. ~O) 

nhưng ko phải vì sức mạnh của nó mà là vì :

  + Nó thích thể hiện nên nhiều khi hay "phả" mấy câu rất hot  :icon6: 

 + Thiểu não trong ăn nói gây buồn cười. :D 

 + Có mấy thứ thuật í í thấy hay hay  >:) 

+ Mình học đc từ nó 1 điều :"Nếu bạn cố gắng,nỗi lực phấn đấu ko ngừng mệtt mỏi thì bạn sẽ thực hiện được ước mơ, hoài bão của mình". ...v.v

- Anh Itachi anh hùng - nhà hoạt động vì hòa bình nhân loại  :icon13: : Nói thật thì đẹp zai thì chưa hẳn nhưng năng lực, sức mạnh,...rất là vip và đặc biệt Itachi là 1 người anh hoàn hảo mà người làm em nào cũng muốn  ~O) 

- Tiên nhân dê cụ Jiraija - Tác giả của cuốn Thiên Đường Tung Tăng ,Chiến Thuật Tung Tăng,Đến Với Thiên Đường (Và người cuồng mấy quyển này nhất thì là Thầy Kakashi yêu quý :B) ): Lão dê chúa này thì khỏi nói :closedeyes:  cứ mỗi lần xuất hiện là tranh thủ "bựa" đủ điều  :mellow: 

chet-cuoi-voi-bo-3-su-phu-hao-sac-nhat-t      

Hè hè chắc các bạn cũng biết lần đầu Naruto gặp Jiraija tại nhà tắm phải ko công cộng phải ko ? Xem thấy hài vl nhỉ  :))

 

4.%2BJiraiya%2B%2528Naruto%2529.jpg




#647149 Sắp xếp mảng

Gửi bởi NTL2k1 trong 30-07-2016 - 09:05



Viết chương trình trên 2 mảng đã sắp xếp tăng thành 1 mảng thứ 3 cũng sắp xếp tăng.

 

VD:

 Mảng 1:   3, 5, 6, 9, 12

 Mảng 2:   4, 7, 8, 10;

$\Rightarrow$

mảng 3 :   3, 4 ,5, 6, 7, 8, 9, 10, 12.

Với cá nhân mình thì có 2 cách:

C1: Gộp 2 mảng đó lại với nhau và sau đó sắp xếp tăng dần lại.

C2:Vừa gộp vừa sắp xếp tăng dần.

* Thì cách 1 mình nói thế chắc bạn đã hiểu vấn đề rồi. Mình sẽ làm cách 2:

Code:

 

program tron_day;
uses crt;
var i,n,j,k,l,tg,m,p:longint;
a,b,c:array[1..1000] of longint;
begin
clrscr;
write('Nhap so pt mang 1:');readln(n);
for i:=1 to n do
    begin
    write('a[',i,']=');readln(a[i]);
    end;
writeln;
write('Nhap so pt mang 2:');readln(m);
for i:=1 to m do
    begin
    write('b[',i,']=');readln(b[i]);
    end;
writeln;
i:=1;
p:=0;
j:=1;
repeat
         if a[i]<=b[j] then
            begin
            p:=p+1;
            c[p]:=a[i];
            i:=i+1;
            end else
                begin
                p:=p+1;
                c[p]:=b[j];
                j:=j+1;
                end;
until (i>n)or(j>m);
for k:=i to n do
      begin
      p:=p+1;
      c[p]:=a[i];
      end;
for l:=j to m do
      begin
         p:=p+1;
         c[p]:=b[j];
         end;
writeln('Mang 3 co thu tu sx tang dan:');
for i:=1 to p do
write(c[i],'  ');
readln
end.
* Thuật toán cơ bản là vậy.Nhưng để chặt chẽ hơn thì bạn có thể chọn lại kiểu dữ liệu,đặt thêm ĐK (chẳng hạn nếu mảng ko tăng dần thì thông báo phải nhập lại),...



#647099 Fan Naruto vô chém !

Gửi bởi NTL2k1 trong 29-07-2016 - 21:25

Vài tấm nữa:

74776749f1bebc10264.jpg

 

74776749f1bedd10935.jpg

 

Zetsu__s_Hungry_for_Akatsuki_by_MSkyDrag

 

00001.jpg

 

iqnarutyt2.jpg

 

numb3rswb1.gif

9741038mm9.jpg

 

real20reason20sasuke20hjn8.jpg

-Naruto "chôm" sách của Kakashi-sensei:

53735948cf9f96b2266.jpg

- Khổ cho Itachi:

Itachi_Kisame_c*rack_comic_by_copygeijuts

 

Birthday_no_Jutsu.jpg

 

The_Bird_and_the_Shark.jpg

 

Zetsu_Can_Handle_a_Shark.jpg

 

370573.jpg

 

- Gia đình Akatsuki:

 

akatsu11.jpg

 

- Thằng Narutoo này độ ngu chắc lên thêm cấp nữa rồi @@!

20-1-1.jpg

 

3148154a18e64060eb6.jpg

 

3148154a18e6b0b127d.jpg

- Nên vui hay nên buồn đây:

3148154a18e7d9f2b47.jpg

 

51522648a95da5bf567.jpg

 

P/s: Hazz ... còn nữa nhưng thấy mình post hơi nhiều nên tạm dừng để còn chỗ cho các bạn khác post nữa :))

Ok Mời các bạn phát biểu cảm tưởng :lol:




#647091 Fan Naruto vô chém !

Gửi bởi NTL2k1 trong 29-07-2016 - 20:39

Để tránh đêm dài lắm mộng, mình xin vào trước  >:)

Ảnh chế hài Naruto:

- Sasuke thắng là do ăn may ?

nrt-realitycheckmajorspoile.jpg

-Hehe Nar nổ vs Sa Gay :

nrt-Triangle_Love_Part_I.jpg

 

- Sao thằng Tobi luôn bị đá thế nhỉ :3

hinh-anh-che-naruto-cuoi-vo-bung-8.jpg

 

hinh-anh-che-naruto-cuoi-vo-bung-4.jpeg

 

1374630841_521821_.jpg

- Sasuke ơi đừng vội trả thù ...@@!

 

Sasuke_vs_Itachi_by_SwissNarutoAxel.jpg

 

-Naruto cố lôi kéo Sasuke trở về Konoha:

2259103155_dfd1a1e8de.jpg?v=0

 

Why_Itachi_is_dangerous__by_Nene203.jpg

- Mời a-e uống nước:

2Tfunny2.jpg

- Tên lửa Tobi:

53735948cf9c8d40006.jpg

 

53735948cf9cd3b941d.jpg






  1. Diễn đàn Toán học
  2. → Đang xem trang cá nhân: Likes: NTL2k1