Viết chương trình pascal nhập vào 1 xâu bất kì.Đưa ra kết quả hàm copy (s,vt,n).vt,n nhập vào từ bàn phím

0 bình luận về “Viết chương trình pascal nhập vào 1 xâu bất kì.Đưa ra kết quả hàm copy (s,vt,n).vt,n nhập vào từ bàn phím”

1. uses crt;
   var s:string; n,vt:longint;
   begin
   clrscr;
      write(‘Nhap s: ‘);readln(s);
      write(‘Nhap n: ‘);readln(n);
      write(‘Nhap vt: ‘);readln(vt);
      writeln(copy(s,vt,n));
   readln
   end.

   Bình luận

2. * Cú pháp hàm copy: copy(<xâu>,<pos>,<số ký tự>);

   * Sao chép trong xâu, số ký tự tại vị trí pos.

   uses crt;
   var s:string; n,vt:longint;
   begin
   clrscr;
      write(‘Nhap xau s: ‘); readln(s);
      write(‘Nhap n: ‘); readln(n);
      write(‘Nhap vi tri: ‘); readln(vt);
      writeln(copy(s,vt,n));
   readln
   end.

   Bình luận