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

• #2286 pazirezz tag gaben #1

  Új Válasz 2008-10-30 20:35:42 #2286

  Ú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

  

  pazirezz

  tag

  válasz gaben #1 üzenetére

  hali...
  lehet +oldották már a problémádat az "első" nevü progidban...de egy dolog biztos nem volt jo...:
  nincs megadva, hogy a progyi melyik "unit"-ot használja...pl "uses crt;"
  egy darabig olvastam a hozzászolásokat, senki nem irta ezt, csak hüjeségeket, hogy kisbetű, nagybetü...
  na mind1...ez tutko hiba volt benne...
  üdv.p

• #2088 benyeibenjam csendes tag gaben #5

  Új Válasz 2007-11-24 12:43:52 #2088

  Ú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

  

  benyeibenjam

  csendes tag

  válasz gaben #5 üzenetére

  nem tettél vmelyik sor után pontosvesszőt(;)Ben'

• #1962 Random88 csendes tag gaben #1

  Új Válasz 2007-07-05 17:57:00 #1962

  Ú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

  

  Random88

  csendes tag

  válasz gaben #1 üzenetére

  readln után zárójel readln() van
  nem szögletes zárójel

• #1744 Pista51 csendes tag gaben #1

  Új Válasz 2007-01-22 13:38:11 #1744

  Ú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

  

  Pista51

  csendes tag

  válasz gaben #1 üzenetére

  program elso;
  use dos,crt;
  var szam:integer;
  begin
  readln (szam); (*mindig ebben a sorban ír hibát ,,error 86 *)
  if (szam mod 2 = 0) then
  begin
  writeln 'páros';
  end
  else
  begin
  writeln 'páratlan';
  end;
  readln;
  end.
  
  Ez fog mukodni

• #1630 Jolán csendes tag gaben #1

  Új Válasz 2006-11-19 17:12:07 #1630

  Ú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

  

  Jolán

  csendes tag

  válasz gaben #1 üzenetére

  nekem sikerűlt begépeltem bár nem minden kellet hogy sikerüljön :
  Itt a cucc :
  
  Program paros;
  Var a:integer;
  Begin
  ReadLn (a);
  If a mod 2=0 then WriteLn ('paros')
  Else WriteLn ('paratlan');
  ReadLn;
  End.
  
  Remélem bejön
  
  [Szerkesztve]

• #849 berkine csendes tag gaben #1

  Új Válasz 2005-12-13 07:07:10 #849

  Ú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

  

  berkine

  csendes tag

  válasz gaben #1 üzenetére

  Szia!
  Találtam pár hibat, ugyhogy irom az egészet ujra :
  
  program elso;
  uses crt;
  var szam:integer;
  begin
  clrscr;
  readln(szam);
  if szam mod 2=0 then
  writeln( 'paros')
  else writeln( 'paratlan');
  readln;
  end.
  
  Üdv: berkine

• #769 LordEVon csendes tag gaben #1

  Új Válasz 2005-11-20 12:15:31 #769

  Ú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

  

  LordEVon

  csendes tag

  válasz gaben #1 üzenetére

  hy mindenkinek.
  szóval én kezdő vok ebben a turbo pascalban, de sztem gaben nem fogja érteni ezt az egészet ha nem magyarázza el neki valaki, vag ynem mutatja meg vki egy jó proggal.
  én megírtam, nekem működi is.
  leírom hogy néz ki nálam.
  
  program szam;
  uses crt;
  var
  x:integer;
  Begin
  clrscr;
  write('kérem a számot ');
  readln(x);
  if x mod 2=0 then write('páros')
  else write('páratlan');
  readln;
  End.
  
  Nekem ez így működött, lehet h nagyon papírforma, meg mittom én, de működik és az a lényeg.
  
  Nekem is lenne kérdésem. Hogy kell csinálni a tömbös(arrayos progokat?)
  
  Üdv:Lev

• #674 DJ ZOLI csendes tag gaben #1

  Új Válasz 2005-05-07 14:24:58 #674

  Ú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

  

  DJ ZOLI

  csendes tag

  válasz gaben #1 üzenetére

  Szerintem így jó:
  program elso;
  Uses Crt;
  var
  szam:integer
  
  
  szóval a varral ne egy sorba , r alá kezd el írni.
  

• #643 Blunk csendes tag gaben #1

  Új Válasz 2005-04-01 12:58:21 #643

  Ú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

  

  Blunk

  csendes tag

  válasz gaben #1 üzenetére

  Figyelcsak ha talán így irnád
  readln (szam);
  Szívesen

• #478 gromble_ziz aktív tag gaben #1

  Új Válasz 2004-11-05 14:42:29 #478

  Ú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

  

  gromble_ziz

  aktív tag

  válasz gaben #1 üzenetére

  nem lehet, hogy kell egy ;-s end is? azaz
  ''end;''

• #357 tanácstalan csendes tag gaben #1

  Új Válasz 2004-10-28 13:32:43 #357

  Ú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

  

  tanácstalan

  csendes tag

  válasz gaben #1 üzenetére

  Valaki lécci segítsen! Programozás órám van és turbo Pascalba kell írnom 1 programot! De nem tudom h hogy kell! a feladat: számítsa ki egy henger térfogatát és felszínét! tudom h hülyének néztek de abszolút nem értek hozzá!

• #342 Lion_king csendes tag gaben #1

  Új Válasz 2004-10-12 19:19:20 #342

  Ú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

  

  Lion_king

  csendes tag

  válasz gaben #1 üzenetére

  .
  
  [Szerkesztve]

• #121 (_Y_) csendes tag gaben #1

  Új Válasz 2004-07-03 01:59:21 #121

  Ú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

  

  (_Y_)

  csendes tag

  válasz gaben #1 üzenetére

  szóval szerintem az lehet a probléma, hogy nem vagy tisztában a jelölésekkel.
  a helyes program:
  
  var sz:integer;
  begin
  readln (sz; {a [] jelek helyett sima () zárójel kell}
  if szam mod 2=0 then
  writeln ('páros') {itt is elírtad a cuccost, de erre rájöttél volna}
  else writeln ('páratlan')
  readln;
  end.
  
  soxerencsét a további tanuláshoz

• #69 _Gudella senior tag gaben #61

  Új Válasz 2004-05-16 14:27:05 #69

  Ú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

  

  _Gudella

  senior tag

  válasz gaben #61 üzenetére

  Ha több szöveget rakarsz egymás mellé:
  
  write(s1+s2+s3+s4+s5....)
  
  s1, s2 stb sting vagy char tipus lehet.
  
  ha szóközt akarsz közéjük, akkor:
  write(s1+' '+s2+' '+s3+' '.....)

• #63 rog addikt gaben #61

  Új Válasz 2003-12-30 13:06:52 #63

  Ú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

  

  rog

  addikt

  válasz gaben #61 üzenetére

  procedure szovegxy(szoveg:string;x,y:byte);
  begin
  gotoxy(x,y);
  write(szoveg);
  end;
  
  de a gaben gaben gaben egyszerübben:
  for t:=1 to 3 do write(''gaben '');

• #62 lesaux veterán gaben #61

  Új Válasz 2003-12-30 13:06:11 #62

  Ú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

  

  lesaux

  veterán

  válasz gaben #61 üzenetére

  gotoxy(1,1);
  write('gaben');
  
  gotoxy(1,6);
  write('gaben');
  
  gotoxy(1,11);
  write('gaben');
  
  Valahogy így.

• #60 lesaux veterán gaben #58

  Új Válasz 2003-12-30 12:49:57 #60

  Ú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

  

  lesaux

  veterán

  válasz gaben #58 üzenetére

  Azt is gotoxy-nal.
  GotoXY(a,b);
  Az a határozza meg az sor, a b pedig az oszlop számát. Asszem. Ha nem, akkor pont fordítva.

• #59 rog addikt gaben #58

  Új Válasz 2003-12-30 12:43:24 #59

  Ú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

  

  rog

  addikt

  válasz gaben #58 üzenetére

  #56..
  

• #52 Keitaro addikt gaben #51

  Új Válasz 2003-11-30 09:45:55 #52

  Ú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

  

  Keitaro

  addikt

  válasz gaben #51 üzenetére

  valsz két helyen is használtad azt, hogy átlag mint azonosítő. Egy változónak is ezt a nevet adtad, meg esetleg egy funkctionnek vagy procedure-nek.

• #41 lesaux veterán gaben #38

  Új Válasz 2003-11-21 22:10:27 #41

  Ú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

  

  lesaux

  veterán

  válasz gaben #38 üzenetére

  van, de azt a másik topicban...

• #39 steveetm őstag gaben #37

  Új Válasz 2003-11-21 22:06:37 #39

  Ú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

  

  steveetm

  őstag

  válasz gaben #37 üzenetére

  nem kell a topicot zárni, lehet még kérdésed, vagy másnak is kérdése késöbb, nem kell újat nyitni igy folyton.
  sztem persze.
  Üdv.: steveetm

• #36 lesaux veterán gaben #34

  Új Válasz 2003-11-21 22:00:33 #36

  Ú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

  

  lesaux

  veterán

  válasz gaben #34 üzenetére

  az ''elso'' és az ''integer'' után rakjál pontosvesszőt
  
  writeln ('páros');
  writeln ('páratlan');
  
  ez a kettő itt fent zárójellel kell!
  
  A páratlan után is kell pontosvessző. így:
  writeln ('páratlan');

• #35 steveetm őstag gaben #34

  Új Válasz 2003-11-21 21:59:04 #35

  Ú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

  

  steveetm

  őstag

  válasz gaben #34 üzenetére

  nem hülye, te nem érted meg őt.
  Kiírja hogy hiányzik a pontosvessző(még rá is ugrik arra a sorra), én is lemondtam már hogy írd ki, meg más is leírta már a jó kódot.
  Ennél több segítséget nehezen tudunk adni.
  Üdv.: steveetm

• #22 zenit tag gaben #20

  Új Válasz 2003-11-21 21:42:50 #22

  Ú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

  

  zenit

  tag

  válasz gaben #20 üzenetére

  Vigyázz, az else elé nem kell pontosvessző!

• #21 steveetm őstag gaben #20

  Új Válasz 2003-11-21 21:41:14 #21

  Ú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

  

  steveetm

  őstag

  válasz gaben #20 üzenetére

  igen mert te már elve rosszul használtad az eljárást. writeln() meg readln(), nem writeln ' '(a readre már nem emléxem mit írtál...)
  Üdv.: steveetm

• #19 lesaux veterán gaben #17

  Új Válasz 2003-11-21 21:39:05 #19

  Ú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

  

  lesaux

  veterán

  válasz gaben #17 üzenetére

  nézd meg a (#12)-est meg a (#14)-est. azok működnek.

• #18 steveetm őstag gaben #17

  Új Válasz 2003-11-21 21:35:29 #18

  Ú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

  

  steveetm

  őstag

  válasz gaben #17 üzenetére

  figy, ne sértődj meg de ha progzani fogsz kicsit nem árt ha tudsz gondolkodni. Ha kér pontosvesszőt írd oda neki, általában nem a semmiért sír szegény.
  Üdv.: steveetm

• #12 Szeke senior tag gaben #1

  Új Válasz 2003-11-21 21:26:16 #12

  Ú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

  

  Szeke

  senior tag

  válasz gaben #1 üzenetére

  Program helyesen
  program elso;
  var szam:integer;
  begin
  write ('Kerem a szamot: ');
  readln(szam);
  if szam mod 2=0 then
  writeln ('páros');
  else writeln ('paratlan');
  readln;
  end.
  
  
  Szvsz....

• #7 zenit tag gaben #5

  Új Válasz 2003-11-21 21:20:36 #7

  Ú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

  

  zenit

  tag

  válasz gaben #5 üzenetére

  Azt írja :Error 85 '';'' expected
  Ez magyarul is azt jelenti, hogy hiányolja a pontosvesszőt.
  Nyilván ezt írtad be: readln (szam)
  Helyesen: Readln (szam);
  

• #3 lesaux veterán gaben #1

  Új Válasz 2003-11-21 20:57:01 #3

  Ú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

  

  lesaux

  veterán

  válasz gaben #1 üzenetére

  readln (szam)
  
  sima zárójelbe

• #2 Szeke senior tag gaben #1

  Új Válasz 2003-11-21 20:56:07 #2

  Ú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

  

  Szeke

  senior tag

  válasz gaben #1 üzenetére

  begin és a readln közé kell ez a sor:
  write ('Kérem a számot: ');

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