Sezon zaliczeń w pełni i kolejny leń. Czego niewiesz? Taki program to banalny, chyba że źle coś tłumaczysz,
bo to co robisz nie ma nic wspólnego z anagramami. Poza tym dane wyjściowe napisałeś takie same jak te z
wejścia, jedynie tylko powiększyłeś litery. Jak ma przestawić słowa, że najpier jest to które było po spacji, a
po nim te które było przed spacją to zrobi to poniższy kod i naucz się trochę samodzielności, bo nie każde z
zadań w szkole czy na uczelni ktoś zrobi za Ciebie. Cały semest się pewnie obijałeś i nagle zonk - zaliczenie.
program a;
const
In_Nazwa = 'wejscie.txt';
Out_Nazwa = 'wyjscie.txt';
function FileExists(FileName : string) : boolean;
var
F : file;
begin
{$I-}
Assign(F, FileName);
Reset(F);
{$I+}
if IOResult = 0 then
begin
FileExists := True;
Close(F);
end
else
begin
FileExists := FALSE;
end;
end;
var
PozycjaSpacji : Word;
PlikIn, PlikOut : Text;
Linia, Slowo1, Slowo2 : string;
begin
if FileExists(In_Nazwa) = False then
begin
Writeln('Plik: ' + In_Nazwa + ' nie istnieje!');
Readln;
end
else
begin
Assign(PlikIn, In_Nazwa);
Reset(PlikIn);
Assign(PlikOut, Out_Nazwa);
Rewrite(PlikOut);
while EOF(PlikIn) = False do
begin
Readln(PlikIn, Linia);
PozycjaSpacji := Pos(#32, Linia);
if (PozycjaSpacji = 0) or (PozycjaSpacji = 1) then
begin
Writeln('Nieprawidlowe dane w pliku: ', In_Nazwa);
Readln;
Exit;
end;
Slowo1 := Copy(Linia, 1, PozycjaSpacji - 1);
Slowo2 := Copy(Linia, PozycjaSpacji + 1, MaxInt);
Writeln(PlikOut, Slowo2 + #32 + Slowo1);
end;
Close(PlikIn);
Close(PlikOut);
end;
end.