Tin học Xâu kí tự...

[Team2k2]

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

- ai giỏi pascal jup mk vs
Viết ctrình nhập 2 xâu s1 và s2 từ bàn phím. Chèn xâu s1 vào s2 bắt đầu từ ví trí đầu tiên. Xóa 3 kí tự đầu của xâu vừa chèn.

 

[Team2k2]

- ai giỏi tin k, vô jup e vs ...........................................................................................

 

[Team2k2]

Lỗi biểu diễn? chỗ insert ai sửa jup mk vs.

 

[iceghost]

Lỗi biểu diễn? chỗ insert ai sửa jup mk vs.
View attachment 100875

Khai báo $c$ với $h$ là string chứ bạn?

 

[Trâm Nguyễn Thị Ngọc]

- ai giỏi pascal jup mk vs
Viết ctrình nhập 2 xâu s1 và s2 từ bàn phím. Chèn xâu s1 vào s2 bắt đầu từ ví trí đầu tiên. Xóa 3 kí tự đầu của xâu vừa chèn.

Uses Crt;
Var
 s1,s2:string;
Begin
   write('nhap vao hai xau:');
   readln(s1);
   readln(s2);
   Insert(s1,s2,1);
   Delete(s1,1,3);
   write(s1);
readln
End.

 

[Team2k2]

Uses Crt;
Var
 s1,s2:string;
Begin
   write('nhap vao hai xau:');
   readln(s1);
   readln(s2);
   Insert(s1,s2,1);
   Delete(s1,1,3);
   write(s1);
readln
End.

Nó ra kết quả sai r b.

 

[Trâm Nguyễn Thị Ngọc]

View attachment 100891
Nó ra kết quả sai r b.

sr chị, em nhầm, chị sửa lại chỗ insert là:
Insert(s2,s1,1);

 

[Team2k2]

sr chị, em nhầm, chị sửa lại chỗ insert là:
Insert(s2,s1,1);

nhưng mà chèn xâu s1 vào s2. Có phải s2 vào s1 đâu b?

 

[Trâm Nguyễn Thị Ngọc]

nhưng mà chèn xâu s1 vào s2. Có phải s2 vào s1 đâu b?

Vậy thì như này:

Uses Crt;
Var
 s1,s2:string;
Begin
   write('nhap vao hai xau:');
   readln(s1);
   readln(s2);
   Insert(s1,s2,1);
   Delete(s2,1,3);
   write(s2);
readln
End.