segunda-feira, 19 de outubro de 2009

Faça um algoritmo que calcule e escreva se o número digitado na entrada de dados é maior ou menor que o resto da divisão deste por 5.diga ainda se este número é par ou impar.
Program géh!
var=x,y integer
Begin
reald(num);
if(x>y mod 5)them
else
if(x!=y mod 5)them
write("É menor")
end
if(x mod 5=0)them
write("par")
else
write("par")
else
write("impar")
end
end;

quarta-feira, 16 de setembro de 2009

1) Faça um algoritmo que leia 2 valores inteiros, calcule e escreva qual deles é maior, bem como escrevendo se estes valores são pares ou ímpares.

Program géh;
var (v1,v2): integer;
Begin
readln (v1, v2)
if (v1 < v2) then
writeln ( v1 );
if (v2 > v1) then
write ln( v2 );
If (v1 mod 2=0) then
writeln ('par');
else
write ('impar');

if (v2 mod 2=0) then
writeln ('par');
else
write ('impar');

end.
2) Qual será o valor exibido na tela pelo algoritmo a seguir?
program exemplo
;var val, num: integer;
begin
val:=5;
num:=8;
if (val MOD 2= 0) then
begin
write (val);
end;
else
write (num);
end;
end.
R=8

segunda-feira, 14 de setembro de 2009

Algoritmo



program exemplo;

var val, num: integer;

begin

val:=5;
num:=8;if (val MOD 2= 0) then

begin

write (val);

end;

else

begin

write

(num);

end;

end.R=5

segunda-feira, 24 de agosto de 2009


Os chamados carros inteligentes, equipados com sensores para prever o fluxo do tráfego, podem ter a mesma eficiência de consumo de combustível que os carros híbridos -- movidos a eletricidade e combustível fóssil, recursos que são empregados em estágios diferentes do ciclo de direção para gerar economia. Os dados são de um estudo de enegenheiros da Universidade de Melbourne, na Austrália, publicado nesta semana no jornal "Transport Research Part C: Emerging Technologies", do grupo Elsevier.