Bárbara Müller

~~~~ Finalizado ~~~~

Program Pzim ;
Uses crt;
    function m2km(m:real):real;
    begin
    m2km:= (m*3.6); 
    end;
    
    function km2m(km:real):real;
    begin
    km2m := (km/3.6);
    end;
          
var 
    m,km: real;
    sair:char;

begin
// atribuindo valor = N para variavel sair
sair := 'N'; 
while sair = 'N' do
Begin
     clrScr;
    writeln('Convertendo unidades de medidas');
    writeln('Transformar metros por segundo em quilometro por hora. Digite uma velocidade:');
    readln(m);
  

    writeln();
    writeln();
    writeln('Resultado:');

    writeln(m2km(m):3:2,  ' Km/h');
    writeln(); 


    //trocando as unidades .
    writeln('-----------------------------------------------------------');
    writeln();
    writeln();
    writeln('Convertendo unidades de medidas - parte 2');
    writeln('Transformar quilometro por hora em metros por segundo. Digite uma velocidade:');
    readln(km);


    writeln();
    writeln();
    writeln('Resultado:');

    writeln(km2m(km):3:2,  '  m/s');
    writeln();
    
    writeln ('Deseja sair? Responda com S/N use a letra maiuscula. ');
    readln (sair);
end;
   
End.

@Simon Viegas

Não me atentei ao uso da função, muito obrigada por me atentar a isso! 

Olha só como está ficando... ainda preciso adicionar o 'writeln('>>>> Deseja Sair s/n <<<<');' rs

Program Pzim ;
Uses crt;
    function m2km(m:real):real;
    begin
    m2km:= (m*3.6); 
    end;
    
    function km2m(km:real):real;
    begin
    km2m := (km/3.6);
    end;
          
var 
    m,km: real;
Begin
     clrScr;
    writeln('Convertendo unidades de medidas');
    writeln('Transformar metros por segundo em quilometro por hora. Digite uma velocidade:');
    readln(m);

    writeln();
    writeln();
    writeln('Resultado:');

    writeln(m2km(m):3:2,  ' Km/h');
    writeln(); 


    //trocando as unidades .
    writeln('-----------------------------------------------------------');
    writeln();
    writeln();
    writeln('Convertendo unidades de medidas - parte 2');
    writeln('Transformar quilometro por hora em metros por segundo. Digite uma velocidade:');
    readln(km);


    writeln();
    writeln();
    writeln('Resultado:');

    writeln(km2m(km):3:2,  '  m/s');
    writeln();
End.

Em 30/06/2020 às 18:42, Simon Viegas disse:

 

Por favor, poste o que já conseguiu fazer e em qual parte está com dúvidas.

 

Acredito que tenha algo errado da linguagem, pois não consigo executar no programa... Conseguem me ajudar?

program converter km_m;
var
result,num: integer;
var calc: char;
begin
clrscr;
  writeln('qual conversao (km ou m) ?');
readln(calc);
writeln('informe o numero');
readln(num);
if calc = 'km' then
begin
result := num * 3.6;
end
else
begin
  result := num / 3.6;
end;
writeln('o resultado é ', result, calc)
end.

Tentei de outra maneira, fazendo direto no programa e saiu assim: 
O que acharam? Está bom/correto?
-------------------------------------------

Program conversaodemedidas ;
uses crt;
var
   m,km:real;
Begin
    writeln('Convertendo unidades de medidas');
    writeln('Transformar metros por segundo em quilometro por hora. Digite uma velocidade.');
        readln(m);
        
        km:= m*3.6;
      
        writeln();
    writeln();
        writeln('Resultado:');
        
        writeln(KM:3:2,  ' quilometros por hora');
    writeln();
begin
    writeln('Convertendo unidades de medidas');
    writeln('Transformar quilometro por hora em metros por segundo. Digite uma velocidade.');
    readln(km);
    m:= m/3.6;
        writeln();
    writeln();
        writeln('Resultado:');
        writeln(M:3:2,  ' metros por segundo');
    writeln();
    end
End.

Oi pessoal,

tenho um exercício novo hoje, gostaria de um help/dica para realizá-lo:

Criar um algorítimo que tenha 2 funções:

A primeira deverá receber como parâmetro uma velocidade em metros por segundo (m/s) e retornar esta velocidade em quilômetros por hora (km/h).

A segunda deverá receber ccomo parâmetro uma velocidade em quilômetros por hora (km/h) e retornar esta velocidade em metros por segundo (m/s).

Obrigada