fork download
copy 
  1. program szovegek;
  2. var kod,c1,kod2,ch: char;
  3.     cim: string;
  4.     nev: string[25];
  5.     lakcim : string[40];
  6.     s1,s2,szoveg: string;
  7.     x,i:integer;
  8. begin
  9.     {karakterek deklarációja}
  10.     kod:='A';                {értékadás char típusnál}
  11.     c1:='+';
  12.     {szöveges (karakterlánc) adattípus deklarálása}
  13.     nev:='Aranyos Imre';     {értékadás string típusnál}
  14.     lakcim:='Dunaújváros';
  15.     kod2:=lakcim[1];         {hivatkozás string elemére, a kod2 értéke
  16.                               a 'D' betű lesz} 
  17.     writeln('kod=',kod,' c1=',c1,' nev=',nev,' lakcim=',lakcim,' kod2=',kod2);
  18.     {szövegegyesítés}
  19.     s1:='Repul';
  20.     s2:=' a nehez ko...';
  21.     szoveg:=s1+s2+' (Arany Janos)';
  22.     writeln('s1=',s1,' s2=',s2,' szoveg=',szoveg);
  23.     {szövegegyesítés}
  24.     szoveg:=concat(s1,s2);
  25.     writeln('szoveg=',szoveg);
  26.     {szövegrész kimásolása}
  27.     szoveg:=copy(s2,4,5);
  28.     writeln('szoveg=',szoveg);
  29.     {szövegrész törlése}
  30.     delete(szoveg,1,3);
  31.     writeln('szoveg=',szoveg);
  32.     {szöveg beillesztése}
  33.     insert('res',szoveg,2);
  34.     writeln('szoveg=',szoveg);
  35.     {a szöveg hossza}
  36.     x:=length(szoveg);
  37.     writeln('szoveg hossza, x=',x);
  38.     {szövegrészlet pozíciójának megállapítása}
  39.     x:=pos('nehez',s2);
  40.     writeln('a nehez pozicioja az s2-ben, x=',x);
  41.     {szám átalakítása szöveggé}
  42.     x:=25;
  43.     str(x,s1);
  44.     writeln('az s1, mint szoveg az = ',s1,', s1+''2'' = ',s1+'2');
  45.     {szöveg átalakítása számmá}
  46.     s1:='25';
  47.     val(s1,x,i);
  48.     writeln('az x, mint szam az = ',x,', x+2 = ',x+2);
  49.     {egy karakter átalakítása nagybetűssé}
  50.     ch:='d';
  51.     writeln('kezdetben a ch = ',ch);
  52.     ch:=upcase(ch);
  53.     writeln('atalakitva nagybetusse a ch = ',ch);
  54.     {a következő karakter}
  55.     ch:='d';
  56.     writeln('kezdetben a ch = ',ch);
  57.     ch:=succ(ch);
  58.     writeln('a ch-t koveto karakter az = ',ch);
  59.     {az előző karakter}
  60.     ch:='d';
  61.     writeln('kezdetben a ch = ',ch);
  62.     ch:=pred(ch);
  63.     writeln('a ch-t megelozo karakter az = ',ch);
  64.     {a karakter kódja}
  65.     x:=ord(ch);
  66.     writeln('a ',ch,' kodja az x=',x);
  67.     {a megadott kódú karakter meghatározása}
  68.     x:=97;
  69.     ch:=chr(x);
  70.     writeln('a ',x,' kodu karakter az ch=',ch);
  71.     writeln('<tab>',#9,'<tab>',#10,#13,'<enter>');
  72.     writeln('a hexadecimalis 45 tizesben sz ',$45,
  73.             ' a hexa 45 kodu karakter az ',#$45);
  74.     readln;
  75. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
kod=A c1=+ nev=Aranyos Imre lakcim=Dunaújváros kod2=D
s1=Repul s2= a nehez ko... szoveg=Repul a nehez ko... (Arany Janos)
szoveg=Repul a nehez ko...
szoveg=nehez
szoveg=ez
szoveg=eresz
szoveg hossza, x=5
a nehez pozicioja az s2-ben, x=4
az s1, mint szoveg az = 25, s1+'2' = 252
az x, mint szam az = 25, x+2 = 27
kezdetben a ch = d
atalakitva nagybetusse a ch = D
kezdetben a ch = d
a ch-t koveto karakter az = e
kezdetben a ch = d
a ch-t megelozo karakter az = c
a c kodja az x=99
a 97 kodu karakter az ch=a
<tab>	<tab>

<enter>
a hexadecimalis 45 tizesben sz 69 a hexa 45 kodu karakter az E
https://ideone.com/rJWQ9R
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

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!