Cho xâu S chỉ chứa dấu “>”,”

Cho xâu kí tự S được lấy từ tập 'a'..'z','A'..'Z' và dấu cách. Từ trong xâu là dãy gồm tất cả các ký tự chữ cái liên tục. Xâu S được gọi là chuẩn hóa nếu thỏa mãn các điều kiện:-Giữa các từ chỉ có 1 dấu cách.-Đầu xâu và cuối xâu không có dấu cách.-Ký tự đầu là chữ in hoa, các ký tự còn lại in thường.Yêu cầu: Chuẩn hóa xâu...

#Tin học lớp 10

0

LC

Lê Chiêu Nguyên Vũ

5 tháng 4 2023

#Tin học lớp 8

0

NC

Ngô Chí Thành

8 tháng 4 2021

Viết chương trình nhập vào xâu ký tự S , độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu

- Xâu chuẩn là xâu không có dấu cách ở đầu câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 4 2021

Uses crt;

Var st:string;

I,d:integer;

Begin

Clrscr;

Write('nhap xau:'); readln(st);

D:=length(st);

While st[d]=#32 do

Begin

Delete(st,d,1);

D:=length(st);

End;

For i:=1 to d do

If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);

Writeln(st);

Readln;

End.

Đúng(1)

NC

Ngô Chí Thành

8 tháng 4 2021

Viết chương trình nhập vào xâu ký tự S ,độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu

-Xâu chuẩn là xâu không có dấu cách ở cuối câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 4 2021

Uses crt;

Var st:string;

I,d:integer;

Begin

Clrscr;

Write('nhap xau:'); readln(st);

D:=length(st);

While st[d]=#32 do

Begin

Delete(st,d,1);

D:=length(st);

End;

For i:=1 to d do

If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);

Writeln(st);

Readln;

End.

H

hoanganh

8 tháng 5 2021

Cho tệp XAU.TXT chứa 1 xâu ký tự

Viết chương trình đọc dữ liệu từ tệp XAU.TXT ra xâu S

Kiểm tra xâu S có là xâu đối xứng ?

M.n ai bt chỉ giúp e với

1

NL

Nguyễn Lê Phước Thịnh

8 tháng 5 2021

uses crt;

const fi='xau.txt';

var f1:text;

s:string;

i,d,kt:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,s);

d:=length(s);

kt:=0;

for i:=1 to d do

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

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

else writeln('Xau khong doi xung');

readln;

end.

NA

Nguyễn An

1 tháng 7 2021

Bài 5: Viết chương trình cho phép người dùng nhập vào từ bàn phím một xâu ký tự s gồm cả các kí tự chữ và các kí tự số. Hãy tách s thành 2 xâu con: s1 chỉ chứa các ký tự số, s2 chỉ chứa các ký tự chữ

#Công nghệ lớp 12

1

NL

Nguyễn Lê Phước Thịnh

10 tháng 7 2021

uses crt;

var s,s1,s2:string;

i,d:integer;

begin

clrscr;

readln(s);

s1:='';

s2:='';

d:=length(s);

for i:=1 to d do

begin

if s[i] in ['0'..'9'] then s1:=s1+s[i];

if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];

end;

writeln('Xau chua cac ki tu so la: ',s1);

writeln('Xau chua cac ki tu chu la: ',s2);

readln;

end.

Cho một xâu chỉ chứa các kí tự: chữ số, dấu cộng, dấu trừ, thể hiện một biểu thức số học. Yêu cầu: Tính giá trị của biểu thức đã cho. Biết xâu biểu thức không quá 255 kí tự, các số hạng và giá trị của biểu thức có độ lớn không quá 2.106 . Dữ liệu vào: (GTBT.INP) +Dòng 1: Ghi duy nhất một xâu kí tự thể hiện biểu thức cần tính. Dữ liệu ra: (GTBT.OUT) +Dòng 1: Ghi duy nhất một số nguyên là giá trị...

PF

PGD FF

11 tháng 12 2020

#Tin học lớp 8

1

PP

Phạm Phú

14 tháng 6 2021

program xau_so_hoc;
uses crt;
procedure xu_li;
var s, x, xau : string; i, tinh, j, f1, f2 : integer;
begin
write('nhap xau: '); readln(xau);
i:=1;
repeat
x:=''; s:='';
while (xau[i] in ['0'..'9']) and (i<=length(xau)) do
begin
x:=x+xau[i];
inc(i); {tim dau '+' hoac tru '-'/tim so truoc dau do}
end;
for j:=i+1 to length(xau) do
if xau[j] in ['0'..'9'] then s:=s+xau[j] else
break;
val(x,f1); val(s,f2); {chuyen doi xau thanh so};
if xau[i]='-' then
tinh:=tinh +(f1-f2) else
if xau[i] = '+' then
tinh:=tinh + (f1+f2);
{tinh toan voi xau va dau da tim duoc}
i:=j;
until i>=length(xau);
write('xau da tinh toan: ', tinh);
end;
{chuong trinh chinh}
begin
clrscr;
xu_li;
end.

PP

Phạm Phú

14 tháng 6 2021

có một số chỗ mình chú thích hơi sai

đại khái ý tưởng của mình là như này nè:

đầu tiên mình tìm dấu - hoặc + và tìm số đầu tiên trước dấu cộng hoặc trừ (vòng while đầu tiên), rồi tìm số sau dấu đó (vòng for sau đó).

rồi chuyển thành xâu, nếu - thì cộng biến với hiệu 2 số, nếu + thì mình cộng với hiệu hai số

lưu ý: vòng while chỉ dùng cho lần lập đầu tiên thôi, để tránh sai số những vòng repeat tiếp theo thì dùng vòng for để tìm số tiếp theo dấu vừa tìm được (số sau dấu vừa tìm được đã tìm ở vòng for lần lặp trước);

ví dụ để dễ mường tượng nè

1+1

i sẽ bằng 1 để tránh trường s[0] sẽ bị exit code

vòng repeat 1:

tìm được vị trí dấu + và số trước dấu + (vòng while);

tìm được số 1 (vòng for);

vòng for: sẽ được chạy từ giá trị của biến i+1 (do i đang ở vị trí của dấu vừa tìm được, không phải số nên nếu chạy từ i lúc cộng dồn sẽ là +1 chứ không phải là 1);

+ nếu như s[j] mà không phải số thì mình dừng vòng for lại (break)

đổi 2 số '1' thành kiểu số

biến 'tính' =0

tính:=tính + (1+1) ( vì đây là dấu +); => tính=2;

biến i sẽ bằng giá trị cuối của biến j nhận được

tức là bằng 3

mà 3 = độ dài của xâu nên vòng repeat dừng lại

vòng lặp của repeat chỉ có 1 vòng

MM

Magic_Kaitosan Magic

23 tháng 12 2022

Nhập vào 1 xâu kí tự S từ bàn phím, rồi in ra xâu kí tự đó sau khi đã xoá hết các dấu cách thừa ở đầu, cuối xâu và giữa các từ trong xâu chỉ để lại 1 dấu cách BẰNG PYTHON Mọi người giúp em với ạ 😢😢😢

Tìm số lớn nhất Cho xâu ký tự S chỉ gồm các số và các chữ. Lập trình tìm số lớn nhất trong xâu. - Tên file bài làm: TimMax.pas - Tên file Input : TimMax.inp o Gồm 1 dòng chứa xâu S - Tên file output : TimMax.out o Gồm 1 số là số lớn nhất trong xâu o Nếu không có số nào trong xâu ghi ra số...

0

PF

PGD FF

1 tháng 1 2021

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

2 tháng 1 2021

const fi='timmax.inp';

fo='timmax.out';

var f1,f2:text;

st,xauso:ansistring;

d,i,max,x:longint;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

xauso:='';

max:=0;

for i:=1 to d do

if st[i] in ['0'..'9'] then xauso:=xauso+st[i]

else begin

val(xauso,x);

if max<=x then max:=x;

xauso:='';

end;

if max=0 then writeln(f2,'-1')

else writeln(f2,max);

close(f1);

close(f2);

end.

NL

Nguyễn Linh

8 tháng 3 2021

cho một xâu ký tự chứa dấu cách trống trong tệp BT.INP. Ghi kết quả đếm các dấu cách trống trong xâu vào tệp BT.OUT

viết chương trình pascal Hoán vị ký tự theo khóa - Tên chương trình GRCAE.??? Nhập vào xâu S chỉ chứa các ký tự là chỉ cái in thường và khoảng trắng. Cho trước khóa m là một hoán vị của n số (2<n<18). Để mã hóa một xâu ký tự ta có thể chia xâu thành từng nhóm từ trái sang phải mỗi nhóm có n ký tự; nếu nhóm cuối không đủ n ký tự thì ta có thể thêm các ký tự trắng vào sau cho đủ. Sau đó hoán vị các ký tự trong...

1

NL

Nguyễn Lê Phước Thịnh

8 tháng 3 2021

const fi='bt.inp';

fo='bt.out';

var f1,f2:text;

st:string;

i,d,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i]=#32 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.

Đúng(1)

A

Asuna

5 tháng 1