TIN HỌC 11(các bạn lớp 11 vào đây để xem có BT mình định hỏi chưa nha )

**Alexman113** · 10-12-2012 12:50

Viết chương trình nhập vào một chuỗi kí tự.
1. a) Cho biết độ dài của chuỗi.
b) Cho biết trong chuỗi có nhiêu khoảng trắng, đếm số khoảng trắng của chuỗi, vị trí từng khoảng trắng.
2. a) Đổi toàn bộ chuỗi ra hoa.
b) Đổi toàn bộ chuỗi ra thường.
c) Đổi hoa ra thường và thường ra hoa.
3. Đổi những chữ đầu của từ ra hoa còn lại là thường. (Vd: Độc lập tự do hạnh phúc -->>> Độc Lập Tự Do Hạnh Phúc)
4. Đếm bao có bao nhiêu kí hiệu khác (trừ chữ thường, chữ hoa và số).
5. Xuất ra tổng mã ASCII của tất cả các kí tự của chuỗi.
6. Bỏ các khoảng trắng thừa (chuỗi chuẩn).
7. Cho biết chuỗi có bao nhiêu từ.
8. Nhập vào một kí tự bất kì
a) Đếm số lần xuất hiện của kí tự đó trong chuỗi(không phân biệt chữ thường và hoa).
b) Thay thế một kí tự nào đó bằng kí tự vừa nhập vào.

Giúp em với ạ, em xin cảm ơn ạ.

**A4U CarryAll** · 12-04-2014 09:22

Ai giúp em bài này với,mai nộp rồi.
Nhập 3 mảng A,B,C có số phần tử khác nhau
Tính tổng các phần tử của 3 mảng trên

**thptbt84** · 17-10-2014 09:43

cho mảng a (a1..an) đếm trong mảng có bao nhiêu số Fibonaci khác nhau.
ví dụ:
tệp vào
6
4 1 1 7 10 8
tệp kết quả:
2

**Huỳnh Duy Idol** · 26-10-2014 11:43

Cho ma trận A cấp N và chỉ số dòng x, chỉ số cột y. In 1 dòng chứa các phần tử theo chiều xoắn ốc bắt đầu tại (x,y).

**ada95** · 11-12-2014 09:03

Được gửi bởi Alexman113

Viết chương trình nhập vào một chuỗi kí tự.
1. a) Cho biết độ dài của chuỗi.
b) Cho biết trong chuỗi có nhiêu khoảng trắng, đếm số khoảng trắng của chuỗi, vị trí từng khoảng trắng.
2. a) Đổi toàn bộ chuỗi ra hoa.
b) Đổi toàn bộ chuỗi ra thường.
c) Đổi hoa ra thường và thường ra hoa.
3. Đổi những chữ đầu của từ ra hoa còn lại là thường. (Vd: Độc lập tự do hạnh phúc -->>> Độc Lập Tự Do Hạnh Phúc)
4. Đếm bao có bao nhiêu kí hiệu khác (trừ chữ thường, chữ hoa và số).
5. Xuất ra tổng mã ASCII của tất cả các kí tự của chuỗi.
6. Bỏ các khoảng trắng thừa (chuỗi chuẩn).
7. Cho biết chuỗi có bao nhiêu từ.
8. Nhập vào một kí tự bất kì
a) Đếm số lần xuất hiện của kí tự đó trong chuỗi(không phân biệt chữ thường và hoa).
b) Thay thế một kí tự nào đó bằng kí tự vừa nhập vào.

Giúp em với ạ, em xin cảm ơn ạ.

--
{Date: 2014/12/03/00h09m}

{Sử dụng các hàm trong TP7:
Declaration
function Copy(S: String; Index: Integer; Count: Integer): String;
function Delete(S: String; Index: Integer; Count: Integer): String;
function Pos(Substr: String; S: String): Byte;
procedure Insert(Source: String; var S: String; Index: Integer);

}
1. a) Cho biết độ dài của chuỗi.

Code:


function Len (Text :String) :Byte;
{2014/12}
begin
    Len :=  Ord (Text [0]);
end;

[code]

6. Bỏ các khoảng trắng thừa (chuỗi chuẩn).

{Các khoảng trắng bên trái}

Code:

function TrimLeft (Text :String) :String; {Loại bỏ các khoảng trắng ở đầu chuỗi}
{2014/12}
var 
    i :Byte;
    J :Byte;
begin
    if Length (Text) <= 1 then 
        TrimLeft := Text
    else
        begin
        j := 0;
        for i:=1 to Length (Text) do
            if Text [i] = ' ' then
                begin
                Inc (j);    {Đếm số khoảng trắng}
                continue;
                end
            else
                break;      {Không còn khoảng trắng ở đầu nữa}        
        TrimLeft := Copy (Text, j + 1, Length (Text) - j);
        end; {else}
end; {TrimLeft}

{Các khoảng trắng bên phải}

Code:

function TrimRight (Text :String) :String; {Loại bỏ các khoảng trắng ở cuối chuỗi}
{2014/12}
{ var 
    s :String;  }
begin
    if Length (Text) <= 1 then 
        TrimRight := Text
    else
        TrimRight := Reverse (TrimLeft (Reverse (Text)));
        (*
        s := Reverse (Text);    {Đảo chuỗi, để cuối chuỗi thành đầu chuỗi}
        s := TrimLeft (s);      {và loại bỏ khoảng trắng}
        s := Reverse (s);       {Rồi đảo lại như cũ}
        TrimRight := s;
        *)
end; {TrimRight}

Code:

function Trim (Text :String) :String; 
{Loại bỏ các khoảng trắng đầu/cuối chuỗi, 
Phần còn lại trong chuỗi nếu có >=2 khoảng trắng liên tiếp nhau thì chỉ giữ lại 1 khoảng trắng}
var 
    s :String; 
    i :Byte;
    enable :Boolean;
begin
    if Length (Text) <= 1 then 
        Trim := Text
    else
        begin
        { s := Text; }
        { s := TrimLeft (s); }  {Loại bỏ các khoảng trắng ở đầu chuỗi}
        { s := TrimRight (s); } {Loại bỏ các khoảng trắng ở cuối chuỗi}
        Text := TrimRight (TrimLeft (Text));
        {Không còn khoảng trắng ở đầu chuỗi và cuối chuỗi}
        {Bây giờ xử lý phần giữa}
        enable := true; {cho phép ghi khoảng trắng}
        s :='';
        for i:=1 to Length (Text) do
            if Text [i] <> ' ' then {Nếu không phải khoảng trắng thì ghi bình thường} 
                begin
                s := s + Text [i];
                enable := true; {Và cho phép ghi khoảng trắng sau nó - nếu có}                
                continue;
                end                
            else    {Có khoảng trắng?}
                if (enable = true) then {Nếu trước đó không có khoảng trắng, Được ghi ?}
                    begin
                    s := s + Text [i]; {Thì ghi lại}
                    enable := false; {Và đánh dấu là có khoảng trắng rồi, không cho phép ghi nữa}
                    continue;
                    end
                else continue;
        Trim := s;
        end;    
end; {Trim}

3. Đổi những chữ đầu của từ ra hoa còn lại là thường.

Code:

function TitleCase (Text :String) :String; {Đầu từ: chữ Hoa,khác: chữ thường}
var 
    flag:Boolean;
    i   :Byte;
begin
    if Length (Text) <= 1 then 
        Trim := Upper (Text)
    else
        begin
        flag := True;
        for i := 1 to Length (Text) do
        begin
            if Text [i] = ' ' then {Là khoảng trắng?,=>ký tự tiếp theo (nếu có) là ký tự đứng đầu 1 từ}
                begin
                flag := True;      {và cho phép ký tự đó là chữ Hoa}
                continue;
                end
            else                   {Không phải khoảng trắng}
                begin
                if flag then       {flag = True ?, => Chữ Hoa}
                    begin
                    Text [i] := UpCase (Text [i]);
                    flag := not (flag); {Đặt lại chữ thường} 
                    end
                else               {flag = false, => Chữ thường}
                    begin
                    Text [i] := LowCase (Text [i]);
                    end;
                end;
        end;
        TitleCase := Text;
        end;
end;

2. a) Đổi toàn bộ chuỗi ra hoa.

Code:

function Upper (Text :String) :String;
{2014/12}
var
    i :Integer;
begin
    for i := 1 to Length (Text) do Text [i] := UpCase (Text [i]);
    Upper := Text;
end;  {Upper}

2. b) Đổi toàn bộ chuỗi ra thường.

Code:

function Lower (Text :String) :String;
{2014/12}
var
    i :Integer;
begin
    for i := 1 to Length (Text) do
        if ((Ord (Text [i]) >= 65) and (Ord (Text [i]) <= 90)) then
            Text [i] := Chr (Ord (Text [i]) + 32);
    Lower := Text;
end;  {Lower}

KHÁC:
Đầu câu viết Hoa:

Code:

function Proper (Text :String) :String;
{2014/12}
begin
    Text := TrimLeft (Text);
    Text := Lower (Text);    
    Text [1] := UpCase (Text [1]);
    Proper := Text;
end;

{Giống hàm Exact trong Excel}
{So sánh chuỗi có giống nhau không}

Code:


function Exact (Text1, Text2 :String) :Boolean;
{2014/12}
begin
    Exact:=( (Length (Text1) = Length (Text2)) and (Pos (Text1, Text2) <> 0) );
end;

KHÁC:
{Giống hàm Left trong Excel}

Code:

function Left (Text :String; Num_Chars :Byte) :String;
{2014/12}
begin
    if Num_Chars >= Length (Text) then
        Left := Text
    else
        Left := Copy (Text, 1, Num_Chars);
end;

KHÁC:
{Giống hàm Right trong Excel}

Code:


function Right (Text :String; Num_Chars :Byte) :String;
{2014/12}
begin
    if Num_Chars >= Length (Text) then
        Right := Text
    else
        Right := Copy (Text, (Length (Text) - Num_Chars + 1), Num_Chars);
end;

8. Tìm kiếm và thay thế:

Thay thế ký tự:

Code:

function Find_Char (Find_Text :String; Within_Char :Char; Start_Num :Byte) :Byte;
{2014/12}
var
    Position :Byte;
begin
    Position := Pos (Within_Char, Copy (Find_Text, Start_Num, Length (Find_Text)));
    if (Position <> 0) then Position := (Position + Start_Num -1);
    Find_Char := Position;
end; {function Find_Char}

Tìm và thay thế chuỗi:
{Giống hàm find trong Excel}

Code:


function Find (Find_Text, Within_Text :String; Start_Num :Byte) :Byte;
{2014/12}
var
    Position :Byte;
begin
    Position := Pos (Within_Text, Copy (Find_Text, Start_Num, Length (Find_Text)));
    if (Position <> 0) then Position := (Position + Start_Num -1);
    Find := Position;
end; {function Find}

Tìm và thay thế chuỗi:
{Giống hàm SubStitute trong Excel}

Code:

function SubStitute (Text, Old_Text, New_Text :String) :String;
{2014/12/}
var
    Position :Byte;
begin
    while Pos (Old_Text, Text) <> 0 do 
    begin
        Position := Pos (Old_Text, Text);
        Delete (Text, Position, Length (Old_Text));
        Insert (New_Text, Text, Position);
    end;
    SubStitute := Text;
end; {SubStitute}

Tìm và thay thế chuỗi:
{Giống hàm Replace trong Excel}

Code:


function Replace (Old_Text :String; Start_Num, Num_Chars :Byte; New_Text :String) :String;
{2014/12}
begin
    Delete (Old_Text, Start_Num, Num_Chars);
    Insert (New_Text, Old_Text, Start_Num);
    Replace := Old_Text;
end; {Replace}

{Giống hàm Mid trong Excel}

Code:


function Mid (Text :String; Start_Num, Num_Chars :Byte) :String;
begin
    if Start_Num > Length (Text) then 
        Mid := ''
    else
        Mid := Copy (Text, Start_Num, Num_Chars);
end;

KHÁC:
{Đảo ngược chuỗi}

Code:

function Reverse (Text :String) :String; {Đảo ngược chuỗi}
{2014/12}
var
    String1 :string [1];
    L :Byte;    {Length}
    i :Byte;    {Counter}
begin
    L := Length (Text);
    for i:=1 to (L div 2) do {Lấy 2 nửa chuỗi hoán đổi}
    begin
        String1 [1] := Text [i];        {x=b}
        Text [i]    := Text [L-i+1];    {b=a}
        Text [L-i+1]:= String1 [1];     {a=x=b}
    end;
    Reverse := Text;
end;

--
-- Mặc dù từ 2012, nhưng có lẽ còn có ích với ai đó;
-- code trên còn dài, chưa hiệu phải hiệu quả, bạn nào sửa giúp.
--

**ntn5464** · 15-12-2014 21:07

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.
-->>>> Ai cho em code đi.... Có quà đấy

- - - Updated - - -

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.
-->>>> Ai cho em code đi.... Có quà đấy

**ada95** · 17-12-2014 05:44

Được gửi bởi ntn5464

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.
-->>>> Ai cho em code đi.... Có quà đấy

- - - Updated - - -

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.
-->>>> Ai cho em code đi.... Có quà đấy

------------------------
To: ntn5464
Bài toán trên với các số nguyên tố 2, 3, 5, 7, 11, 13, 17, 19 ...
có được ghép hoán vị 2 số liên tiếp không bạn?
Như 23, 32, 35, 53, 57, 75, 711, 117 ...?
Để có CT đúng.

** Vì k<=500 nên cần tối thiểu 1000 số nguyên tố để có 500 cặp số ghép (nếu ko hoán vị và cũng đều là số nguyên tố);
**
- Tính toán tìm số nguyên tố từ 1 tới n;
- Vừa tính: Cứ 2 số nguyên tố liên tiếp tạo thành số:
+ Xác định đó có phải là số nguyên tố hay không?
+ Nếu không là số nguyên tố, tiếp tục vòng lặp;
+ Nếu số đó là số nguyên tố ghép; lưu kết quả vào mảng A (hoặc dùng 1 biến tạm để đếm);
- Đồng thời xác định luôn số thứ tự của số nguyên tố ghép đó trong mảng A/ hoặc biến tạm để đếm (tìm ra số đầu tiên thì nó là 1, số thứ hai là 2 ...) cho đến khi số thứ tự trong A hoặc biến đếm = k thì dừng; số tính ra lần cuối cùng là kết quả.

**manhhung1598** · 17-12-2014 08:11

1, viết chương trình nhập vào mảng 1 chiềt A gồm n phần tử (n<=100) là các số nguyên dương. Hãy tính tổng các phần tử là số chẵn trong mảng A và thông báo kết quả ra ngoài màn hình

2, viết chương trình nhập vào xâu st . Hãy biến các kí tự trong xâu st thành in hoa và thông báo kết quả ra ngoài màn hình.

3, viết chương trình nhập vào xâu s1 và xâu s2 . Hãy in ra màn hình vị trí đầu tiên xuất hiện của xâu s2 trong xâu s1

4, viết chương trình nhập vào mảng 1 chiều A gồm n ptử (n<=100) là các số nguyên . Tìm ptử âm đầu tiên trong mảng A và chỉ số của nó . Thông báo kết quả ra ngoài màn hình

**ksc10** · 17-12-2014 18:56

Được gửi bởi ada95

** Vì k<=500 nên cần tối thiểu 1000 số nguyên tố để có 500 cặp số ghép (nếu ko hoán vị và cũng đều là số nguyên tố);
**
- Tính toán tìm số nguyên tố từ 1 tới n;
- Vừa tính: Cứ 2 số nguyên tố liên tiếp tạo thành số:
+ Xác định đó có phải là số nguyên tố hay không?
+ Nếu không là số nguyên tố, tiếp tục vòng lặp;
+ Nếu số đó là số nguyên tố ghép; lưu kết quả vào mảng A (hoặc dùng 1 biến tạm để đếm);
- Đồng thời xác định luôn số thứ tự của số nguyên tố ghép đó trong mảng A/ hoặc biến tạm để đếm (tìm ra số đầu tiên thì nó là 1, số thứ hai là 2 ...) cho đến khi số thứ tự trong A hoặc biến đếm = k thì dừng; số tính ra lần cuối cùng là kết quả.

Code này chạy hết giờ chưa xong :|
Bài này có tính giờ muh.