K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

24 tháng 12 2020

uses crt;

var st,st1:string;

i,d,kt:integer;

begin

clrscr;

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

d:=length(st);

kt:=0;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Day la xau doi xung')

else begin

st1:='';

for i:=d downto 1 do 

  st1:=st1+st[i];

writeln('Xau dao cua xau ',st,' la: ',st1);

end;

readln;

end.

27 tháng 12 2020

thanks

program doixung;

var

    str, reverseStr: string;

    i, count, maxWordLength: integer;

    words: array of string;

begin

    write('Nhập vào một xâu kí tự: ');

    readln(str);

    reverseStr := '';

    for i := length(str) downto 1 do

        reverseStr := reverseStr + str[i];

    if str = reverseStr then

        writeln('Xâu là đối xứng')

    else

    begin

        writeln('Xâu không đối xứng');

        writeln('Xâu đảo ngược: ', reverseStr);

    end;

    count := 0;

    maxWordLength := 0;

    SetLength(words, 0);

    while Length(str) > 0 do

    begin

        i := Pos(' ', str);

        if i = 0 then

            i := Length(str) + 1;

        if i - 1 > maxWordLength then

            maxWordLength := i - 1;

        SetLength(words, Length(words) + 1);

        words[Length(words) - 1] := Copy(str, 1, i - 1);

        Delete(str, 1, i);

        Inc(count);

    end;

    writeln('Số từ trong xâu: ', count);

    writeln('Từ dài nhất: ', maxWordLength);

end.

 
19 tháng 8 2023

Tham khảo:

Quy trình thiết kế theo phương pháp làm mịn dần để kiểm tra xâu kí tự có là đối xứng hay không gồm các bước sau:

Bước 1: Nhận đầu vào là xâu kí tự cần kiểm tra.

Bước 2: Loại bỏ các kí tự không cần thiết, chẳng hạn khoảng trắng và dấu cách, để chuẩn bị cho quá trình kiểm tra.

Bước 3: Chuyển đổi xâu kí tự về dạng chữ thường hoặc dạng chữ hoa (tuỳ thuộc vào yêu cầu của đề bài) để đảm bảo tính nhất quán trong quá trình kiểm tra.

Bước 4: Sử dụng một vòng lặp để so sánh các kí tự ở đầu và cuối xâu kí tự, sau đó di chuyển lần lượt về phía nhau.

Bước 5: Trong quá trình lặp lại, so sánh các kí tự ở hai vị trí tương ứng với nhau. Nếu chúng khác nhau, xâu kí tự không là đối xứng và chương trình dừng lại, trả về kết quả là "Không đối xứng".

Bước 6: Nếu các kí tự ở hai vị trí tương ứng với nhau đều giống nhau, tiếp tục di chuyển các con trỏ về phía nhau và so sánh các kí tự tiếp theo cho đến khi hoàn thành kiểm tra toàn bộ xâu kí tự.

Bước 7: Nếu tất cả các cặp kí tự ở vị trí tương ứng với nhau đều giống nhau, tức là xâu kí tự là đối xứng, chương trình dừng lại và trả về kết quả là "Đối xứng".

 

Bước 8: Kết thúc chương trình và đưa ra kết quả cuối cùng.

Chương trình:

def kiem_tra_doi_xung(xau):

 # Loại bỏ các kí tự không cần thiết và chuyển đổi xâu về dạng chữ thường

 xau = xau.replace(" ", "").lower()

 n = len(xau)

 # Sử dụng vòng lặp để kiểm tra từ đầu và cuối xâu kí tự

 for i in range(n // 2):

  if xau[i] != xau[n - i - 1]:

   return "Không đối xứng"

 return "Đối xứng"

31 tháng 10 2021

#include <iostream>
#include <string>
using namespace std;
int main()
{
    string st;
    int dai,i,kt;
    cout<<"Nhap chuoi:"; getline(cin,st);
    dai=st.length();
    kt=0;
    for (int i=0;i<dai;i++)
        if (st[i]!=st[dai-i-1]) kt=1;
    if (kt==0) cout<<"YES";
    else cout<<"NO";
    return 0;
}

 

10 tháng 11 2021

giúp mk thêm 1 câu nx đk?

8 tháng 9 2019

- Nếu Mặt Trăng có quỹ đạo tròn hoàn hảo, gần hơn Trái Đất một chút, và trong cùng mặt phẳng quỹ đạo, sẽ có nhật thực toàn phần xảy ra mỗi lần trong một tháng. Tuy nhiên, quỹ đạo của Mặt Trăng nghiêng hơn 5° so với mặt phẳng quỹ đạo của Trái Đất quanh Mặt Trời, do vậy bóng của Mặt Trăng lúc trăng non thường không chiếu lên Trái Đất. Để hiện tượng nhật thực cũng như nguyệt thực xảy ra, Mặt Trăng phải đi qua mặt phẳng quỹ đạo của Trái Đất. Hơn nữa, quỹ đạo của Mặt Trăng có hình elip, và nó thường ở đủ xa Trái Đất khiến cho kích cỡ biểu kiến của nó không đủ lớn để che khuất hoàn toàn Mặt Trời lúc nhật thực. Mặt phẳng quỹ đạo của Mặt Trăng và của Trái Đất mỗi năm cắt nhau tại các điểm nút lên và nút xuống của quỹ đạo; và có ít nhất là 2 và nhiều nhất là 5 lần nhật thực xảy ra trong một năm, cũng không thể có nhiều hơn hai lần nhật thực toàn phần trong cùng một năm. Tuy nhiên, tại một nơi cụ thể trên Trái Đất, hiện tượng nhật thực toàn phần xảy ra là rất hiếm bởi vì bóng của Mặt Trăng trong lúc hiện tượng này xảy ra đổ lên Trái Đất theo một dải hẹp và trong thời gian ngắn, với lần lâu nhất khoảng 7 phút (nhật thực toàn phần ngày 20 tháng 7 năm 1955).

- Còn nguyệt thực toàn phần xảy ra khi ánh sáng mặt trời trực tiếp bị bóng của trái đất che hoàn toàn. Ánh sáng duy nhất nhìn thấy được là khúc xạ qua bóng tối của trái đất. Ánh sáng này có màu đỏ vì cùng lý do hoàng hôn có màu đỏ, do sự tán xạ Rayleigh của các tia sáng màu có bước sóng ngắn hơn. Bởi vì màu đỏ của nó, nguyệt thực toàn phần đôi khi được gọi là mặt trăng máu.

- Không giống như nhật thực, mà chỉ có thể được nhìn thấy từ một khu vực tương đối nhỏ trên thế giới, nguyệt thực có thể được nhìn từ bất cứ nơi nào ở nửa tối của trái đất. Nguyệt thực kéo dài trong vài giờ, trong khi nhật thực toàn phần chỉ kéo dài trong vài phút tại bất kỳ vị trí nào do kích thước nhỏ hơn của bóng của Mặt trăng. Không giống như nhật thực, nguyệt thực có thể quan sát một cách an toàn bằng mắt thường vì hình ảnh nguyệt thực mờ hơn so với hình ảnh mặt trăng đầy đủ.

Chúc bạn học tốt!

9 tháng 9 2019

cam on ban nhieu

25 tháng 12 2021

d

25 tháng 12 2021

A chu

4 tháng 1 2022

D

3 tháng 3 2021

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

uses crt;

var st:string[100];

i,d,kt:integer;

begin

clrscr;

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

kt:=0;

for i:=1 to length(st) do

if st[i]<>st[length(st)-i+1] then kt:=1;

if kt=0 then write('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.