fork(2) download
copy 
  1. Program Pos_ch;
  2. Var ch1, ch2 : String;
  3. i, p : Integer;
  4. Begin
  5. Write ('ch1 = ');
  6. Readln (ch1);
  7. Write ('ch2 = ');
  8. Readln (ch2);
  9. i:=1 ;
  10. p:=0;
  11. Repeat
  12. If ch1 = COPY (ch2, i, Length (ch1)) Then p:=i;
  13. i:=i+1;
  14. Until (Length (ch2)-i < Length (ch1)) Or (p<>0);
  15. Writeln ('La chaîne ', ch1, ' occupe la position ', p,' dans la chaîne ', ch2);
  16. End.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
a
bac
stdout
copy 
ch1 = ch2 = La chaîne a occupe la position 2 dans la chaîne bac
https://ideone.com/42aOlf
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!