Új hozzászólás Aktív témák
-
gaben
aktív tag
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. -
gaben
aktív tag
Nem csinál semmi!
Azt írja :Error 85 '';'' expected
Ilyenkor mit csináljak? -
nygma
addikt
szerintem fogj egy könyvet, és olvass
-
gaben
aktív tag
;-vel írtam be!
Szerintem is így van jól, ezért newm értem mi a hiba... -
lesaux
veterán
A readln-nak nem kell a Crt unit? Fejből nem tudom...
-
Szeke
senior tag
-
lesaux
veterán
program elso;
var szam:integer;
begin
readln (szam);
if szam mod 2=0 then
writeln ('páros')
else writeln ('páratlan');
readln;
end. -
Veron
őstag
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."
-
gaben
aktív tag
Most meg itt kér pontos vesszőt:
var szam: integer -
gaben
aktív tag
Ez nem mindig igaz...
mindenhova hiraktam ahova kérte,utána újabb hiba!
Error is statament. -
Keitaro
addikt
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
-
gaben
aktív tag
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 -
gaben
aktív tag
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! -
gaben
aktív tag
Lesaux bios chipet van akkor?
-
gaben
aktív tag
mondjuk igaz
egyenlőre nyitva -
Darth_Revan
veterán
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? -
Robiba
tag
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!
-
Notes
senior tag
#12?
Van neki elég baja ezzel a TP-vel minek írod le szerencsétlennek, hogy ez működik? Else előtt pontosvessző...Romanes eunt domus!
-
Keitaro
addikt
válasz Darth_Revan #42 üzenetére
Nézd meg a TextColor és TextBackground parancsokat kezdetnek. Kép beszúrása húzósabb
-
TitiRii
senior tag
é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.
-
laxius_
tag
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...
-
SPeY
csendes tag
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 -
alitak
senior tag
É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éntNec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
Új hozzászólás Aktív témák
- MINI ITX GAMING/STREAMING PC RYZEN 5 7600X RTX 3080TI 32GB RAM MESHLICIOUS
- GAMER PC i5 6600K 16GB DDR4 SSD+HDD GIGABYTE 1070 8GB GDDR5 256BIT WINDFORCE
- Apple watch series 5 40mm gps + cellular rose gold I Ingyenes Foxpost csomagküldés!
- ESR Rebound 360 Magnetic Keyboard Case (ENG) - iPad Pro / Air
- Új Gamer PC i5 12400F/13400F/24Gb DDR5/RX 6600 vagy RX 6600 XT 8Gb/500Gb M2 SSD/700W 2-3 Év gari
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest