Turn string and write

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Juraj Pupák
Program: Meno.pas
File exe: Meno.exe

Turn string and write.
{ MENO.PAS                                                          }
{ Vyziada si meno otoci ho a vypise.                                }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Meno;
uses crt;
var
  Cstr_Meno : string;
  Cstr_1 : string;
  i : integer;
  dlzka_mena : integer;
 
begin
  clrscr;
  writeln('Zadaj meno');
  readln(Cstr_Meno);
  clrscr;
  dlzka_mena := length(Cstr_Meno);
  For i :=  dlzka_mena downto 1 Do
    begin
      Cstr_1 := Cstr_1 + Cstr_Meno[i];
    end;
  writeln(Cstr_Meno);
  writeln(Cstr_1);
  readln;
end.