Tin học xâu kí tự

[havy1207]

[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.

giúp mình 2 bài này
1. viết chương trình cho phép tính chiều dài của xâu kí tự biết:
+ xâu kí tự chứa trong tệp input.dat
+ độ dài xâu kí tự chứa trong tệp output.dat
2. viết chương từinh cho phép đưa ra xâu kí tự nghịch đảo biết:
+ xâu kí tự cho trước chứa trong tệp inp.dat
+ xâu kí tự nghịch đảo chứa trong tệp out.dat

 

[rabbit.thuy]

Câu 1: bạn sử dung lệnh length(s) là độ dài của xâu s. Tức k:=length(s), sau đó write k;
Câu 2: sử dụng một biến s1 để lưu xâu s đã được đảo ngược, sử dụng for lùi:

For i:=length(s) downto 1 do
                s1:=s1+s[i];

sau đó write s1