Viết Chương Trình Nhập 1 Xâu Từ Bàn Phím. Hãy Cho

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

nguyenhogmih
Chưa có nhóm

Trả lời
2
Điểm
909
Cảm ơn
1

Tin Học
Lớp 11
10 điểm
nguyenhogmih - 10:30:06 19/03/2020

Bai nay lam the nao vay a ???

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

ttphulhp
Chưa có nhóm

Trả lời
913
Điểm
17366
Cảm ơn
515

ttphulhp

13/08/2020

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Bài 3:

program oken;uses crt;var s: string;begin clrscr; write('Nhap xau: '); readln(s); writeln('Xau vua nhap: ',s); writeln('Do dai cua xau: ',length(s)); readln;end.

Bài 4:

program oken;uses crt;var s: string; i: byte; kt: boolean;begin clrscr; write('Nhap xau: '); readln(s); kt:= false; for i:=1 to length(s) do if s[i] = ' ' then begin kt:=true; break; end; if kt=false then write('Trong xau khong co dau cach') else write('Trong xau co dau cach'); readln;end.

Bài 5:

program oken;uses crt;var s: string; i: byte;begin clrscr; write('Nhap xau: '); readln(s); for i:=1 to length(s) do s[i]:= upcase(s[i]); writeln('Xau in hoa: ',s); readln;end.

Bài 6:

program oken;uses crt;var s:string; i:integer;begin clrscr; write('nhap xau: '); readln(s); if (s[1]=' ') then delete(s,1,1); if (s[length(s)]=' ') then delete(s,length(s),1); for i:=length(s) downto 1 do if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1); for i:=1 to length(s) do begin if s[i]in['A'..'Z'] then s[i]:=chr(ord(s[i])+32); if (s[i]=' ') then s[i+1]:=upcase(s[i+1]); end; s[1]:=upcase(s[1]); writeln('xau sauu khi chuan hoa: ',s); readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4.4starstarstarstarstar5 voteGửiHủy

Cảm ơn 5

- nongliu
- Chưa có nhóm
- Trả lời
  7
- Điểm
  934
- Cảm ơn
  3
Giúp mình làm 1 bài được k ạ
- nongliu
- Chưa có nhóm
- Trả lời
  7
- Điểm
  934
- Cảm ơn
  3
Nhập vào 1 xâu từ bàn phím. Đưa ra màn hình mỗi từ 1 dòng
- mysoii279
- Chưa có nhóm
- Trả lời
  0
- Điểm
  50
- Cảm ơn
  0
Đọc vào một câu ít hơn 10 kí tự từ bàn phím rồi đưa ra màn hình dưới dạng 1 cột giúo mình với a

Đăng nhập để hỏi chi tiết avatar

tranhungfckt123
Chưa có nhóm

Trả lời
166
Điểm
1701
Cảm ơn
86

tranhungfckt123

19/03/2020

Câu 3:

program tin_hoc;

uses crt;

var s:string;

begin

clrscr;

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

writeln(s);

writeln(length(s));

readln;

end.

Bài 4:

program Tin_hoc;

uses crt;

var i,d:integer;

s:string;

begin

clrscr;

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

for i:= 1 to length(s) do if ord(s[i]) = 32 then n:= 1;

if n= 1 then write('Co dau cach') else write('Khong co dau cach');

readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar4 voteGửiHủy

Cảm ơn 6
Báo vi phạm

Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK TIN 11 - TẠI ĐÂY

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Tham Gia Group Dành Cho Lớp 11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

BÀI TẬP BÀI 3: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó và độ dài của xâu. BÀI 4: Viết chương trình nhập 1 xâu từ bàn phím. Hãy cho biết trong xâu đó có dấu cách hay không? BÀI 5: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó dưới dạng in hoa. ...

Xem thêm

Bảng tin