program processa_caracteres;
var linha: array [1..80] of char;
n: integer;
procedure imprime_linha;
var i: integer;
begin
for i := 1 to 80 do write(linha[i]);
writeln;
n := 0;
end;
procedure inclui_caracter(c: char);
begin
n := n + 1;
linha[n] := c;
in n = 80 then imprime_linha;
end;
...
program bla;
var a: integer;
procedure p1(b: integer);
begin
...
end;
procedure p2(a, b: integer);
procedure p3;
var a: integer;
begin
...
end;
begin
...
end;
begin
...
end.
program bla;
var a: integer;
procedure p1(b: integer);
begin
...
end;
procedure p2(a, b: integer);
procedure p3;
var a: integer;
begin
...
end;
begin
...
end;
begin
...
end.
(palíndromo: sequência de caracteres que não muda quando lida da esquerda para a direita ou vice-versa.
program inutil;
var n, num, quad: integer;
begin
readln(n);
num := 1;
while (num < n) do begin
quad := n * n;
if palindromo(quad) then
writeln(num);
num := num + 1;
end;
end.
function palindromo(p: integer):boolean;
var i: integer;
begin
i := inverso(p);
if p = i then palindromo := true;
else palindromo := false;
end;
function inverso(k: integer): integer;
var i, dividendo, resto: integer;
begin
i := 0;
dividendo := k;
while dividendo > 0 do begin
resto := dividendo mod 10;
dividendo := dividendo div 10;
i := i * 10 + resto;
end;
inverso := i;
end;
program inutil;
var n, num, quad: integer;
begin
readln(n);
num := 1;
while (num < n) do begin
quad := n * n;
if palindromo(quad) then
writeln(num);
num := num + 1;
end;
end.Módulo de teste:
function palindromo(p: integer):boolean;
begin
palindromo := true;
end;
function palindromo(p: integer):boolean;
var i: integer;
begin
i := inverso(p);
...
end;Módulo de teste:
function inverso(k: integer): integer;
var kinv: integer;
begin
write('Entre com o valor invertido
de', k);
readln(kinv);
inverso := kinv;
end;
program teste;
var num: integer;
begin
readln(num);
while (num > 0) do begin
writeln(num);
if palindromo(num)
then writeln('E palindromo.');
else writeln('Nao e palindromo');
readln(num);
end;
end.