Decimal Para Binario Em Pascal
Trabalho Universitário: Decimal Para Binario Em Pascal. Pesquise 860.000+ trabalhos acadêmicosPor: Mazoio • 12/11/2013 • 4.909 Palavras (20 Páginas) • 423 Visualizações
Exercicio 1
Program geranumeros;
var
n :integer;
BEGIN
Randomize;
n:=Random(1000);
writeln(n);
readln;
END.
Exercicio 2
Program Exercicio2 ;
var a,b,p,q:integer;
Begin
clrscr;
writeln('Digite a');readln(a);
writeln('Digite b');readln(b);
p:=a * b;
q:=a div b;
writeln('Produto=',p,' Quociente=',q);
readln;
End.
Exercicio 3.
Program Exercicio2 ;
var a,b,c,s:real;
Begin
clrscr;
writeln('Digite a');readln(a);
writeln('Digite b');readln(b);
writeln('Digite c');readln(c);
s:=a + b + c;
writeln('Soma=',s:2:2);
readln;
End.
Exercicio 4.
Program Exercicio2 ;
var a,b,s:real; c:integer;
Begin
clrscr;
writeln('Digite a');readln(a);
writeln('Digite b');readln(b);
writeln('Digite casas decimais');readln(c);
s:=a + b;
writeln('Soma=',s:0:c);
readln;
End.
Exercicio 5
Program Exercicio;
var a,b,p,q:integer;
Begin
clrscr;
writeln('Introduza numeros com 3 digitos..!');
writeln('Digite a');readln(a);
writeln('Digite b');readln(b);
if a<100 then writeln('Valor invalido')
else
begin
if b<100 then writeln('Segundo valor invalido! Encerando...')
else
begin
p:=a * b;
q:=a div b;
writeln('Produto=',p,' Quociente=',q);
readln;
end;
end;
End.
Exercicio 6
Program Exercicio2 ;
var a,b,c,s:real;
Begin
clrscr;
writeln('Digite a');readln(a);
writeln('Digite b');readln(b);
writeln('Digite c');readln(c);
if (a>= -100) and (a<=100) then
begin
if (b>= -100) and (b<=100) then
begin
if (c>= -100) and (c<=100) then
begin
s:=a + b + c;
writeln('Soma=',s:2:2);
end
else writeln('valor c invalido!')
end
else writeln('valor b invalido!')
end
else writeln('valor c invalido!');
readln;
End.
Exercicio 7
Program
...