Program overí, či zadané 6 ciferné číslo je palindróm

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Začátečníci

Autor: Danciwo
Program: Palindrom.pas
Soubor exe: Palindrom.exe

Program overí, či zadané 6 ciferné číslo je palindróm.
{ PALINDROM.PAS                               Copyright (c) Danciwo }
{ Program zisti ci zadane 6 ciferne cislo je palindrom.             }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }
 
program palindrom;
uses crt;
 
var a:array[1..6] of integer;  { Cislo prevedieme z retazca na pole }
    s:string;                  { Sem nacitame nase cislo            }
    v1:boolean;
    v2:boolean;
    v3:boolean;
    i:integer;
 
begin
 clrscr;
 readln(s);
 v1:=false; v2:=v1; v3:=v1;	{ Naplnenie premennych nepravdou }
 
 for i:= 1 to 6 do		{ Prevod retazca na pole cisel   } 
     val(s[i],a[i],a[i]);
 
 if a[1]=a[6] then v1:=true;
 if a[2]=a[5] then v2:=true; 	{ Porovnavanie cifier cisla      }
 if a[3]=a[4] then v3:=true;
 
 { Vyhodnotenie zlozenej podmienky } 
 if((v1=true) and (v2= true) and (v3= true))then
   writeln('Zadane cislo je palindrom.')  
 else
   writeln('Zadane cislo nie je palindrom.');
 
 readln;
end.