Trang chủ Tin Học Lớp 8 Bài 1. Viết chương trình chuẩn hóa xâu theo quy...

Bài 1. Viết chương trình chuẩn hóa xâu theo quy tắc 1, Ko có kí tự trống ở đầu câu 2, Ko có kí tự trống ở cuối câu 3, Giữa 2 từ chỉ có 1 kí tự trốn

Câu hỏi :

Bài 1. Viết chương trình chuẩn hóa xâu theo quy tắc 1, Ko có kí tự trống ở đầu câu 2, Ko có kí tự trống ở cuối câu 3, Giữa 2 từ chỉ có 1 kí tự trống mn giup em voi a (pascal)

Lời giải 1 :

program xau;

uses crt;

var s:string;

begin

clrscr;

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

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)=#32 do delete(s,pos(#32#32,s),1);

writeln('Xau sau khi chuan hoa:',s);

readln

end.
                         CHÚC BẠN HỌC TỐT>33
                                             #12lyna

Thảo luận

-- bạn nhập câu hỏi vào đây đc k
-- Bài 3. Viết chương trình đếm số từ trong một xâu, biết rằng các từ cách nhau ít nhất một ký tự space? Gợi ý: Một cách đơn giản, em thêm một ký tự trống vào cuối xâu để làm giá trị cầm canh (dừng vòng lặp). Sau đó lặp từ đầu xâu đến cuối xâu, nếu ký t... xem thêm
-- program b3; uses crt; var s:string; i,dem:integer; begin clrscr; write('Nhap xau: '); readln(s); dem:=0; for i:=1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then dem:=dem+1; writeln('So tu co trong xau: ',... xem thêm
-- Đây nha
-- Ô BAN GIỎI QUÁ HÂM MỘ HAAAMMM MỘ
-- à vg kcj^^
-- xin hay nhất đc k bạn
-- program b3; uses crt; var s:string; i,dem:integer; begin clrscr; write('Nhap xau: '); readln(s); dem:=0; for i:=1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then dem:=dem+1; writeln('So tu co trong xau: ',... xem thêm

Lời giải 2 :

uses crt;
var s: string;
begin
clrscr;
    readln(s);
    while s[1]=' ' do delete(s,1,1);   // xoa khoang trang dau
    while s[pos('  ',s)]=' ' do delete(s,pos('  ',s),1);     // xoa khoang trang thua giua hai tu
    while s[length(s)]=' ' do delete(s,length(s),1);     // xoa khoang trang cuoi
    write(s);
    readln
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK