program, který spočítá, kolikrát se ve vystupujícím textu ocitly za sebou dva stejné znaky
koncový znak zadávání textu budiž zavináč @
program DvojiceZnaku;
const Konec = '@';
Pocet : Integer;
begin
PredchZnak := Konec; Pocet := 0;
Write ( 'Počítání dvojic znaků ' );
Write ( 'Zadejte text, ukončený @ ' );
Read ( Znak );
while Znak <> Konec do
begin
if Znak = PredchZnak then Pocet := Pocet + 1;
PredchZnak := Znak;
Read ( Znak );
end;
Write ( 'Počet dvojic je ', Pocet );
end.
ASCII = American Standard Code for Information Interchange
Ord (C) - převede C typu Char na ASCII kód, výsledek je Integer
Chr (I) - vrátí znak, kterému náleží kód I - opak funkce Ord
program převádí malá písmenka na velká, v ASCII mají velká písmenka kódy o 32 menší než malá písmenka, konec vstupu opět znak zavináče
program NaVelkaPismena;
const Konec = '@';
var C : Char;
begin
if Ord ('A') <> 65 then
Write ( 'Program pracuje jen pro kódování ASCII!' )
else
begin
Write ( 'Konverze písmen na velká. ' );
Write ( 'Zadejte vstup, znak @ ukončí: ' );
Read ( C );
while C <> Konec do
begin
if ( C >= 'a' ) and ( C <= 'z' ) then
C := Chr ( Ord(C) - 32 );
{Trik! kódy velkých písmen jsou o 32 menší}
Write ( C );
Read ( C );
end;
end;
end.
UpCase je funkce Turbo Pascalu, která přímo převádí malá písmenka na velká
C := UpCase (C);
Sestav program, který vypíše tabulku ASCII ve tvaru kód - znak. Uvažuj ASCII znaky od 32 do 255.
Program modifikuj tak, aby výsledná tabulka vypadala radostně... ....řešení
© 2001 Milan Volejník, http://hledej.to.zde.cz
aktualizace: 17.09.2002 17:25:36