bom mais um codigo simples que tem a funcionalidade de identificar se um numero é par ou impar após o codigo o programador pode implementar em outras utilizações.
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
num: integer ;
name,mensagem: string;
begin
name := 'Euclézio';
writeln();
{aqui é lido o numero digitado pelo usuario}
writeln('Digite 1 numero:');
writeln();
readln(num);
{esta condição identifica se o numero digitado
pelo usuario é divisivel por 2 e se o resto da divisão
for 0 entao ele é par}
{obs: para indentificar como impar muda-se o sinal de "=" para
"<>" ai obtem-se o valor impar}
if (num mod 2 = 0 ) then
mensagem:=('o numero é par: ')
{o else abaixo é para a seguinte condição se o numero não
for par obrigatoriamente sera impar}
else
mensagem:=('o numero é impar: ');
{aqui é exibido o resultado que é a mensagem e o numero}
writeln(mensagem,num);
writeln('CRIADO POR: ', name);
writeln('PRESS <ENTER> TO QUIT!.');
readln();
writeln();
end.
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
num: integer ;
name,mensagem: string;
begin
name := 'Euclézio';
writeln();
{aqui é lido o numero digitado pelo usuario}
writeln('Digite 1 numero:');
writeln();
readln(num);
{esta condição identifica se o numero digitado
pelo usuario é divisivel por 2 e se o resto da divisão
for 0 entao ele é par}
{obs: para indentificar como impar muda-se o sinal de "=" para
"<>" ai obtem-se o valor impar}
if (num mod 2 = 0 ) then
mensagem:=('o numero é par: ')
{o else abaixo é para a seguinte condição se o numero não
for par obrigatoriamente sera impar}
else
mensagem:=('o numero é impar: ');
{aqui é exibido o resultado que é a mensagem e o numero}
writeln(mensagem,num);
writeln('CRIADO POR: ', name);
writeln('PRESS <ENTER> TO QUIT!.');
readln();
writeln();
end.
Comentários
Postar um comentário