Keresés: - Turbo Pascal programozás - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Ú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

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Ügyfélszolgálat

Cég: ATW Internet Kft.

Város: Budapest

Részletek

Laptop Szervizes

Cég: PCMENTOR SZERVIZ KFT.

Város: Budapest

Részletek