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.
Top 1 ✅ Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n k nam 2022 được cập nhật mới nhất lúc 2021-12-29 04:50:46 cùng với các chủ đề liên quan khác
Viết chương trình nhập ѵào 1 xâu từ bàn phím .a．In ra màn hình độ dài c̠ủa̠ xâu vừa nhập .b．Sử dụng xâu vừa nhập ở trên．Tiếp tục nhập từ bàn phím n k
Hỏi:
Viết chương trình nhập ѵào 1 xâu từ bàn phím .a．In ra màn hình độ dài c̠ủa̠ xâu vừa nhập .b．Sử dụng xâu vừa nhập ở trên．Tiếp tục nhập từ bàn phím n kViết chương trình nhập ѵào 1 xâu từ bàn phím.a．In ra màn hình độ dài c̠ủa̠ xâu vừa nhập.b．Sử dụng xâu vừa nhập ở trên．Tiếp tục nhập từ bàn phím n kí tự cần xóa， vị trí vt cần xóa．In ra màn hình xâu sau khi xóa．*
ai giúp em với ạ … thanks
Đáp:
cattien:uses crt;
var a，b:string;
begin
clrscr;
write[‘Nhap xau ki tu thu nhat: ‘];readln[a];
write[‘Nhap xau ki tu thu hai: ‘];readln[b];
if length[a]>length[b] then writeln[b] else if length[b]>length[a] then writeln[a] else begin writeln[a]; writeln[b];end;
readln
end.
uses crt;
var a，b:string;
begin
clrscr;
write[‘Nhap xau ki tu thu nhat: ‘];readln[a];
write[‘Nhap xau ki tu thu hai: ‘];readln[b];
if length[a]>length[b] then writeln[b] else if length[b]>length[a] then writeln[a] else begin writeln[a]; writeln[b];end;
readln
end.
uses crt;
var a，b:string;
begin
clrscr;
write[‘Nhap xau ki tu thu nhat: ‘];readln[a];
write[‘Nhap xau ki tu thu hai: ‘];readln[b];
if length[a]>length[b] then writeln[b] else if length[b]>length[a] then writeln[a] else begin writeln[a]; writeln[b];end;
readln
end.
Viết chương trình nhập ѵào 1 xâu từ bàn phím .a．In ra màn hình độ dài c̠ủa̠ xâu vừa nhập .b．Sử dụng xâu vừa nhập ở trên．Tiếp tục nhập từ bàn phím n k
Xem thêm : ...
Vừa rồi, seonhé.vn đã gửi tới các bạn chi tiết về chủ đề Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n k nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n k nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n k nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng seonhé.vn phát triển thêm nhiều bài viết hay về Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n k nam 2022 bạn nhé.
Sắp xếp dữ liệu là gì [Tin học - Lớp 7]
2 trả lời
Circle the best answer [Tin học - Lớp 2]
1 trả lời
Hệ điều hành là : [Tin học - Lớp 6]
2 trả lời
Nút lệnh bên thực hiện thao tác nào? [Tin học - Lớp 6]
2 trả lời
Câu lệnh pascal nào sau đây là hợp lệ? [Tin học - Lớp 8]
1 trả lời
Nút lệnh bên thực hiện thao tác nào [Tin học - Lớp 6]
2 trả lời
Giải Bài Tập Tin Học 11 – Bài tập và thực hành 5 giúp HS giải bài tập, giúp cho các em hình thành và phát triển năng lực sử dụng công nghệ thông tin và truyền thông:
Xem thêm các sách tham khảo liên quan:
- Sách Giáo Viên Tin Học Lớp 11
1. Mục đích, yêu cầu
Làm quen với việc tìm kiếm, thay thế và biến đổi xâu.
2. Nội dung
a] Hãy chạy thử chương trình sau:
program vd2; uses crt; var i,x:byte; a,p:string; begin clrscr; write['nhap xau:']; readln[a]; x:=length[a]; p:=''; for i:=x downto 1 do p:=p+a[i]; if a=p then write['xau la palindrome'] else write['xau khong phai la palindrome']; readkey; end.b] Hãy viết lại chương trình tên, trong đó không dùng biến xâu p.
Do xâu đảo ngược cũng chính là xâu viết xuôi nên
Xau[1]=Xau[length[xau]] Xau[2]=Xau[length[xau-1]] …..Vậy ta có thể làm theo cách sau:
Sử dụng biến I để đếm xuôi rồi so sánh với xau[length[xau]-i] nếu khác nhau thì kết luận luôn không phải là palindrome. Lặp đến khi nào i> length[xau]-I +1[Vì duyệt tiếp chỉ là sự lặp lại]
program vd2; uses crt; var a:string; i:integer; p:boolean; begin clrscr; write['nhap xau:']; readln[a]; i:=1; p:=true; while [i0 then writeln[chr[ord['A']+i],':',gt[i]]; readkey; end.Kết quả:
Trả lời:
Ta sẽ tìm vị trí mà từ ‘anh’ xuất hiện đầu tiên bằng hàm pos sau đó xóa từ ‘anh’ đi rồi chèn từ ’em’ vào.
Đến khi nào xâu ban đầu không còn từ ‘anh’ nữa thì dừng.
Video liên quan
viết chương trình nhập vào từ bàn phím xâu kí tự s. hãy in ra màn hình có bao nhiêu kí chữ cái xuất hiện trong xâu s? ví dụ: s='lop chung minh co 43 ban ' kết quả:17
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình nhập 1 xâu từ bàn phím, đưa ra: Đếm số ký tự ‘a’ có trong xâu.
Các câu hỏi tương tự
- Toán lớp 11
- Ngữ văn lớp 11
- Tiếng Anh lớp 11