Most tanulom a tb-t, és már az elején elakadtam.....

Mi a hiba ebben?

A program bekér egy számot, majd megállapítja a számról,hogy páros-e vagy páratlan?
program elso;
var szam:integer;
begin
readln [szam]; (mindig ebben a sorban ír hibát ,,error 86 ';' ''
if szam mod 2=0 then
writwln 'páros'
else writeln 'páratlan'
readln;
end.

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

A biztonsági öv lehet, hogy korlátoz a mozgásban, de még mindig nem annyira, mint a tolószék.

readln (szam)

sima zárójelbe

Na igen, de azt hittem csak félregépeli. Ennyi szintaktikát egy kezdőnek is tudni kell

A biztonsági öv lehet, hogy korlátoz a mozgásban, de még mindig nem annyira, mint a tolószék.

Nem csinál semmi!
Azt írja :Error 85 '';'' expected

Ilyenkor mit csináljak?

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);

Persze kis/nagybetű mindegy...

Mint fentebb említettem: sajnos ennyire kezdőnek nem gondoltam

A biztonsági öv lehet, hogy korlátoz a mozgásban, de még mindig nem annyira, mint a tolószék.

;-vel írtam be!

Szerintem is így van jól, ezért newm értem mi a hiba...

A readln-nak nem kell a Crt unit? Fejből nem tudom...

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

A biztonsági öv lehet, hogy korlátoz a mozgásban, de még mindig nem annyira, mint a tolószék.

Nem kéne neki....

A biztonsági öv lehet, hogy korlátoz a mozgásban, de még mindig nem annyira, mint a tolószék.

program elso;
var szam:integer;
begin
readln (szam);
if szam mod 2=0 then
writeln ('páros')
else writeln ('páratlan');
readln;
end.

tényleg nem

Igy is lehet ( odd fv.) :

program elso;
var szam:integer;
begin
write ('Kerem a szamot: ');
readln(szam);
if odd(szam) then writeln ('páratlan')
else writeln ('páros');
readln;
end.

"Hisztéria... Csak nők kaphatják meg, és csak férfiak halnak bele."

Most meg itt kér pontos vesszőt:
var szam: integer

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

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

Ez nem mindig igaz...
mindenhova hiraktam ahova kérte,utána újabb hiba!
Error is statament.

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

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

na ez igy biztos nem müködik!
nincs adatbevitel.

:)

readln(szam) vagy mien adat kell még?
Üdv.: steveetm

ott a readln(szam);

működik, ki van próbálva

na de mikor adtad meg a szam értékét?
vagy az csak ugy benne maradt?

:)

Szerintem nem kéne space a zárójelek elé pl... csak így első blikkre. És a feltételt rakd zárójelbe csak biztos ami biztos. Szebb

ööö te pascaloztál már? bocs ne érts félre, de a readln az beolvas a billentyűről a szmaba(ebben az esetben).
Üdv.: steveetm

a readln(valtozo); bekér egy értéket, és eltárolja a valtozo nevű változóban

igen és a if nek sztem így kéne kinéznie:
If (.....) Then
Begin
...
End
Else
Begin
...
End;

Sok problémától menthet meg ha esetleg késöbb hozzáírsz vmit, hiba nélkül fordulhat de mégse azt csinálja amit kéne...
Üdv.: steveetm

de szépen behúzta a spaceeimet
Üdv.: steveetm

tényleg! beugrott .
nincs semmi kiirás, illetve az elözö program maradékok a clsrc hiánya miatt.
csak beirod a számot és enter.

:)

hát sajnos pascalozook.
ma egy olyan progit kellett csinálni, ami a beirt szavakat abc sorrendbe rendezi.
persze, hogy a tanár csinálta meg

:)

Hülye ez a pascal....
Na ezt írja.
File Edit Run Compile Options Debug Break/watch
Ň════════════════════════════════════ Edit ════════════════════════════════════Ş
│Error 85: '';'' expected │
│program elso │
│var szam:integer │
│begin │
│readln (szam); │
│if szam mod 2=0 then │
│writeln 'páros' │
│else writeln 'páratlan' │
│readln; │
│end. │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
├─────────────────────────────────── Watch ────────────────────────────────────┤
│ │
└──────────────────────────────────────────────────────────────────────────────┘
F1-Help F5-Zoom F6-Switch F7-Trace F8-Step F9-Make F10-Menu NUM

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

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');

ok köszi a türelme hozzászólásikat,csak én vagyok már egy kicsit álmos.
Meg az kavart be,hogy az a hülye tanár 2 helyre is elfelejtette beírni a ;-t!!

Topicot lehet zárolni!

Lesaux bios chipet van akkor?

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

mondjuk igaz

egyenlőre nyitva

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

Sziasztok!
Az lenne a kérdésem,hogy minden program amit Pascalban írúnk csak fekete háttér+fehér betű kombóval müxik? Nem leeht ezeket a szineket megváltoztatni,vagy esetleg képeket beszúrni? Nincsenek ilyen parancsok?

Hát... képeket beszúrni azt nem olyan könnyű.
A színek viszont igen. Már elég rég használtam, úgyhogy olvasd el a 'BackGroundColor' és társait a Help-ben.

Billentyűzet hiba! Nyomjon F1-et a folytatáshoz!

Nézd meg a TextColor és TextBackground parancsokat kezdetnek. Kép beszúrása húzósabb

erre gondoltam

Billentyűzet hiba! Nyomjon F1-et a folytatáshoz!

épp ma irtam TVt programozásbol és ott TP volt
ha az elmélet is hibátlan lesz akkor 5!!

Akinek kell valami, vagy akar valamit munka időben keressen az itt megadott telefonszámon! Köszönöm.

Nem tudok mit mondani. A pontosvesszo kell, az pedig nemszamit hogy kis vagy nagybetu az R a readln -ben. crt unit nem kell hozza.

dolgozni csak pontosan, szépen...

program par;

var
szam: integer;

begin
WriteLn('Kerem a szamot:');
ReadLn(szam);
if (szam mod 2) = 0 then
WriteLn('Paros')
else
WriteLn('Paratlan');
WriteLn;
WriteLn('Nyomj egy billentyut..');
ReadLn;
end.


Udv., SPeY

Én is megcsináltam:

program elso;
var szam:integer;
begin

writeln('Adj meg egy szamot, eldontom paros-e: ');
readln(szam);
if szam mod 2 = 0 then writeln('Ez a szam paros!')
else writeln('Ez a szam paratlan');
readln;
end.

Na hát ennyi! Mondjuk én is idén keztem, de nekem teccik. Főleg hogy megszoktam a ;-őt soronként

Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw