Viết chương trình pascal nhập vào 1 xâu (gồm các ký tự khác như:khoảng trắng,dấu chấm câu,...) và đảo từng từ trong câu nhưng vẫn giữ nguyên các ký tự khác. Vd: IN: day la vi du. ok? OUT: yad al iv ud. ko? Mong các anh chị bro giúp!!!

Loga123123123

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

phamthiminhhoa9520152016

#include <iostream>
using namespace std;
string dnx(string s)
{
string t="";
for(int i=s.size()-1;i>=0;i--){
t+=s[i];
}
return t;
}
int main()
{
int n=0;
string s,t="";
getline(cin,s);
while(n<s.size()){
if(s[n]>='a'&&s[n]<='z'){
t+=s[n];
}
else if(!(s[n]>='a'&&s[n]<='z')&&t.size()>0){
s.replace(n-t.size(),t.size(),dnx(t));
t="";
}
n++;
}
cout<<s;
//samon247
return 0;
}

Vote (0) Phản hồi (0) 2 năm trước

huyenpt.c3kl

uses crt;
var s,a,k:string; i,j,m,n,x,l:longint; c:char; dau:array[1..255]of longint;
begin
clrscr;
write('In:');readln(s);
k:=':;?.,-()!`~}{[]"/''|\';
write('OUT:');
for i:=1 to length(s) do
begin
if((i=n)or(i=1)or((i>1)and(s[i-1]=' ')))and(s[i]<>' ') then
begin
j:=i; while (s[j+1]<>' ')and(j<=length(s)) do inc(j);
a:=copy(s,i,j-i+1); m:=length(a); l:=m+1;
for x:=1 to m do
if pos(a[x],k)=0 then
begin
repeat dec(l); until pos(a[l],k)=0;
if dau[x]<>1 then begin c:=a[x]; a[x]:=a[l]; a[l]:=c; dau[l]:=1; end;
end;
write(a);
end;
if s[i]=' ' then write(' ');
end;
readln
end.

////////////////////////////////////////

Một số text cho bạn tham khảo:

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Vẽ cho iem pic nì :)) Vẽ đẹp đẹp vào :))

Hôm nay mk bị bố ( bóp cổ ) các bn ko tin đúng ko nhưng đây là sự thật ,bố mẹ nói lớp 6 rồi mà chả đk tích sự gì,toàn làm theo ý mk. Mk rất buồn .vẽ giúp mk cái gì đó vui hoặc làm tâm trạng vui lên nhé

Vẽ cho iem pic nỳ :)) Vẽ cóa tâm nhớ . Đừng spam :)) Chúc ai may mắn giật đc slot :))

Vẽ ảnh dưới (Mình đíu thích bị đào câu hỏi nên là đào ai thì đào né né mình ra)

Làm giúp mình bài mà mình khoanh tròn nhé ! Ai làm xong trước thì được câu trả lời hay nhất!

rút gọn các biểu thức sau a) $\sqrt{(4+}$ $\sqrt{2})^{2}$ b) $\sqrt{3-}$ $\sqrt{3})^{2}$ c) $\sqrt{(4-}$ $\sqrt{17})^{2}$

cách viết sau đây chỉ ý gì ? 3 ngtử kali 5 Fe 4 Cu 2 0(2) 3 H(2)O 2 Ca0 Nacl 4 K 2 S 6 P

commute route voyage cruise expedition ride backpacking flight

nghĩa của put up? pick? cách dùng? phân biệt ride & drive

Mấy bạn giúp mình từ câu 5 tới câu 15 ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến