Program na vypísanie max a min cifre

GamerSK · Napísal **GamerSK**: 18.12.2016 19:07

Zdravím, Chcel by som vás poprosiť o radu ohľadom programu na zistenie najmenšieho a najväčšieho čísla zo 4ciferného čísla.
Učiteľ nám zadal tento program na DU no neviem či cez case alebo if. (Práve preberáme case) Preto by som sa vás chcel opýtať sa dá tento program napísať aj cez case. Skúšal som to ale neišlo mi to.

Kód:

program cifre2;
uses crt;
var c:integer;
    c1,c2,c3,c4:byte;
begin
  write('Zadajte 4ciferne cislo: ');
  readln(c);
  c1:= c mod 10;
  c:= c div 10;
  c2:= c mod 10;
  c:= c div 10;
  c3:= c mod 10;
  c:= c div 10;
  c4:= c mod 10;
  if (c1<c2) and (c1<c3) and (c1<c4) then writeln('Najmensia cifra: ',c1);
  if (c2<c1) and (c2<c3) and (c2<c4) then writeln('Najmensia cifra: ',c2);
  if (c3<c1) and (c3<c2) and (c3<c4) then writeln('Najmensia cifra: ',c3);
  if (c4<c1) and (c4<c2) and (c4<c3) then writeln('Najmensia cifra: ',c4);
  if (c1>c2) and (c1>c3) and (c1>c4) then writeln('Najvacsia cifra: ',c1);
  if (c2>c1) and (c2>c3) and (c2>c4) then writeln('Najvacsia cifra: ',c2);
  if (c3>c1) and (c3>c2) and (c3>c4) then writeln('Najvacsia cifra: ',c3);
  if (c4>c1) and (c4>c2) and (c4>c3) then writeln('Najvacsia cifra: ',c4);
readln;
end.

Lessik · Napísal **Lessik**: 18.12.2016 21:21

ries to cez if, case v tomto pripade nepouzivaj.

BX · Napísal BX: 18.12.2016 21:50

case vie porovnávať len presnú zhodu (čiže operátor =). Na tvoje riešenie teda nie je vhodný.

Program na vypísanie max a min cifre

Podobné témy