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

• #523 Wasmacsó csendes tag

  Új Válasz 2004-12-14 21:26:59 #523

  Ú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

  

  Wasmacsó

  csendes tag

  aholy everybody!
  Help nekem pls!!!!!
  van egy tp prg-m grafikáról szól, van egy kis gáz, azaz a legnagyobb gáz, ami felmerülhet:
  Division by Zero
  Azt nem értem, hogy hol van itt osztás nullával, vagy ahhoz hasonló???? Mert más hiba meg nem lehet
  na, szal itt a kód, előre is thx!
  
  uses graph, crt;
  var gvezerlo, gmod, hibakod, okey:integer;
  var texting:string;
  var valasz:char;
  procedure szinscr;
  begin
  setcolor(okey);
  OutTextXY(GetMaxX div random(10), GetMaxY div random(10), texting);
  readln;
  end;
  procedure textsize;
  begin
  SetUserCharSize(15 div 2, 16 div 3, 17 div 4, 26 div 3);
  setcolor(okey);
  OutTextXY(GetMaxX div 2, GetMAxY div 2, texting);
  end;
  procedure cscrs;
  begin
  setcolor(okey);
  OutTextXY(GetMaxX div 2, GetMAxY div 2, texting);
  sound(600);
  end;
  begin
  writeln('Kerem a szint:');
  readln(okey);
  writeln('Kerem a szoveget:');
  readln(texting);
  detectgraph(gvezerlo, gmod);
  initgraph(gvezerlo, gmod, 'c:\tp\bgi');
  hibakod:=graphresult;
  setcolor(okey);
  SetTextStyle(DefaultFont, HorizDir, 3);
  SetTextJustify(CenterText, CenterText);
  SetUserCharSize(5, 6, 5, 6);
  OutTextXY(GetMaxX div 2, GetMaxY div 2, texting);
  writeln('K‚perny‹v‚di inicializ l sa');
  writeln('V laszt si lehet‹s‚gek:');
  writeln('a: A sz”veg szˇn‚nek a megv ltoztat sa');
  writeln('b: A sz”veg m‚ret‚nek a megv ltoztat sa');
  writeln('c: A sz”veg szˇn‚nek a megv ltoztat sa hanggal');
  readln(valasz);
  case valasz of
  'a', 'A' : szinscr;
  'b', 'B' : textsize;
  'c', 'C' : cscrs;
  end;
  readln;
  closegraph;
  end.
  
  Amúgy szerintem tanuljatok VB-t vagy Delphit, annak van értelme, a c++ nem rossz, de amúgy utálom. A TP - vel csak azér foglalkozok, mert unatkozom
  Csá
  

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