- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Synology NAS
- Mesterséges Intelligencia topik
- Musk azt mondja: a gondolatával mozgatja az egeret a Neuralink első betege
- Kínai cégek segítik ezentúl a Teslát, a Renault-t, a Hyundait és a Toyotát
- Windows 11
- Mikrotik routerek
- 1000 kilométert mehetnek az EV-k az új CATL-akkuval
- ASUS routerek
- Windows 10
Új hozzászólás Aktív témák
-
DukeFX
tag
válasz KovacsUr #300 üzenetére
Én örültem volna, ha lehetett volna TP-t használni suliban. De neeeeem. Feltétlenül szenvedni kellett a Linux-szal. Nincs ilyen ékezet, ez nem jó, az nem jó, meg külső fordítóval kellett dolgozni.
"Programmers are in a race with the Universe to create bigger and better idiot-proof programs, while the Universe is trying to create bigger and better idiots. So far the Universe is winning."
-
DukeFX
tag
válasz [HUN]Zolee #301 üzenetére
Compile --> Target --> ...
"Programmers are in a race with the Universe to create bigger and better idiot-proof programs, while the Universe is trying to create bigger and better idiots. So far the Universe is winning."
-
norbiphu
senior tag
Sziasztok!
A probléma az lenne, hogy egy progit kell írni amely egy bizonyos pénzösszeg megadása után kiírja hogy az hány húszezres, tízes ...
Na ennél egyszerűbben nem lehet megoldani, vagy csak tisztes iparosmunka?
program penzvalt;
uses crt;
var
a,b,c,d,e,f,g,h:longint;
begin
clrscr;
write ('Kérem a pénzösszeget! '); read(a);
b:=a div 20000;
c:=a mod 20000 div 10000;
d:=a mod 20000 mod 10000 div 5000;
e:=a mod 20000 mod 10000 mod 5000 div 1000;
f:=a mod 20000 mod 10000 mod 5000 mod 1000 div 500;
g:=a mod 20000 mod 10000 mod 5000 mod 1000 mod 500 div 200;
h:=a mod 20000 mod 10000 mod 5000 mod 1000 mod 500 mod 200 div 100;
writeln (b,' db húszezres');
writeln (c,' db tízezres');
writeln (d,' db ötezres');
writeln (e,' db ezres');
writeln (f,' db ötszázas');
writeln (g,' db kétszázas');
writeln (h,' db százas');
repeat until keypressed;
end."Hmm," sed teh lolrus. "Maybe we shud go ask Ceiling Cat?"
-
norbiphu
senior tag
UP!, de csak azért mert sürgős
"Hmm," sed teh lolrus. "Maybe we shud go ask Ceiling Cat?"
-
Szenty
tag
válasz norbiphu #309 üzenetére
Bővebben: link
De csak azért, mert sürgős! -
Wasmacsó
csendes tag
hi!
tud nekem valaki segíteni Turbo Pascalban? Alapvető adatállománykezelési I/O műveletekről van szó:nem fut a progim, valami runtimeerrort ír ki, ztálom a runtimeerrorokat. please help nekem!
itt a progi:
var fext;
szoveg,fneve:string;
begin
{$I-}
readln(szoveg);
readln(fneve);
assign(f, fneve);
rewrite(f);
append(f);
writeln(f, szoveg);
if eof(f) then halt;
close(f);
end.
három runtimeerrort is talált!
Előre is köszi!
Csá!Wasfitymájú kapanyányimonyók
-
nagyy
csendes tag
válasz Wasmacsó #315 üzenetére
HI
1.) Az Append(f); felesleges, (és valszeg a hibát is ez okozza), mert a Rewrite(f) már létrehozta, és megnyitotta a fájlt, és az Append(f); pedig a már megnyitott fájlt akarja újra megnyitni.
2.) Az ''if eof(f) then halt; '' sor ugyancsak hibát okoz, mert íráskor mindig a fájl végén van a fájlmutató, és emiatt ebben a sorban mindig kilép a progi, és a fájlt ezért sohasem zárja le.
Ha ezt a két sort kitörlöd szerintem mennie kell. -
Wasmacsó
csendes tag
hi!
nem tudja valaki hogy lehet graph unit nélkül bd-s progit írni? lehet ilyet egyáltalán. most akarok tp-ben egy kis grafikát is tanulni, tesómnak írník valami játékot
bár ez az objektum-orientál programozás...nem is tudom, bár ez nem tartozik ide. vagy inkább alkalmas a tv,op? (Turbo Vision, Object pASCAL). mer láttam progit graph unit nélkül grafikus cucc. tud valaki segíteni grafikus programok írásához?
thx!
[Szerkesztve]Wasfitymájú kapanyányimonyók
-
nagyy
csendes tag
válasz Wasmacsó #317 üzenetére
Assembly-vel meg lehet csinálni, hogy grafikus képernyőt kezelj a Graph unit nélkül, de ha valami összetettebb programot akarsz egyszerűbb megírni ha használod a Graph unitot.
Ha assembly-t akarsz használni, akkor neked kellene megírni pl.: a kör, a téglalap kirajzolását, szövegek kiírását, stb... de ez felesleges mert már a Graph unitban úgyis megvannak ezek.
Az assembly mellett csak az szolhat, hogy gyorsabb progikat tudsz vele írni, de ez kisebb játékoknál ugysem számít.
UI: Szerintem használd a Graph unitot... -
Wasmacsó
csendes tag
help, mi a hiba a progimban?
var fext;
fnev:string;
beteg:record;
.nev : string;
.szulev : integer;
.panasz : string;
.lakcim : string;
.tel : integer;
.datum : integer;
end;
begin
writeln('Kerem a beteg nevet:');
readln(beteg.nev);
writeln('Kerem a beteg szuletesi evet:');
readln(beteg.szulev);
writeln('Kerem a panaszt:');
readln(beteg.panasz);
writeln('Kerem a lakcimet:');
readln(beteg.lakcim);
writeln('Telefonszama:');
readln(beteg.tel);
writeln('Bjegyzes datuma:');
readln(beteg.datum);
writeln('Kerem a fajl nevet:');
readln(fnev);
{$I-}
assign(f, fnev);
rewrite(f);
writeln(f, 'Beteg neve:', beteg.nev);
writeln(f, 'Beteg szuletesi eve:', beteg.szulev);
writeln(f, 'Beteg panasza:', beteg.panasz);
writeln(f, 'Beteg lakcime:', beteg.lakcim);
writeln(f, 'Beteg telefonszama:', beteg.tel);
writeln(f, 'Bejegyzes datuma:', beteg.datum);
writeln('Fajl megnyitas:');
readln(fnev);
append(fnev);
{$I-}
close(f);
end.
előre is thx a segítséget. valami kiment a fejemből tudom...elfelejtettem. francba.
kösz, csá!
[Szerkesztve]Wasfitymájú kapanyányimonyók
-
Wasmacsó
csendes tag
kéne nekem a tvision.tph file thx! valami linket adjatok már!
Wasfitymájú kapanyányimonyók
-
nagyy
csendes tag
válasz Wasmacsó #320 üzenetére
1) A record után ne tegyél pontosvesszőt.
2) (A rekord adatmezőinek a definíciója elé sem kell pont, bár ez lehet
hogy csak itt jelent meg így)
3) Az Append-nek a paraméterben nem lehet sztringet megadni, hanem oda egy
szöveges fájl változót kell tenni, amit elötte az Assignal kijelöltél.
4) Az Append-et nem az írási műveletek után kell tenni, hanem elé, mert
ez a fájlt hozzáírásra NYITJA meg. (emiatt a ReWrite is felesleges, mert
az meg átírásra nyitja meg a fájlt. (ha addig nem volt csinál egyet)
Ha mindig csak az utoljára megadott rekordot akarod tárolni a fájlban, akkor
használd a ReWriteot ott ahol most van, az Append-es sort meg törölt ki.
Ha a rekordokat a fájlhoz akarod fűzni, akkor meg a ReWrite helyére tedd
az Append-et, és ezután mennie kell.
Arra is figyelj, hogy a fájlt csak akkor tudod megnyitni Append-del, ha az
már létezik, ha nem, akkor a ReWrite-ot kell használni. -
bbazsy
őstag
hali.
nem tud esetleg valaki olyan oldalt / oldalakat, ahol példaprogikat találok ?
esetleg a TP könyvhöz mellékelt floppy anyaga valakinek ?
suliba új tanár > ismétlés..
páran eléggé előrébb járunk, kértünk egy felmentőfeladatot..
szeretném átnézni azért előtte amit eddig tanultunk, hogy ne legyen gond.
szal mintfeladatokat keresnék magyarázattal, köszke..
-
Wasmacsó
csendes tag
hi, tudom, sokat kérdezek, még kezdő vagyok!
rám úgy se szorul senki de nagy légykakiban vagyok. nem tud mondani nekem valaki olyan függvényt/eljárást, ami kilistázza egy mappában lévő fájlok neveit? nagyon megköszönném!Wasfitymájú kapanyányimonyók
-
Wasmacsó
csendes tag
jóh, az előző cuccot megoldottam, így néz ki a progi: Compile succesfull, 0 error(s) found! Aztán Division by Zero (runtime error)
mi a frászt csináljak, nincs is benne hiba? mi ez? áááááááááááááá! lécci segítsetek má nekem mer ez nem megy. vannak itt profik is látom, pls help nekem! itt a kód:
uses crt;
var
ch:char;
f,flistext;
fnev:string;
beteg:record
nev : string;
szulev : integer;
panasz : string;
lakcim : string;
tel : integer;
datum : integer;
end;
procedure betegfelvetel;
begin
textbackground(blue);
textcolor(yellow);
writeln('Kerem a beteg nevet:');
readln(beteg.nev);
writeln('Kerem a beteg szuletesi evet:');
readln(beteg.szulev);
writeln('Kerem a panaszt:');
readln(beteg.panasz);
writeln('Kerem a lakcimet:');
readln(beteg.lakcim);
writeln('Telefonszama:');
readln(beteg.tel);
writeln('Bjegyzes datuma:');
readln(beteg.datum);
writeln('Kerem a fajl nevet[max 8 karakter]:');
readln(fnev);
{$I-}
assign(flist, 'c:/betegek.txt');
rewrite(flist);
write(flist, fnev);
close(flist);
assign(f, fnev);
rewrite(f);
writeln(f, 'Beteg neve:', beteg.nev);
writeln(f, 'Beteg szuletesi eve:', beteg.szulev);
writeln(f, 'Beteg panasza:', beteg.panasz);
writeln(f, 'Beteg lakcime:', beteg.lakcim);
writeln(f, 'Beteg telefonszama:', beteg.tel);
writeln(f, 'Bejegyzes datuma:', beteg.datum);
close(f);
end;
procedure megnyit;
begin
textbackground(blue);
textcolor(yellow);
assign(flist, 'c:/list.txt');
writeln('Kerem a fajl nevet:');
write('FIGYELEM!!! Csak letezo fajlt adj meg,kulonbben ujat hozok letre!');
writeln('A k”vetkezo fajlok vannak a mappaban:');
reset(flist);
readln(flist,fnev);
readln(flist, fnev);
close(flist);
readln(fnev);
assign(f,fnev);
rewrite(f);
readln(f, beteg.nev,beteg.szulev,beteg.lakcim,beteg.panasz,beteg.tel,beteg.datum);
readln(beteg.nev);
readln(beteg.szulev);
readln(beteg.lakcim);
readln(beteg.panasz);
readln(beteg.tel);
readln(beteg.datum);
writeln(f, beteg.nev,beteg.szulev,beteg.lakcim,beteg.panasz,beteg.tel,beteg.datum);
close(f);
end;
begin
repeat
writeln('f. Felvetel':15);
writeln('o. Megnyitas' :15);
writeln('x Kilepes' :15);
ch:=readkey;
repeat
until ch in ['f','F','O','o','x','X';
case ch of
'f', 'F' : betegfelvetel;
'o', 'O' : megnyit;
'x', 'X' : halt;
end;
until false;
{$I+}
end.
jó hosszú ugye? ha valaki szánna rám egy kis időt! nagyon köszi! hozzám is fordulhattok akármivel, csak ebben a témában vagyok béna
köszi, csá!Wasfitymájú kapanyányimonyók
-
[HUN]Zolee
senior tag
a turbo pascallal lehet hazsnálni a hálózatot?(ip alapján)
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Szenty
tag
válasz [HUN]Zolee #330 üzenetére
Sehogy. A TP DOS-os fejlesztőszköz. Az pedig nem kezel IP-alapú hálózatot. A FreePascal-ban viszont már lehet.
[Szerkesztve] -
nagyy
csendes tag
válasz [HUN]Zolee #330 üzenetére
Nekünk a mult héten kellett a suliban írni egy chat progit Pascalban IPX protokollra építve.Azaz ha megvan a unit, ami kezeli a megfelelő protokollt, akkor lehet hálózatot haználni.
-
[HUN]Zolee
senior tag
Egy linux vagy egy win2000 ftp-jéhez kne csatlakoznia a proginak. és ha jól tom a linux az ipx-es meg a win2k alá is lehet ipx modult berakni.
wagy rosszúl tudom?''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Szenty
tag
válasz [HUN]Zolee #335 üzenetére
Őőő, félig-meddig. A linux alá létezik IPX-támogatás, de soha nem használtam, nem tudom, hogy kell belőni. Win2k alatt meg tuti van IPX protokoll. Sok sikert!
-
[HUN]Zolee
senior tag
És tudna ebben valaki segítni?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
bbazsy
őstag
hali.
valami nálam okosabb plz nézze át ezt: Bővebben: link
én már a hajamat tépem, mert ha false, akkor kihagy egy beolvasást, és nagyon nem értem, h miért... holnap le kéne adnom, szal örülnék egy megoldásnak..
köszike: bbazsy..
-
khalox
őstag
Nem read(x) kell, hanem readln(x).
Ugyanis ha read-dal csinálod, akkor az ENTER bennmarad a billentyűzetpufferbe és a legközelebbi bekérés automatikusan kiolvassa azt (mintha nem írtál volna be semmit, csak nyomtál volna egy sima ENTER-t).
Ezért van az, hogy az első kérdést kihagyja. -
bbazsy
őstag
Bővebben: link
kész, ha valakinek van kedve, átnézhetné, hátha van benne bibi.....
-
crab
senior tag
hali!
az érdekelne engem, hogyan lehet a bill ledjeit ki-be kapcsolni.
forrás vagy angol esetleg magyar leírás érdekelne...
előre is köszi! -
VladimirR
nagyúr
Bővebben: link - itt nezz szet, esett rola szo es ugy remlik valaki irt is egy progit
-
_Petya_
őstag
Üdv!
A követekző feladathoz kérnék segítséget:
Adott egy szám és két számrendszer. A feladat a számot átváltani az egyik
számrandszerből a másikba. Az input a szám leírása az első sorban, a
megadott szám számrendszere a második és a cél-számrendszer a harmadik
sorban decimálisan megadva. A számrendszerek 2-36 között lehetnek, a szám
leírása pedig számjegyekkel és az angol ábécé betűivel történik, az A=10,
B=11, ..., Y=34, Z=35 táblázat alapján. Az output a szám
cél-számrendszerbeli leírása.
Arra gondoltam, első lépésben átváltom 10-esre a bejövő számot, utána pedig a 10-est a megadott számra. Van valakinek jobb ötlete? A 10-esbe váltásra van egy ötletem, de lehet, hogy túlbonyolítom a dolgot, jobbról karakterenként értékelem ki, string -> integer konverzióval. De valamiért nem megy.. A második lépésre nem tudok semmit kitalálni. Tudtok segíteni?
PetyaFontos feladatot soha ne bízz olyan gépre, amit egyedül is fel tudsz emelni!