Lista de Exercicios

1. Sabendo-se que um número primo só é divisível por ele mesmo e por um, prepare um programa para dado um valor inteiro verificar se ele é primo ou não. Escolhemos o programa feito pelas alunas KARINE e MARIA DA GLORIA.

Dica - Para você não ter que digitar todo o programa novamente, selecione no browse que voce esta usando somente a parte do programa, vá na barra superior do browse click na edição e click copiar. Se o compilador Pascal for para ambiente Windows então abra o compilador do Pascal, click edição e click paste, e esta aí o programa. Se o pascal não for para ambiente Windows, chame o bloco de notas e faça o mesmo procedimento gravando o texto em um arquivo .pas.

program P1;
uses crt;
var
n : longint;
procedure le_numero;
begin
repeat
clrscr;
highvideo;
gotoxy (23,2);
write (' PARA VERIFICAR SE UM NUMERO E PRIMO');
gotoxy (20,1);
write ('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
lowvideo;
gotoxy (5,5);
write('Entre com o número: ');
gotoxy(25,5);
read(n);
if n <= 0 then
begin
gotoxy (5,7);
write ('O numero deve ser maior que zero!');
repeat until keypressed;
end;
until (n>0);
end;
function primo(n:integer) : boolean;
var
i, cont : longint;
begin
primo := false;
cont := 0;
if (odd(n)) then
begin
for i := n downto 1 do
if (n mod i) = 0 then
cont := cont + 1;
if (cont = 2) then
primo := true;
end;
if (n = 2) or (n = 1) then
primo := true;
end;
{Programa Principal}
begin
le_numero;
gotoxy (10,10);
if primo(n) then
write ('O numero ‚ primo!')
else
write ('O numero não é primo');
repeat until keypressed;
end.

Para retornar a tela anterior clique aqui.