CÓDIGOS FONTES EM PASCAL
Voce deverá baixar algum programa que compile em linguagem pascal ( dev pascal 1.9.2)
programa que identifica se o numero inserido é primo ou nao;
(copie e cole tudo o que está abaixo, até a palavra "final")
program primos; //nome do programa
var //variavel
numero,i:integer; //variaveis inteiras
primo:boolean; // variavel booleana, ou seja, so pode assumir dois valores; verdadiro ou falso
begin //inicio do programa
// entrada
writeln(' insira o numero'); // a palavra writeln lerá o número insirido
readln (numero); // a palavra readln lerá o número
//processamento
primo:=true; // como padrão estou dizendo que todo numero primo é verdadeiro(true)
i:=2; //eu quero que o laço de repetição comece em 2
while i< numero do //lê-se da seguinte forma: enquanto i menor que numero, faça
begin //inicie o laço de repetição
if numero mod i=0 then primo:= false; //se o numero inserido dividido por "i" tiver resto igual a zero, então é falso
i:=i+1; // como "i" começa em dois, ele irá crescer em uma unidade ate fica menor que o numero
end; //final do laço de repetição
if primo=false then writeln (' nao e numero primo') // se numero primo for igual a falso então exiba "não é numero primo"
else writeln ('numero primo'); // se nao, exiba "numero primo'
readln(); // coloquei (readln), para depois de executado as informações acima, o programa nao feixar automaticamente, ele ira ficar em pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
programa troca os valores dos termos inseridos;
(copie e cole tudo o que está abaixo, até a palavra "final")
program TROCA; //PROGRAMA TROCA
var //variavel
a,b,auxiliar:integer; //variáveis
begin
writeln ('insira o valor de a'); //escreva o valor de A
readln(a); //leia a variavel A
writeln('insira o valor de b'); //escreva o valor de B
readln(b); //leia a variavel B
auxiliar:= a; //atribuindo a variavel "auxiliar" o valor de A
a:=b; // a variavel A eu atribuo o valor de B
b:=auxiliar; //a variavel B eu atribuo o valor da variavel auxiliar, que essa tem, o valor antigo de b
writeln(' o valor de A.:',a); //exiba o valor de A
writeln(' o valor de B.:',b); //exiba o valor de B
readln(); //pausa do programa
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
programa deixa os valores em ordem decrescente;
(copie e cole tudo o que está abaixo, até a palavra "final")
program ordem; // programa ordem
var a,b,c:real; //variaveis em numeros reais
begin
//entrada
writeln('insira o valor de A'); //insira o valor de A
readln(a);
writeln('insira o valor de B'); //insira o valor de B
readln(b);
writeln('insira o valor de C'); //insira o valor de C
readln(c); //processamento
if (a>=b) and (b>=c) then // se A menor que B e B menor que C então
writeln(' a ordem fica',a:6:2,b:6:2,c:6:2) // exiba ...
else if (a>=B) and (c>=b) then // senao se ...
writeln(' a ordem fica',a:6:2,c:6:2,b:6:2) // exiba
else if (b>=a) and (a>=c) then // senao se...
writeln(' a ordem fica',b:6:2,a:6:2,c:6:2) //writeln...
else if (b>=a) and (a<=c) then="" br=""> writeln(' a ordem fica',b:6:2,c:6:2,a:6:2) //senao se...
else if (c>=a) and (a>=b) then
writeln('a ordem fica',c:6:2,a:6:2,b:2:6 ) //exiba...
else if (c>=a) and (a<=b) then="" senao="" se="" br=""> writeln('a ordem fica',c:2:6,b:2:6,a:2:6); //exiba...
readln(); //pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
identifica se o valor inserido é par ou impar
(copie e cole tudo o que está abaixo, até a palavra "final")
program modpar; //programa modpar
var num:integer; //variaveis inteiras
begin //inicio
writeln('insira o numero'); //exiba...
readln(num); //leia...
if num mod 2 = 0 then writeln(' numero par') // se numero dividido por 2, tem resto igual a zero, então exiba "numero par"
else writeln(' numero impar'); // senao numero impar
readln();//pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
identifica o tipo de triangulo, a parti dos valores inseridos
(copie e cole tudo o que está abaixo, até a palavra "final")
program triangulo; //programa triangulo
var ld,le,li:real; //variavel
begin
writeln('insira o valo da linha direita'); //escreva...
readln(ld);
writeln('insira o valo da linha esquerda'); //escreva...
readln(le);
writeln('insira o valo da linha inferior'); //escreva...
readln(li);
IF ((ld+le)>li) and ((ld +li)>le) and ((le + li)> ld) then //equação para existencia de um triangulo...
if ( ld=le) and (ld=li) then //condição para o programa escrever na tela do computador a frase "em vermelho"
writeln (' triangulo equilatero')
else if (ld=le) or ( ld=li) or (li=le) then //condição para o programa escrever na tela do computador a frase "em vermelho"
writeln('triangulo isoceles')
else writeln(' triangulo escaleno') //condição para o programa escrever na tela do computador a frase "em vermelho"
ELSE WRITELN(' NAO E UM TRIANGULO'); //condição para o programa escrever na tela do computador a frase "em vermelho"
readln();
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
Soma de uma progressão aritimética
(copie e cole tudo o que está abaixo, até a palavra "final")
program soma_de_uma_pa; //programa soma de uma pa
var a,an,n,s:real; // variaveis reais
begin //inicio
writeln(' insira o primeiro termo'); //writeln...
readln(a); //readln...
writeln(' insira o ultimo termo'); //writeln...
readln(an); //readln...
writeln('numeros de termos'); //writeln...
readln(n); //readln...
s:= n*(a +an)/2; //formula da soma de uma pa
writeln(' o valor da soma de uma progressão aritimética, foi: ',s:6:2); //exiba...
readln(); //pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
identifica se o numero inserido é primo
(copie e cole tudo o que está abaixo, até a palavra "final")
program primos; // program primos
var //variáveis
numero,contador,i:integer; //variáveis inteiras
begin //início
writeln('insira o numero'); //exiba...
readln(numero); //leia...
contador:= 0;
i:=2;
while (i
if (numero mod 2=0) then // se numero dividido por 2, tem resto igual a zero, atirbua ao contador mais 1
contador:= contador + 1; //aumentando 1, ao valor de i
i:= i+1;
end; //fim do laço de repetição
if (contador >0) then writeln ('nao e numero primo') // se contador maior que zero, então exiba...
else writeln(' e numero primo'); // senao exiba...
readln(); //pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
identifica o mês, apartir do numero inserido
(copie e cole tudo o que está abaixo, até a palavra "final")
program dia_do_mes; //programa dia do mes
var //variáveis
mes:integer; //inteiro
begin //inicio
writeln(' insira o numero, do respectivo mes'); //exiba...
readln(mes); //leia
case mes of //caso o mes seja:
1: writeln('janeiro'); //numero, exiba....
2: writeln('fevereiro');
3: writeln('marco');
4: writeln('abril');
5: writeln('maio');
6: writeln('junho');
7: writeln('julho');
8: writeln('agosto');
9: writeln('setembro');
10: writeln('outubro');
11: writeln('novembro');
12: writeln('dezembro');
else writeln (' não existe esse mes'); //senao tiver o numero que for inserido, exiba.....
end; //final do caso seja..
readln(); //pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
tabuada matemática
(copie e cole tudo o que está abaixo, até a palavra "final")
program tabuada; // programa tabuada
var numero,i:integer; //variaveis
begin //inicio
writeln(' insira o coeficiente '); // exiba...
readln(numero); //leia
// para i eu atribuo 1 até 10 e faça
for i:=1 to 10 do
writeln(numero,' x ', i,' = ', numero*i); //exibir...
readln();//pause
end. //final
----------------------------------------------------------------------------------------------------------------------------------------------------
tabuada matemática
(copie e cole tudo o que está abaixo, até a palavra "final")
program tabuada; // programa tabuada
var numero,i:integer; //variaveis
begin //inicio
writeln(' insira o coeficiente '); // exiba...
readln(numero); //leia
// para i eu atribuo 1
i:=1;
// enquanto i menor ou igual a 10 faça
while i<=10 do
begin //iniciar
writeln(numero,' x ', i,' = ', numero*i); //exibir...
i:=i+1; //incrementando, que o valor de i, sempre aumentar mais 1
end;//final do laço
readln();//pause
end. //final
