Sugestão de resposta em linguagem algorítmica
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | programa Exercicio24; var x, modulo: Inteiro; inicio Escreva('Informe um numero: '); Leia(x); se (x < 0) entao modulo := x * (-1) senao modulo := x; Escreva('O modulo de ', x, ' eh ', modulo); fim. |
Sugestão de resposta em Pascal, Lazarus, Delphi
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | program Exercicio24; {$mode objfpc}{$H+} uses Classes, SysUtils; var x, modulo: Integer; begin try Write('Informe um numero: '); Readln(x); if (x < 0) then modulo := x * (-1) else modulo := x; Write('O modulo de ', x, ' eh ', modulo); Write(#10#13#10#13, 'Tecle "Enter" para sair.'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. |
Outras linguagens?
Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
