Backup

Se der algumas M**** está aqui

{Código Pascal}

{cabeçalho do programa}
Program StarPascal;
{área de declarações}
Const
Multa2007 = 10;
Multa2008 : Integer = 15;
Var
Divida, Atual : Real;
Ano : Integer;
{corpo do programa}
Begin
Writeln(‘Digite o valor da
dívida:’);
Readln(Divida);
Writeln(‘Digite o ano (2007 ou
2008):’);
Read(Ano);
If  (Ano = 2007)
Then
Atual := Divida + Multa2007
+ Multa2008 {não tem ;}
Else
Atual := Divida + Multa2008;
End.
De ImagensParaoBlog
Anúncios

2 thoughts on “Backup

  1. ##Vetores##

    program vetor1; { Nome do Programa}
    var
    n,i,maior:integer; {Variavies}
    nro:array[1..100] of integer; {declaracao do array}
    begin
    write(‘forneca a quantidade de numeros: ‘); readln(n);
    writeln;
    for i:=1 to n do
    begin
    write(‘forneca o ‘,i,’o. numero: ‘);
    readln(nro[i]);
    end;
    writeln;
    maior:=nro[1]; {condi‡Æo}
    for i:=2 to n do
    begin
    if (nro[i] > maior)then maior:=nro[i];
    end;
    writeln(‘maior numero: ‘,maior);
    readln;
    end. {Fim}

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão /  Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão /  Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão /  Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão /  Alterar )

w

Connecting to %s