[Tin 8] dữ liệu chuỗi

  • Thread starter bachssun123@gmail.com
  • Ngày gửi
  • Replies 11
  • Views 909

B

bachssun123@gmail.com

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào chuỗi S bất kì sau đó in ra màn hình 2 kết quả: chuỗi con gồm các ký tự trong chuỗi S và tổng các giá trị của các ký tự là số trong chuỗi
VD:S='A312BC24DE'
==>S1=ABCDE
==>Tổng =3+1+2+2+4=12
Cố gắng giúp em ạ:-*/:)
 
L

lamnguyen.rs

Bài này cơ cmn bản thế mà :D
Mã: 
var
        S, S1: string;
        i, Sum: integer;
begin
        readln(S);

        S1 := '';
        for i := 1 to length(S) do
        begin
                if (S[i] in ['A'..'Z']) or (S[i] in ['a'..'z']) then
                        S1 := S1 + S[i]
                else
                        Sum := Sum + ord(S[i]) - 48;
        end;

        writeln('S1 = ', S1);
        writeln('Tong = ', Sum);
end.
 
B

bachssun123@gmail.com

lamnguyen.rs said:
Bài này cơ cmn bản thế mà :D
Mã: 
var
        S, S1: string;
        i, Sum: integer;
begin
        readln(S);

        S1 := '';
        for i := 1 to length(S) do
        begin
                if (S[i] in ['A'..'Z']) or (S[i] in ['a'..'z']) then
                        S1 := S1 + S[i]
                else
                        Sum := Sum + ord(S[i]) - 48;
        end;

        writeln('S1 = ', S1);
        writeln('Tong = ', Sum);
end.
Bấm để xem đầy đủ nội dung ...
Em mới học về chuỗi thôi ạ, cô giáo bảo đi thi không vào mà thi huyện vẫn vào nên phải học:p:p
Mà CODE thiếu Readln kìa
 
Last edited by a moderator:
B

bachssun123@gmail.com

lamnguyen.rs said:

Chạy CT bằng Ctrl-F9.
Xem kết quả bằng Alt-F5.
Đi thi nếu nhập xuất bằng file mà sử dụng readln ==> người chấm không bấm enter hộ mình ==> chương trình không kết thúc ==> mất điểm.
Hãy tin vào kinh nghiệm của mình :D
Bấm để xem đầy đủ nội dung ...

Cứ như đã thi quốc gia rồi ấy nhể, thế bác thi cấp nào rồi:D:D
 
L

lamnguyen.rs

Cho phép mình nói rõ thêm một lần nữa:
Chỉ dùng readln khi đề yêu cầu nhập xuất từ bàn phím.
Khi đề yêu cầu nhập xuất từ file thì bỏ ngay readln.
 
B

bachssun123@gmail.com

lamnguyen.rs said:
Cho phép mình nói rõ thêm một lần nữa:
Chỉ dùng readln khi đề yêu cầu nhập xuất từ bàn phím.
Khi đề yêu cầu nhập xuất từ file thì bỏ ngay readln.
Bấm để xem đầy đủ nội dung ...
Đa tạ tiền bối chỉ giáo, hi vọng em cũng được thi quốc gia, nhưng xem tỉnh thế nào đã, trình độ vẫn kém lắm/:)/:)
 
You must log in or register to reply here.
Top Bottom