{Minha lojinha de brinquedos está oferecendo descontos agora no final de ano de acordo com
o valor da compra. o descondo de 5% se o valor for maior que R$300, 15% se for
maior que R$ 500, 20% se maior que R$700 e 30% acima de R$700, crie um
algoritmo que leia o nome do cliente, o nome do vendedor, o valor da compra
mostre o nome do cliente e do vendedor, valor da compra, valor de desconto
e o valor total a pagar pelo cliente.}
program compra_desconto;
var valor_compra, valor_desconto, valor_pagar: real;
desconto : integer;
vendedor : string[30];
cliente : string[30];
begin
write('O nome do cliente....:');
readln(cliente);
write('O nome do Vendedor....:');
readln(vendedor);
write('O valor da compra....:');
readln(valor_compra);
if valor_compra <= 300 then
desconto := 5
else if valor_compra <= 500 then
desconto := 15
else if valor_compra <= 700 then
desconto := 20
else
desconto :=30;
valor_desconto := (valor_compra * desconto) /100;
valor_pagar := valor_compra - valor_desconto;
writeln('Nome do cliente.......:',cliente);
writeln('O nome do vendedor....:',vendedor);
writeln('valor da compra.......:',valor_compra:6:2);
writeln('valor do desconto.....:',valor_desconto:6:2);
writeln('valor a pagar.........:', valor_pagar:6:2);
writeln();
readln();
end.
Bem vindo ao meu blog sobre Programação em linguagem pascal.
Bem, aqui tento passar alguma coisa do básico sobre a linguagem pascal, aulas que assiti nas vídeo-aulas do professor Neri, no curso "Lógica de programação", separei só o que falava de pascal, mas nas aulas agente aprende sobre java e C, colocarei aqui os problemas e o modo de fazer, não irei colocar os algoritmos e fluxogramas sobre pascal, colocarei os exemplos com minhas modificações, mas vale a pena comprar as vídeo aulas do profº Neri, farei até uma propaganda para ele(depois eu cobro), o site dele é http://www.informaticon.com.br confiram... e espero que eu possa passar algo de bom para quem está iniciando.
CONCURSO DE CANTO (MÉDIA DA NOTAS)
{Em um concurso de canto a avaliação é composta de três fundamentos, o primeiro
é o timbre que tem peso 2, o segundo é a melodia que tem peso 3, o terceiro é
a desenvoltura em palco, que tem peso 5, todos terão notas e se a media for maior
que 7 o candidato estara classificado, faça um algoritimo que mostre se ele está
classificado ou desclassificado para a próxima etapa.}
program concurso;
var timbre, melodia, desenvoltura, media: real;
begin
write('Digite a nota para o TIMBRE.......:::');
readln(timbre);
write('Digite a nota para a MELODIA......:::');
READLN(MELODIA);
write('Digite a nota para a DESENVOLTURA.:::');
readln(desenvoltura);
timbre := timbre * 2 /10;
melodia := melodia *3 /10;
desenvoltura := desenvoltura *5 /10;
media := (timbre + melodia + desenvoltura);
if media >= 7 then
writeln(' Classificado com nota', media:6:2)
else
writeln(' Desclassificado com nota', media:6:2);
writeln();
writeln();
writeln();
writeln(' OBRIGADO');
readln();
end.
é o timbre que tem peso 2, o segundo é a melodia que tem peso 3, o terceiro é
a desenvoltura em palco, que tem peso 5, todos terão notas e se a media for maior
que 7 o candidato estara classificado, faça um algoritimo que mostre se ele está
classificado ou desclassificado para a próxima etapa.}
program concurso;
var timbre, melodia, desenvoltura, media: real;
begin
write('Digite a nota para o TIMBRE.......:::');
readln(timbre);
write('Digite a nota para a MELODIA......:::');
READLN(MELODIA);
write('Digite a nota para a DESENVOLTURA.:::');
readln(desenvoltura);
timbre := timbre * 2 /10;
melodia := melodia *3 /10;
desenvoltura := desenvoltura *5 /10;
media := (timbre + melodia + desenvoltura);
if media >= 7 then
writeln(' Classificado com nota', media:6:2)
else
writeln(' Desclassificado com nota', media:6:2);
writeln();
writeln();
writeln();
writeln(' OBRIGADO');
readln();
end.
Ordem crescente com condicionais "if, then, else"
//Crie 2 variavéis (a e b) e leia seus valores e coloque em ordem crescente.
program ordemcrescente;
var a, b : integer;
begin
write('digite o valor A...:');
readln(a);
write('digite o valor B...:');
readln(b);
// condicionais//
if a > b then
writeln('A ordem crescente B=', b ,'-a=',a)
else
writeln('A ordem crescente A=', a,'-b=',b);
readln();
end.
program ordemcrescente;
var a, b : integer;
begin
write('digite o valor A...:');
readln(a);
write('digite o valor B...:');
readln(b);
// condicionais//
if a > b then
writeln('A ordem crescente B=', b ,'-a=',a)
else
writeln('A ordem crescente A=', a,'-b=',b);
readln();
end.
Juros cartão.
Agora vamos supor que meu colega esteja com o cartão de crédito em atraso
vamos ver um programa que veja o valor da prestação a taxa de juros e os
dias em atraso.
__________________________________________________________________________________
program cartao;
var prestacao, valor, juros, totaljuros, total: real;
atraso: integer;
begin
write('digite o valor da prestacao.::');
readln(prestacao);
write('digite a taxa de juros......::');
readln(juros);
write('Dias em atraso..............::');
readln(atraso);
valor :=(prestacao * juros)/100 * atraso;
totaljuros :=(prestacao - valor);
total := (prestacao + valor);
juros :=(prestacao - totaljuros);
writeln('digite o valor da prestacao...........::',prestacao:6:2);
writeln('digite o valor do juros... ...........::',juros:6:2);
writeln('digite a quantidade de dias em atraso.::',atraso);
writeln('digite o valor total com juros.........::',total:6:2);
readln;
end.
vamos ver um programa que veja o valor da prestação a taxa de juros e os
dias em atraso.
__________________________________________________________________________________
program cartao;
var prestacao, valor, juros, totaljuros, total: real;
atraso: integer;
begin
write('digite o valor da prestacao.::');
readln(prestacao);
write('digite a taxa de juros......::');
readln(juros);
write('Dias em atraso..............::');
readln(atraso);
valor :=(prestacao * juros)/100 * atraso;
totaljuros :=(prestacao - valor);
total := (prestacao + valor);
juros :=(prestacao - totaljuros);
writeln('digite o valor da prestacao...........::',prestacao:6:2);
writeln('digite o valor do juros... ...........::',juros:6:2);
writeln('digite a quantidade de dias em atraso.::',atraso);
writeln('digite o valor total com juros.........::',total:6:2);
readln;
end.
Programa para financiamento.
E ai galera eu estou pagando a minha moto, e quero fazer um programa que
mostre a quantidade de prestações pagas, o valor delas, o total pago e o
que falta para terminar. são 36 prestações.
var total, quite, valor, par_resto, totalpago, devendo: real;
begin
total :=36;
writeln('Total de parcelas=',total:6:0);
write('Quantidade paga...=');
readln(quite);
write('valor da parcela..=');
readln(valor);
totalpago :=(quite * valor);
par_resto :=(total - quite);
devendo :=(total - quite)* valor;
writeln('Quantidade de parcelas pagas...=', quite:6:0);
writeln('O valor de cada parcela........=', valor:6:2);
writeln('Quanto foi pago................=',totalpago:6:2);
writeln('Quantidade de parcelas restante=',par_resto:6:2);
writeln('Quantidade de dinheiro a pagar.=', devendo:6:2);
readln;
end.
mostre a quantidade de prestações pagas, o valor delas, o total pago e o
que falta para terminar. são 36 prestações.
var total, quite, valor, par_resto, totalpago, devendo: real;
begin
total :=36;
writeln('Total de parcelas=',total:6:0);
write('Quantidade paga...=');
readln(quite);
write('valor da parcela..=');
readln(valor);
totalpago :=(quite * valor);
par_resto :=(total - quite);
devendo :=(total - quite)* valor;
writeln('Quantidade de parcelas pagas...=', quite:6:0);
writeln('O valor de cada parcela........=', valor:6:2);
writeln('Quanto foi pago................=',totalpago:6:2);
writeln('Quantidade de parcelas restante=',par_resto:6:2);
writeln('Quantidade de dinheiro a pagar.=', devendo:6:2);
readln;
end.
Salário com desconto do INSS e mostrando FGTS
Quero calcular o salário do meu empregado na loja, só que quero colocar o salario bruto,
descontando 6% do Inss e mostrando o fgts que é de 8%, quero um programa que mostre o nome do
funcionario, o valor do inss, o valor do fgts,s e o salario já descontado o valor do inss.
program descontos;
var salario, inss, fgts, salario_desc: real;
nome :string[30];
begin
write('Nome do funcionario=');
readln(nome);
write('salario=');
readln(salario);
inss :=(salario *6)/100;
fgts :=(salario *8)/100;
salario_desc :=(salario - inss);
writeln('Nome do funcionario....=',nome);
writeln('salario................=',salario:6:2);
writeln('valor do inss..........=', inss:6:2);
writeln('salario descontado inss=',salario_desc:6:2);
writeln;
writeln;
writeln('valor do fgts..........=', fgts:6:2);
readln();
end.
descontando 6% do Inss e mostrando o fgts que é de 8%, quero um programa que mostre o nome do
funcionario, o valor do inss, o valor do fgts,s e o salario já descontado o valor do inss.
program descontos;
var salario, inss, fgts, salario_desc: real;
nome :string[30];
begin
write('Nome do funcionario=');
readln(nome);
write('salario=');
readln(salario);
inss :=(salario *6)/100;
fgts :=(salario *8)/100;
salario_desc :=(salario - inss);
writeln('Nome do funcionario....=',nome);
writeln('salario................=',salario:6:2);
writeln('valor do inss..........=', inss:6:2);
writeln('salario descontado inss=',salario_desc:6:2);
writeln;
writeln;
writeln('valor do fgts..........=', fgts:6:2);
readln();
end.
Vendas com salário e comissão variável.
Nesse exemplo ao final do dia verei quanto o vendedor ganhará, baseado no salário individual de cada e de comissão
individual, mostrando o salario, a comissão, quantidade de vendas e o total a receber.
program salario_variavel;
var salario, vendas, bonus, comissao, salario_total: real;
begin
write('Salario=');
readln(salario);
write('porcentagem da comissao=');
readln(bonus);
write('Vendas=');
readln(vendas);
comissao:= (salario * bonus)/100 * vendas;
salario_total:=(comissao + salario);
writeln('Salario fixo........=',salario:6:0);
writeln('Quantidade de vendas=',vendas:6:0 );
writeln('comissao............=', comissao:6:2);
writeln('salario total.......=', salario_total:6:2);
readln();
end.
individual, mostrando o salario, a comissão, quantidade de vendas e o total a receber.
program salario_variavel;
var salario, vendas, bonus, comissao, salario_total: real;
begin
write('Salario=');
readln(salario);
write('porcentagem da comissao=');
readln(bonus);
write('Vendas=');
readln(vendas);
comissao:= (salario * bonus)/100 * vendas;
salario_total:=(comissao + salario);
writeln('Salario fixo........=',salario:6:0);
writeln('Quantidade de vendas=',vendas:6:0 );
writeln('comissao............=', comissao:6:2);
writeln('salario total.......=', salario_total:6:2);
readln();
end.
Vendas mostrando salário e comissão fixa e com vendas variáveis.
Estou pretendendo fornecer salgados feitos por minha mamãe em mercados, mas vou contratar um vendedor, de ínicio pagarei a ele um sálario fixo de R$510,00, mais uma comissão de 0.10%(1 décimo de real) do valor total de vendas no mês, quero um programa que me mostre o salario fixo, quantidade de vendas, o valor da comissão e o salario total do vendedor no fim do mês.
program salgados_vendas;
var salario, vendas, comissao, salario_total: real;
begin
salario := 510;
write('Vendas=');
readln(vendas);
comissao:= (salario * 0.10)/100 * vendas;
salario_total:=(comissao + salario);
writeln('Salario fixo........=',salario:6:0,' unidade');
writeln('Quantidade de vendas=',vendas:6:0 );
writeln('comissao............=', comissao:6:2,' 0.10%');
writeln('salario total.......=', salario_total:6:2);
readln();
end.
program salgados_vendas;
var salario, vendas, comissao, salario_total: real;
begin
salario := 510;
write('Vendas=');
readln(vendas);
comissao:= (salario * 0.10)/100 * vendas;
salario_total:=(comissao + salario);
writeln('Salario fixo........=',salario:6:0,' unidade');
writeln('Quantidade de vendas=',vendas:6:0 );
writeln('comissao............=', comissao:6:2,' 0.10%');
writeln('salario total.......=', salario_total:6:2);
readln();
end.
Saldo simples
Todo mês pago adiantado ao João da padaria R$250,00 para minha esposa e filhos
comprarem durante o mês, porem vou fazer para ele um programa simples
para controlar meu saldo. mostrando o valor que foi comprado e saldo remanescente na tela
program saldo_padaria;
var saldo, compras: real;
begin
saldo:=250;
write('Valor da compra=');
readln(compras);
saldo := (saldo - compras);
writeln('Seu saldo agora=', saldo);
readln();
end.
comprarem durante o mês, porem vou fazer para ele um programa simples
para controlar meu saldo. mostrando o valor que foi comprado e saldo remanescente na tela
program saldo_padaria;
var saldo, compras: real;
begin
saldo:=250;
write('Valor da compra=');
readln(compras);
saldo := (saldo - compras);
writeln('Seu saldo agora=', saldo);
readln();
end.
Média final com notas de pesos diferentes
{Fiz a prova do concurso do INSS, eram 3 matérias, português, matemática financeira, e
a matéria especifica do INSS, porém português tinha peso 2, matemática peso 3, e a materia
do INSS tinha peso 5, quero fazer um programa que mostre o nome do aluno, calcule minha média final do concurso.}
program concurso;
Var port, matem, inss, media: real;
nome: string[30];
begin
write('Nome=');
readln(nome);
write('Digite a nota de portugues.=');
readln(port);
write('Digite a nota de matematica=');
readln(matem);
write('Digite a nota do INSS......=');
readln(inss);
port := port * 2 /10;
matem := matem *3 /10;
inss := inss *5 /10;
media :=(port + matem+ inss);
writeln('Meu nome..............::: ', nome);
writeln('Minha media final foi.::: ', media:3:2);
readln();
end.
{Notem que para a variável nome, foi do tipo string, e as outras do tipo real.
Tipos de dados nas variáveis, os 3 mais usados são;
inteiro: armazena números inteiros(não fracionados), ex= 5, 2, 4, 1254, 1054 etc.
real: armazena numeros inteiros e fracionados, ex= 5, 2, (5,2),(2,5), 5/2, 2/5, 6,99999, etc.
string: armazena letras e números e a quantidade é definidas entre[] como acima que foi [30]assim poderemos colocar uma palavra de até 30 caracteres,
OBS: em outras linguagens o nome pode modificar}
{Notem também que para comentar no seuprograma, usasse // para textos curtos ou {} para blocos de textos}.
a matéria especifica do INSS, porém português tinha peso 2, matemática peso 3, e a materia
do INSS tinha peso 5, quero fazer um programa que mostre o nome do aluno, calcule minha média final do concurso.}
program concurso;
Var port, matem, inss, media: real;
nome: string[30];
begin
write('Nome=');
readln(nome);
write('Digite a nota de portugues.=');
readln(port);
write('Digite a nota de matematica=');
readln(matem);
write('Digite a nota do INSS......=');
readln(inss);
port := port * 2 /10;
matem := matem *3 /10;
inss := inss *5 /10;
media :=(port + matem+ inss);
writeln('Meu nome..............::: ', nome);
writeln('Minha media final foi.::: ', media:3:2);
readln();
end.
{Notem que para a variável nome, foi do tipo string, e as outras do tipo real.
Tipos de dados nas variáveis, os 3 mais usados são;
inteiro: armazena números inteiros(não fracionados), ex= 5, 2, 4, 1254, 1054 etc.
real: armazena numeros inteiros e fracionados, ex= 5, 2, (5,2),(2,5), 5/2, 2/5, 6,99999, etc.
string: armazena letras e números e a quantidade é definidas entre[] como acima que foi [30]assim poderemos colocar uma palavra de até 30 caracteres,
OBS: em outras linguagens o nome pode modificar}
{Notem também que para comentar no seuprograma, usasse // para textos curtos ou {} para blocos de textos}.
Calcular porcentagem com todos os valores indefinidos
{Agora vamos ver o mesmo exemplo só que com todos os valores
definido pelo lojista}
program porcentagem;
var notebook, vendedor, imposto, preco_final: real;
begin
write('Digite do notebook........=');
readln(notebook);
write('O valor do imposto........=');
readln(imposto);
write('Percentual do vendedor....=');
readln(vendedor);
vendedor :=(notebook /100) * vendedor;
imposto :=(notebook / 100)* imposto;
preco_final :=(notebook + vendedor + imposto);
writeln('O valor do notebook........=',notebook:6:2);
writeln('A porcentagem do vendedor..=',vendedor:6:2);
writeln('O valor do do imposto......=',imposto:6:2);
writeln('o valor final..............=',preco_final:6:2);
readln();
end.
definido pelo lojista}
program porcentagem;
var notebook, vendedor, imposto, preco_final: real;
begin
write('Digite do notebook........=');
readln(notebook);
write('O valor do imposto........=');
readln(imposto);
write('Percentual do vendedor....=');
readln(vendedor);
vendedor :=(notebook /100) * vendedor;
imposto :=(notebook / 100)* imposto;
preco_final :=(notebook + vendedor + imposto);
writeln('O valor do notebook........=',notebook:6:2);
writeln('A porcentagem do vendedor..=',vendedor:6:2);
writeln('O valor do do imposto......=',imposto:6:2);
writeln('o valor final..............=',preco_final:6:2);
readln();
end.
Calcular porcentagem e seus valores indefinidos
{Agora vamos ver o mesmo exemplo só que com o valor do notebook e do imposto
definido pelo lojista e a porcentagem de 5% do vendedor fixa}
__________________________________________________________________________________
program porcentagem_variavel;
var notebook, vendedor, imposto, preco_final: real;
begin
write('Digite do notebook........=');
readln(notebook);
write('O valor do imposto........=');
readln(imposto);
vendedor :=(notebook * 5)/ 100;
imposto :=(notebook / 100)* imposto;
preco_final :=(notebook + vendedor + imposto);
writeln('O valor do notebook........=',notebook:6:2);
writeln('A porcentagem do vendedor..=',vendedor:6:2);
writeln('O valor do do imposto..=',imposto:6:2);
writeln('o valor final........=',preco_final:6:2);
readln();
end.
definido pelo lojista e a porcentagem de 5% do vendedor fixa}
__________________________________________________________________________________
program porcentagem_variavel;
var notebook, vendedor, imposto, preco_final: real;
begin
write('Digite do notebook........=');
readln(notebook);
write('O valor do imposto........=');
readln(imposto);
vendedor :=(notebook * 5)/ 100;
imposto :=(notebook / 100)* imposto;
preco_final :=(notebook + vendedor + imposto);
writeln('O valor do notebook........=',notebook:6:2);
writeln('A porcentagem do vendedor..=',vendedor:6:2);
writeln('O valor do do imposto..=',imposto:6:2);
writeln('o valor final........=',preco_final:6:2);
readln();
end.
Calcular porcentagem e seus valores predefinida.
Comprei vários notebook para revender em minha loja, porém tenho que pagar 40% sobre o valor da fábrica e pagar 5% ao vendedor, quero um programa que determine o valor que o notebook saiu para mim.
__________________________________________________________________________________
program porcentagem;
var notebook, vendedor, imposto, preco_final: real;
begin
notebook := 1200;
vendedor :=(1200 * 5)/ 100;
imposto :=(1200 * 40)/100;
preco_final :=(notebook + vendedor + imposto);
writeln('O valor do notebook........=',notebook:6:2);
writeln('A porcentagem do vendedor..=',vendedor:6:2);
writeln('O valor do do imposto..=',imposto:6:2);
writeln('o valor final........=',preco_final:6:2);
readln();
end.
__________________________________________________________________________________
program porcentagem;
var notebook, vendedor, imposto, preco_final: real;
begin
notebook := 1200;
vendedor :=(1200 * 5)/ 100;
imposto :=(1200 * 40)/100;
preco_final :=(notebook + vendedor + imposto);
writeln('O valor do notebook........=',notebook:6:2);
writeln('A porcentagem do vendedor..=',vendedor:6:2);
writeln('O valor do do imposto..=',imposto:6:2);
writeln('o valor final........=',preco_final:6:2);
readln();
end.
Troca de valores de variáveis
No exemplo abaixo mostro como armazenar um valor em uma variável e depois troca-lo pelo outro valor.
O time do Bahia tem 5 gols, o time do Santos tem 4 gols, mas quero inverter o resultado na tela, então guadarei os gols do santos, em uma outra variavel(reservado), então farei o seguinte.
__________________________________________________________________________________
program troca_valores;
var bahia, santos, reservado: real;
begin
bahia :=5;
santos :=4;
reservado := bahia;
bahia := santos;
santos := reservado;
writeln('bahia tem agora.::::: ',bahia);
writeln('santos tem agora.::::: ',santos);
readln();
end.
Notem que os gols estavam pré definidos, bahia=5 e santos=4, na tela estará ao contrario.
entenda, eu guardei a variável do bahia que era 5, na variável(reservado), e depois disse que bahia era a variável santos ou seja 4, então disse que santos era a variável reservado que passou a ter o valor do bahia 5
e mandei colocar na tela o valor do bahia que que ficou guardado na variável reservado e passou a ser do santos e o valor do santos que passou a ser do bahia.
Esse exemplo mostra como você guardar um valor para ser usado depois.
O time do Bahia tem 5 gols, o time do Santos tem 4 gols, mas quero inverter o resultado na tela, então guadarei os gols do santos, em uma outra variavel(reservado), então farei o seguinte.
__________________________________________________________________________________
program troca_valores;
var bahia, santos, reservado: real;
begin
bahia :=5;
santos :=4;
reservado := bahia;
bahia := santos;
santos := reservado;
writeln('bahia tem agora.::::: ',bahia);
writeln('santos tem agora.::::: ',santos);
readln();
end.
Notem que os gols estavam pré definidos, bahia=5 e santos=4, na tela estará ao contrario.
entenda, eu guardei a variável do bahia que era 5, na variável(reservado), e depois disse que bahia era a variável santos ou seja 4, então disse que santos era a variável reservado que passou a ter o valor do bahia 5
e mandei colocar na tela o valor do bahia que que ficou guardado na variável reservado e passou a ser do santos e o valor do santos que passou a ser do bahia.
Esse exemplo mostra como você guardar um valor para ser usado depois.
Média definida pelo usuário
Agora o usuário colocará a quantidade de gols para serem calculada a media dos dois turnos
__________________________________________________________________________________
program selecao_variavel;
var turno1, turno2, media: real;
begin
writeln('Quantos gols no primeiro turno.::');
readln(turno1);
writeln('Quantos gols no segundo turno..::');
readln(turno2);
media := (turno1 + turno2) / 2;
writeln('media de gols.::::: ',media:2:2);
readln();
end.
writeln(escreve a pergunta na telana linha seguinte)
write(escreve a pergunta na tela na mesma linha)
readln(digita na linha seginte)
read(digita na mesma linha)
ln(LINE NEW, OU NEW LINE EM PORTUGUÊS NOVA LINHA)
Notem que depois de media tem :2:2 significa que ao aparecer na tela, terá dois digitos antes do ponto e dois digitos depois, tentem rodar o programa sem isso e notem a diferença.
Média predefinida
Aqui mostrarei como fazer um programa que calcule a media(Já definida) da seleção brasileira em dois turnos de uma competição, vamos lá.
__________________________________________________________________________________
program selecao;
var turno1, turno2, media: real;
begin
turno1 := 12;
turno2 := 13;
media :=(turno1 + turno2)/ 2;
writeln('media de gols nos dois turnos.::::: ', media );
readln();
end.
__________________________________________________________________________________
program selecao;
var turno1, turno2, media: real;
begin
turno1 := 12;
turno2 := 13;
media :=(turno1 + turno2)/ 2;
writeln('media de gols nos dois turnos.::::: ', media );
readln();
end.
Estrutura simples do pascal.
Aqui colocaremos a estrutura básica do pascal, lembrando que não é um estudo profundo da linguagem.
EM PASCAL DEVE-SE SALVAR O ARQUIVO COM O MESMO NOME QUE FOI COLOCADO DEPOIS DE "PROGRAM"
__________________________________________________________________________________
program viagem;
var bahia, sergipe, amapa: real;
begin
bahia := 150;
sergipe := 100;
amapa := 75;
writeln('atletas que foram para a Bahia.:: ',bahia:3:0);
writeln('atletas que foram para a Sergipe.:: ',sergipe:3:0);
writeln('atletas que foram para a Amapa.:: ',amapa:3:0);
readln();
end.
Nesse exemplo faço um pequeno programa que mostre uma quantidade de atleta que viajaram para os estados, é um valor pré definido, mas funcional, o nome do programa é viagem não podemos criar uma variável com esse nome, lembrem-se de que todas as letra devem ser sem acentos, em var(variável) será definidas suas variáveis ou seja tudo que você se referir a uma variável, ficara armazenada nela, no begin(ínicio) será de fato o inicio do programa, notem que para a variável bahia, foi atribuido o valor de 150 atletas, writeln serve para mostra a informação na tela, end(é o fim do programa, mas em outros casos mas adiante poderá significar fim de sentença), Bem , esse é apenas um exemplo simples, mas existem muito mais a se colocar em um programa em pascal.
EM PASCAL DEVE-SE SALVAR O ARQUIVO COM O MESMO NOME QUE FOI COLOCADO DEPOIS DE "PROGRAM"
__________________________________________________________________________________
program viagem;
var bahia, sergipe, amapa: real;
begin
bahia := 150;
sergipe := 100;
amapa := 75;
writeln('atletas que foram para a Bahia.:: ',bahia:3:0);
writeln('atletas que foram para a Sergipe.:: ',sergipe:3:0);
writeln('atletas que foram para a Amapa.:: ',amapa:3:0);
readln();
end.
Nesse exemplo faço um pequeno programa que mostre uma quantidade de atleta que viajaram para os estados, é um valor pré definido, mas funcional, o nome do programa é viagem não podemos criar uma variável com esse nome, lembrem-se de que todas as letra devem ser sem acentos, em var(variável) será definidas suas variáveis ou seja tudo que você se referir a uma variável, ficara armazenada nela, no begin(ínicio) será de fato o inicio do programa, notem que para a variável bahia, foi atribuido o valor de 150 atletas, writeln serve para mostra a informação na tela, end(é o fim do programa, mas em outros casos mas adiante poderá significar fim de sentença), Bem , esse é apenas um exemplo simples, mas existem muito mais a se colocar em um programa em pascal.
Assinar:
Postagens (Atom)