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!!!

hyhytxxs

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

ngocuyenqhqn

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.

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

Bài này mình cũng có trả lời bên kia rồi nên không phải là copy của người khác đâu nhé

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

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

Chuyendong

#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;
}

#mod_ơi_đừng_xoá_của_em_mà:<

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

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

Điền phân thúc vào chỗ trống 5x + 10 . 4x - 8 . ...... = 5/2 x ³- x ²/ 1- x ² = ..../ x+1

vẽ đuy chơi lớn 60 điểm nhé vẽ 1 người con trai đang đi học về nhé người con trai đang đi ở giữa bên phải là 1 nơi hoang sơ hẻo lánh đáng sợ ( địa ngục ) bên trái là 1 nơi đầy sắc màu nhộn nhịp có màu còn ko vẽ đc thì vẽ anh dưới 😂😂😂😂😂😂😂😂😂 ko cần màu :)) nhưng giống 95% trở lên có line tô màu mắt nhé

Căn3 sinx +cosx =3 +1/căn3 sinx +cosx +1

Tính tổng sau : 1/9 + 3,25 + 5 và 3/16 + 4 và 1/3 + 2,8 + 0,5 Giúp mk với nhé

tim gtln ,gtnn E=x ²-11x=30 p= -3x ²-12x-25

Lập bảng bình phương của các số tự nhiên từ 0 đến20 ?!

1.Trên cùng một nửa mặt phẳng bờ chứa tia Ox,vẽ hai tia Oy,Oz sao cho góc xoy=80 độ;góc xoz=130 độ.Gọi Ot là tia đối của tia Oy,Oh là tia đối của tia Oz.Tính góc toh 2.Cho góc AOB=130 độ,trong góc AOB vẽ tia Oc sao cho Oc vuông góc với Oa.Tính góc BOC 3.Cho góc MON=80 độ.Vẽ Ot là tia phân giác của góc MON.Vẽ tia Oh sao cho Oh vuông góc với Ot.Tính góc MOh

Căn3 sinx +cosx =3 +1/căn3 sinx +cosx +1

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

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