Trang chủ Tin Học Lớp 12 Bài 1: Nhập vào một xâu kí tự. Hãy kiểm...

Bài 1: Nhập vào một xâu kí tự. Hãy kiểm tra xem xâu vừa nhập có biểu diễn một số nguyên dương hay không. Nếu không, hãy tìm cách xóa đi ít nhất các kí tự trong

Câu hỏi :

Bài 1: Nhập vào một xâu kí tự. Hãy kiểm tra xem xâu vừa nhập có biểu diễn một số nguyên dương hay không. Nếu không, hãy tìm cách xóa đi ít nhất các kí tự trong xâu vừa nhập, để xâu sau khi xóa biểu diễn một số nguyên dương. Ví dụ: Nhập chuỗi: 85h4992va937#249 • Chuỗi vừa nhập không biểu diễn một số nguyên dương • Cần bỏ đi ít nhất 4 kí tự để xâu còn lại biểu diễn một số nguyên dương. • Xâu sau khi xóa các kí tự là: 854992937249 Bài 2: Cho hai xâu kí tự S1 và S2 được nhập từ bàn phím. Hãy đếm số lần xuất hiện của xâu S2 trong xâu S1. Ví dụ: Nhập S1 = “Chung toi di lam vi ban, hay o yen trong nha vi chung toi!” • Nếu S2 = ‘ung’ thì số lần xuất hiện của S2 trong xau S1 là 2 • Nếu S2 = ‘hoa’ thì số lần xuất hiện của S2 trong xau S1 là 0 Bài 3: Viết chương trình thực hiện các công việc sau: a. Nhập vào một xâu kí tự (bao gồm cả các kí tự trống) b. Loại bỏ toàn bộ các kí tự thừa trong xâu (kí tự thừa là các kí tự trống ở đầu, cuối xâu, hoặc kí tự trống cạnh một kí tự trống khác về bên trái). c. Đếm và thông báo số từ của xâu đã nhập, trong đó từ là các kí tự liền nhau không chứa kí tự trống. Ví dụ: Nhập vào xâu: “ Hom nay toi khong di lam “ Kết quả: o Xâu sau khi loại bỏ kí tự thừa là “Hom nay toi khong di lam” o Xâu có 6 từ

Lời giải 1 :

Bai 1:

program Tin_hoc;

uses crt;

var i:integer;

     s1,s2:string;

begin

clrscr;

writeln('Nhap xau:');readln(s1);

s2:='';

for i:=1 to length(s1) do if s1[i] in ['0'..'9'] then s2:= s2+s1[i];

writeln(s2);

readln;

end.

Thảo luận

Lời giải 2 :

Bài 2

program hotrotinhoc;

var s1,s2: string;

i,n,d: integer;

begin

readln(s1);

readln(s2);

while pos(s2,s1)<>0 do

begin

inc(d);

delete(s1,pos(s2,s1),length(s2));

end;

write('So lan xuat hien xau s2 trong xau s1 la :',d);

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ự 12

Lớp 12 - Năm cuối ở cấp tiểu học, năm học quan trọng nhất trong đời học sinh trải qua bao năm học tập, bao nhiêu kì vọng của người thân xung quanh ta. Những nỗi lo về thi đại học và định hướng tương lai thật là nặng. Hãy tin vào bản thân là mình sẽ làm được rồi tương lai mới chờ đợi các em!

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