Navigace: Hlavní stránka -> PASCAL -> 10 Znaky, texty ->10.01 Spojení 3 textových řetězců do jednoho řetězce znaků

MENU

10.01 Spojení 3 textových řetězců do jednoho řetězce znaků

Zadání:
Sestavte program, který spojí tři zadané řetězce do jednoho.
Řešení:
Program ukazuje spojení tří řetězců do jednoho příkazem concat, který může být nahrazen operátorem +. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:string[20];
    v:string[60];

begin

   write('Zadejte prvni retezec: ');
   readln(a);
   write('Zadejte druhy retezec: ');
   readln(b);
   write('Zadejte treti retezec: ');
   readln(c);

   v:=a+b+c;
   writeln(v);

   v:=concat(a,b,c);
   writeln(v);

   readln;

end.
program ke stažení