Ú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

• #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

• #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....

• #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