Abaixo selecionei uma lista de exemplos de códigos, mais utilizados como exemplos.
Números Primos
program primos; //nome do programa
var //variável
número,i:integer; //variáveis inteiras
primo:boolean; // variável booleana, ou seja, só pode assumir dois valores; verdadeiro ou falso
begin //inicio do programa
// entrada
writeln(' insira o número'); // a palavra writeln lerá o número inserido
readln (número); // a palavra readln lerá o número
//processamento
primo:=true; // como padrão estou dizendo que todo número primo é verdadeiro(true)
i:=2; //eu quero que o laço de repetição comece em 2
while i< número do //lê-se da seguinte forma: enquanto i menor que número, faça
begin //inicie o laço de repetição
if número mod i=0 then primo:= false; //se o número 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 número
end; //final do laço de repetição
if primo=false then writeln (' não e número primo') // se número primo for igual a falso então exiba "não é número primo"
else writeln ('número primo'); // se não, exiba "número primo'
readln(); // coloquei (readln), para depois de executado as informações acima, o programa não fechar automaticamente, ele ira ficar em pause
end. //final
Troca os valores dos termos inseridos
program TROCA; //PROGRAMA TROCA
var //variável
a,b,auxiliar:integer; //variáveis
begin
writeln ('insira o valor de a'); //escreva o valor de A
readln(a); //leia a variável A
writeln('insira o valor de b'); //escreva o valor de B
readln(b); //leia a variável B
auxiliar:= a; //atribuindo a variável "auxiliar" o valor de A
a:=b; // a variável A eu atribuo o valor de B
b:=auxiliar; //a variável B eu atribuo o valor da variável 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
Valores em ordem decrescente
program ordem; // programa ordem
var a,b,c:real; //variáveis em números 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 // senão se ...
writeln(' a ordem fica',a:6:2,c:6:2,b:6:2) // exiba
else if (b>=a) and (a>=c) then // senão 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) //senão 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="" senão="" se="" br=""> writeln('a ordem fica',c:2:6,b:2:6,a:2:6); //exiba...
readln(); //pause
end. //final
Valor é par ou impar
program modpar; //programa modpar
var num:integer; //variáveis inteiras
begin //inicio
writeln('insira o número'); //exiba...
readln(num); //leia...
if num mod 2 = 0 then writeln(' número par') // se número dividido por 2, tem resto igual a zero, então exiba "número par"
else writeln(' número impar'); // senão número impar
readln();//pause
end. //final
Tipo de triângulo, a parti dos valores inseridos
program triângulo; //programa triângulo
var ld,le,li:real; //variável
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 existência de um triângulo...
if ( ld=le) and (ld=li) then //condição para o programa escrever na tela do computador a frase "em vermelho"
writeln (' triângulo 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('triângulo isoceles')
else writeln(' triângulo escaleno') //condição para o programa escrever na tela do computador a frase "em vermelho"
ELSE WRITELN(' não E UM triângulo'); //condição para o programa escrever na tela do computador a frase "em vermelho"
readln();
end. //final
Soma de uma progressão aritmética
program soma_de_uma_pa;
var a,an,n,s:real; // variáveis reais
begin //inicio
writeln(' insira o primeiro termo'); //writeln...
readln(a); //readln...
writeln(' insira o ultimo termo'); //writeln...
readln(an); //readln...
writeln('números 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 o mês, apartir do número inserido
program dia_do_mes; //programa dia do mes
var //variáveis
mes:integer; //inteiro
begin //inicio
writeln(' insira o número, do respectivo mes'); //exiba...
readln(mes); //leia
case mes of //caso o mes seja:
1: writeln('janeiro'); //número, 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'); //senão tiver o número que for inserido, exiba.....
end; //final do caso seja..
readln(); //pause
end. //final
Tabuada matemática exemplo 1
program tabuada; // programa tabuada
var número,i:integer; //variáveis
begin //inicio
writeln(' insira o coeficiente '); // exiba...
readln(número); //leia
// para i eu atribuo 1 até 10 e faça
for i:=1 to 10 do
writeln(número,' x ', i,' = ', número*i); //exibir...
readln();//pause
end. //final
Tabuada matemática exemplo 2
program tabuada; // programa tabuada
var número,i:integer; //variáveis
begin //inicio
writeln(' insira o coeficiente '); // exiba...
readln(número); //leia
// para i eu atribuo 1
i:=1;
// enquanto i menor ou igual a 10 faça
while i<=10 do
begin //iniciar
writeln(número,' x ', i,' = ', número*i); //exibir...
i:=i+1; //incrementando, que o valor de i, sempre aumentar mais 1
end;//final do laço
readln();//pause
end. //final
Um forte abraços a todos
Nenhum comentário:
Postar um comentário