Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: program sprawdza czy tekst jest palindromem

W dół

Od 1 do 1 z 1

  1.  
  1.  
    program zad8;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var
    tekst,wyraz,wyraz2:string;
    i:integer;
    begin
    writeln('Wprowadz jakis tekst');
    readln(tekst);
    wyraz:='';
    for i:=1 to length(tekst) do
    if (tekst[i]in['A'..'Z'])or(tekst[i] in ['a'..'z']) then
    begin
    if (tekst[i]in['A'..'Z']) then
    wyraz:=wyraz+chr(ord(tekst[i])+32)
    else
    wyraz:=wyraz+tekst[i];
    end;
    wyraz2:='';
    for i:=1 to Length(wyraz) do
    wyraz2:=wyraz2+wyraz[Length(wyraz)-i+1];
    if wyraz2=wyraz then
    writeln('Tekst ten jest palindromem')
    else
    writeln('Tekst ten nie jest palindromem');
    readln;
    end.

Od 1 do 1 z 1

  1.