Viết chương trình nhập vào một xâu và in mỗi từ của xâu lên một hàng ( xâu chưa là xâu chuẩn ).
Viết chương trình nhập vào một xâu và in mỗi từ của xâu lên một hàng
Bắt đầu bởi thang1308, 07-09-2016 - 17:58
#1
Đã gửi 07-09-2016 - 17:58
thang1308
-
- Thành viên
-
- 197 Bài viết
Trung sĩ
Hôm nay thi xong. Căn bản là mệt!!! 
#2
Đã gửi 21-09-2016 - 19:38
NTL2k1
-
- Thành viên
-
- 99 Bài viết
Hạ sĩ
Viết chương trình nhập vào một xâu và in mỗi từ của xâu lên một hàng ( xâu chưa là xâu chuẩn ).
program "từ cấm";
ues crt;
var st:string;
i:integer;
begin
clrscr;
write('Nhap xau la:');readln(st);
while st[1]=chr(32) do
delete(st,1,1);
while st[length(st)]=chr(32) do
delete(st,length(st),1);
while pos(#32#32,st)<>0 do
delete(st,pos(#32#32,st),1);
for i:=1 to length(st) do
begin
write(st[i]);
if st[i]=#32 then
writeln;
end;
readln
end.
Bài viết đã được chỉnh sửa nội dung bởi NTL2k1: 21-09-2016 - 19:41
- thang1308 yêu thích
Bình tĩnh - Tự tin - Chiến thắng
Không phải là tôi quá thông minh, chỉ là tôi chịu bỏ nhiều thời gian hơn với rắc rối .
Cứ làm việc chăm chỉ trong im lặng - Hãy để thành công trở thành tiếng nói của bạn .
0 người đang xem chủ đề
0 thành viên, 0 khách, 0 thành viên ẩn danh
