cùng nhau cất bước

You are not connected. Please login or register

Giải bài tập TIN HỌC (Thầy Tú): Ký tự và Chuỗi

Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

Hix... Sau một thời gian ôn luyện chuẩn bị thi HSG giờ đây mới có thời gian lên lại Diễn đàn!
Xem tình hình bọn này post bài khiếp quá, mình quyết định spam lại cho bõ chán bằng các bài giải tin học... he he he! cyclops

Xem lý lịch thành viên

2 Bài 31. on Mon Apr 12, 2010 10:15 pm

Bài 31. Viết chương trình nhập vào một chuỗi, cho biết:
a. Độ dài của chuỗi.
b. Trong chuỗi có bao nhiêu ký tự 'a', ký tự 'A'
c. Cho biết chuỗi có mấy khoảng trắng và ở những vị trí nào.

!!! Bài này dễ, nên chắc em không cần làm! (sorry spam)

Xem lý lịch thành viên

3 Bài 32. on Mon Apr 12, 2010 10:31 pm

Nhập vào chuỗi S1 và S2, in ra màn hình:
a. Hai chuỗi này có bằng nhau không?
b. Hai chuỗi này có bằng nhau không nếu chỉ xét k ký tự đầu tiên.

!!! Bài này cũng dễ! (Tiếp tục spam)

Chương trình bài toán:
VAR s1, s2:string;
i, k:byte;
b:boolean;
BEGIN
write('Nhập chuỗi S1: '); readln(s1);
write('Nhập chuỗi S2: '); readln(s2);
write('Số ký tự muỗn xét: '); readln(k);
if s1=s2 then writeln('Hai chuỗi này bằng nhau!') else writeln('Hai chuỗi này không bằng nhau!');
b:=true;
for i:=1 to k do
if not s1[i]=s2[i] then b:=false;
if b=true then writeln(k,' ký tự đầu của 2 chuỗi bằng nhau.');
else writeln(k,' ký tự đầu của 2 chuỗi không bằng nhau.');
readln
END.

Xem lý lịch thành viên
thanks nhá Very Happy thumbs down

Xem lý lịch thành viên http://a3online.huhohi.com

Sponsored content


Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết