Új hozzászólás Aktív témák

• #2186 Clairvoyance csendes tag

  Új Válasz 2008-04-12 13:14:28 #2186

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Clairvoyance

  csendes tag

  Lenne egy kezdő problémám (illetve mondjuk úgy "újrakezdő'):

  program fizetes;
  uses crt;
  var osszeg:longint;
  begin
  clrscr;
  writeln('Irjon be egy penzosszeget, kiderul mekkora a fizetese!');
  readln(osszeg);
  gotoXY(5,5);
  if osszeg>0 then
  case osszeg of
  1..60000 : write('Nagyon kis fizetes');
  60001..100000 : write('Alacsony fizetes');
  100001..150000 : write('Atlagos fizetes');
  else write('Magas fizetes');
  end;
  if osszeg<0 then writeln('Hulye');
  end.

  Ez lenne a program. Ha itt futtatni akarom a programot, akkor a 60000 után azt írja, kis, h constant CASE out of range. Pedig longint-et használok, akkor nem szabadna már 60000-nél azt reklamálnia, h nagyobb a szám, mint kéne, nem? Másik az, hogy a hiba súgójában is azt írja, hogy 65535-nél nem lehet nagyobb. A 60000 sztem még kisebb, mint 65535, nemtom ti hogy vagyotk vele.
  Ha átírom 6000-ra akkor nicns baja. Ötlet?

Új hozzászólás Aktív témák