Turbo pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (447 palavras )
  • Download(s) : 0
  • Publicado : 18 de setembro de 2012
Ler documento completo
Amostra do texto
20
program salario;
uses wincrt;

var
sf,st,vv: real;

begin
writeln('informe seu salario fixo');
readln(sf);
writeln('informe o valor da suas vendas');
readln(vv);

if vv1500 thenbegin
st:=(3/100*1500)+(vv-1500)*(5/100)+sf;
WRITEln('seu salaraio é : ',st:3:2,' R$');

end;
end.


21
Program Saldo;
uses wincrt;

var
nc,s,d,c,st:real;

begin
writeln('escreva onumero da sua conta');
readln(nc);
writeln('escreva o saldo');
readln(s);
writeln('escreva o debito efetuado');
readln(d);
writeln('escreva o credito efetuado');
readln(c);

st:=s-d+c;

ifst>=0 then
begin
writeln('Seu saldo é positivo , Saldo: R$',st:3:2);
end;

if st=qm then
begin
writeln('Nao efetuar compra');
end
else
writeln('Nao efetuar compra');
end.

23
program valor;uses wincrt;

var
N: real;

begin
writeln('informe um valor qualquer');
readln(n);

if n=0 then
begin
Writeln('o valor é zero');
end;
if n>0 then
begin
writeln('o valor é positivo');end;
if nn2) and (n2>n3) then
begin
writeln('o maior numero é ',n1:3:2);
end;
if (n1n2) then
begin
writeln('o maior valor é: ',n3:3:2);
end;
if (n1n3) then
begin
writeln('o maior numeroé: ',n2:3:2);
end;
if (n1=n2) or (n2=n3) then
begin
writeln('nao pode inserir numeros iguais');
end;
end.
Questão 25:
Program Soma2;
Uses Wincrt;
Var
A,B,C,result: Integer;

BeginWriteln('Informe um valor qualquer');
Readln(A);
Writeln('Informe um segundo valor');
Readln(B);
Writeln('Informe também um terceiro valor');
Readln(C);

If (C>A) and (B>A) then
Begin
result:= B+C;Writeln('A soma dos dois valores maiores é: ' ,result);
End;
If (B>C) and (A>C) then
Begin
result:= A+B;
Writeln('A soma dos dois valores maiores é: ' ,result);
End;
If (A>B) and (C>B) thenBegin
result:= A+C;
Writeln('A soma dos dois valores maiores é: ' ,result);
End;

End.


25
program soma_maior;
uses wincrt;

var
n1,n2,n3,soma: real;

begin
writeln('informe o...
tracking img