Pascal

[Rodrigo - TecFlash 0]

Ai gente... alguem aqui programa em pascal? Se programar me ajudem akiprogram maiorDeTres; var primeiroN, segundoN, terceiroN: real;begin writeln('Este programa serve para avaliar o maior de três números. Escreva o primeiro:'); readln(primeiroN); writeln('Escreva o segundo número:'); readln(segundoN); writeln('Escreva o terceiro e último número:'); readln(terceiroN); if primeiroN > segundoN then begin if primeiroN > terceiroN then writeln('O primeiro número é o maior'); else if primeiroN < terceiroN writeln('O terceiro número é o maior'); else writeln('O primeiro e o terceiro número são iguais e os maiores'); end else if primeiroN < segundoN then begin if segundoN > terceiroN then writeln('O segundo número é o maior'); else if segundoN < terceiroN writeln('O terceiro número é o maior'); else writeln('O segundo e o terceiro número são iguais e os maiores'); end else if primeiroN = segundoN then begin if primeiroN > terceiroN then writeln('Os primeiros dois números são iguais e os maiores'); else if primeiroN < terceiroN then writeln('O terceiro número é o maior'); else writeln('Os três números são iguais'); endend.To sem compilador e preciso saber se funfa.

[wxkj 0]

Pascal foi a primeira linguagem em que programei.mas não lembro muito das sintaxes.isso é trabalho de escola ??faça um algoritmo primeiroa descrição do problema é muito simples.o compilador é fácil encontrar, muitos sites disponibilizam o Turbo Pascal para download

[<!-- LeD --!> 0]

kra tem alguns errinhos simples, como, antes de um "else" nao pode vir um " ; " (ponto e virgula) e falta um " ; " (ponto e virgula) no ENDEspero ter ajudado.writeln(' The life is the great pleasure - the death the great abstinence. Thus being it uses to advantage to the maximum the life - HERE and NOW! ');

[Aroldo Zanela 0]

Colega,

 

Uma idéia para simplificar seu algoritmo:

 

var primeiroN, segundoN, terceiroN: real;begin  primeiroN := 7;  segundoN  := 7;  terceiroN := 7;  if (PrimeiroN > SegundoN) and (PrimeiroN > TerceiroN) then    WriteLn('O primeiro é Maior')  else  if (SegundoN > TerceiroN) and (SegundoN > PrimeiroN) then    WriteLn('O segundo é Maior')  else  if (TerceiroN > PrimeiroN) and (TerceiroN > SegundoN) then    WriteLn('O terceiro é Maior')  else    WriteLn('Todos são iguais');  WriteLn('O maior valor é :' + FloatToStr(Maior(Maior(PrimeiroN, SegundoN), TerceiroN)));end;function Maior(const A, B: Double): Double;begin  if A > B then    Result := A  else    Result := B;end;