Правила форума
StrCat.PASЯзык:
Русский
English
{ Пример программы для функции StrCat }
uses Strings, Crt;
const
Turbo : PChar = 'Turbo';
Pascal : PChar = 'Pascal';
var
S : array[0 .. 15] of Char;
begin
StrCopy(S, Turbo);
StrCat(S, ' ');
StrCat(S, Pascal);
WriteLn(S);
end.
const
Turbo : PChar = 'Turbo';
Pascal : PChar = 'Pascal';
var
S : array[0 .. 15] of Char;
begin
StrCopy(S, Turbo);
StrCat(S, ' ');
StrCat(S, Pascal);
WriteLn(S);
end.
::
::
::
