2 replies to this topic

[xyfek]

Boas

Alguem me pode ajudar a fazer 3 exercicios em pascal ?

Preciso de os fazer para acabar o meu curso, mas pascal não é a minha praia.

Quem me poder ajudar, agradecia imenso.

1. Apresente um subalgoritmo em Pascal que permita calcular e devolver tres valores que representem as horas, minutos e segundos correspondentes a uma dada quamtidade em segundos.

2. Apresente um subalgoritmo em Pascal que permita mostrar no ecra e em linhas separadas, os algarismos que compoem um dado número inteiro N.

3. Elabore uma função que permita calcular e devolver um numero inteiro que represente uma quantidade na base 8(Octal), correspondente á soma de dois numeros inteiros que representam tambem na base 8. Por exemplo, se os numeros a somar forem 25 e 37 (Base 8), o resultado da soma (valor a devolver) será 64 (base 8). (Nota: Considere que os dois numeros têm, no maximo, dois digitos.)

Quem me poder ajudar, agradecia imenso.

Cumprimentos

[DarkSign]

Olá,

seria bom se você apresentasse o que já tem feito, para que possamos ajudá-lo. Infelizmente, ninguém fará os trabalhos para você, ou não estaria aprendendo com isso.

Apresente alguns resultados, por favor.

[valecovo]

Recomendo o estudo deste código para o primeiro exercicio. Depois, se quiser ajuda para os outros, informe o que já fez, que eu ajudo.

program segundos;

uses crt;

var H, M, S, n: integer;
    c: char;

procedure calcular;
begin
  H:= n div 60;
  n:= n mod 60;
  M:= n div 60;
  S:= n mod 60;
  writeln('Horas: ',H,'      Minutos: ',M,'      Segundos: ',S);
end;

begin
  repeat
  clrscr;
  writeln('Programa que calcula horas, minutos e segundos');
  write('Digite o numero de segundos: ');
  readln(n);
  calcular;
  writeln('Deseja sair ?  (s/n');
  readln(c);
  until c='s';
end.