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.

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