Hirdetés
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- One mobilszolgáltatások
- iPhone topik
- Dobja a SIM foglalatot az iPhone Európában?
- Apple iPhone 13 Pro Max - őnagysága
- Akciófigyelő: Megnyílt a Xiaomi hivatalos magyar webáruháza
- One UI a Samsung hűtőn is, hétéves frissítési ígérettel
- Milyen okostelefont vegyek?
- Honor Magic V5 - méret a kamera mögött
- Mobil flották
Új hozzászólás Aktív témák
-
VladimirR
nagyúr
válasz
Protezis
#391
üzenetére
ezt nezd meg:
itt legalabb egy ilyen kellene lenni a kimeneti file-ban: ---
forras kommentekkel: Bővebben: link
leforditott exe: Bővebben: link
pelda input: Bővebben: link
pelda output: Bővebben: link
egyebkent angol xpsp2, borland pascal 7.0
[Szerkesztve] -
Protezis
őstag
LOL
Dévényi bácsinak tök mindegy mit használunk. Linux alatt fogják fordítani a progikat, fpc-vel, de lehet megnézik még Kylixxal, meg még valamivel.
Amúgy én Műszaki Informatika szakos vagyok.
Az fpc-t meg azért használom, mert gyors és egyszerű használni. Tavaly TP volt a menő, most ez
Ja, ha linux alatt nem fordul, akár a windows és linux alatt eltérő sorvégi karakterekből adódóan, 0 pont. Csak a forrás 7 pontot ér, ha teljesen jó, és szintaxisdiagrammot is kell rajzolni. I Love Devenyi!! -
Protezis
őstag
válasz
VladimirR
#390
üzenetére
Sajna az fpc parancssori fordító, legalábbis én így tudom, és ezért is használom. Debug szvsz nincs benne. kipróbáltam in fájl nélkül, természetesen akkor hibaüzivel leállt. NEM NEM NEM ÉRTEM!
Milyen oprendszered van? Nálam sp2 van, nem lehet, hogy az zavar be?
Gondoltam már az írási jogra is, de rendszergazdaként vagyok bejelentkezve, szal az is van
Aki megfejti, meghívom egy sörre, feltéve hogy lejön Szegedre
-
VladimirR
nagyúr
válasz
Protezis
#389
üzenetére
hat ezt nem ertem
jo lenne, ha masok is tesztelnek a programot, hogy kideruljon melyikunknel van a hiba
esetleg probald meg soronkent futtatni es az lm^.s valtozo erteket debug/watch ablakban figyelni
btw a forrasban frissitettem a kommenteket
forras kommentekkel: Bővebben: link
leforditott exe: Bővebben: link
pelda input: Bővebben: link
pelda output: Bővebben: link - egy ugyanilyen tartalmu, pelda.out file kellene, hogy letrejojjon
[Szerkesztve] -
Protezis
őstag
válasz
VladimirR
#387
üzenetére
Hát tényleg nem értem
Leszedtem az exe-t, mellette csináltam egy RENDEZ.IN fájlt, beleírtam, hogy alma
A végeredmény: RENDEZ.OUT, tartalma semmi
Kezdem lámának érezni magam
Már egy programot se tudok normálisan futtatni
Ja igen, free pascal. De akkor nem ott van a bibi.
[Szerkesztve] -
Protezis
őstag
válasz
VladimirR
#385
üzenetére
Na átnéztem a progidat, és világos
Nem tudom miért, de mindig mindent túlbonyolítok. Tavaly csináltam egy számológépet, ami RÓMAI számokkal működött. Tudta a 4 alapműveletet, ill. az eredményt fel tudta használni a következő számolásnál. Asszem 30000 környékén száll el, de ki ír be 30 db M betűt?? :
A tanár visszaírja e-mailben, hogy ez hogy műkszik? Mert ő nem érti, de mivel gyors voltam, 13 pontot kaptam a 15-ből
-
VladimirR
nagyúr
válasz
Protezis
#386
üzenetére
az fpc az freepascal-t takar? en bp7-tel dolgozom es felraktam a leforditott .exe-t is a forras melle, kerlek nezd meg azzal is (es a forrast is erdemes ujra leszedni, mert belekerultek a kommentek)
forras kommentekkel: Bővebben: link
leforditott exe: Bővebben: link
a lancolt listamat ne nagyon nezegesd, mert szerintem megoldhato egyszerubben is - szerintem tulbonyolitom (szokasom) -
-
VladimirR
nagyúr
válasz
Protezis
#384
üzenetére
semmi? nekem egy alma-t beleir (attol meg bug, mindjart utanajarok, de addig is nezd meg az eredeti feladatkiirasban levo peldainputtal, en azzal teszteltem, arra jo)
a kepernyore kiirassal meg ne torodj, azt mindjart kiszedem - csak debug info, mert lame vagyok
szerk.: megvan a hiba, ha az utolso karakter hasznalhato (kisbetu/nagybetu/kotojel), akkor az utolso szo lemarad - mindjart javitom
JAVITVA
Na kesz vannak a kommentek is, az elgepelesekert es a helyenkent erthetetlen szovegelesert elnezest
[Szerkesztve] -
VladimirR
nagyúr
neh itt a teljes progi: megeri idonkent megnezni, mert meg csak most fogom kommentelni - Bővebben: link -jah es valaki mondja mar meg, hogy a lancolt listat miert bonyolitom ennyire tul?
fontos: habakezeles nincs benne - a leforditott exe melle kell tenni a bemeno adatokat egy rendez.in nevu file-ba a kimenet pedig egy rendez.out nevu file lesz - ha a bem,eneti file hianyzik, akkor runtime error![;]](//cdn.rios.hu/dl/s/v1.gif)
-
Protezis
őstag
Röviden a működése: megszámolja a betűket a fájlban, lefoglalja a memóriát, majd egy ciklusban betölt egy sor egy string változóba, és végighalad a karakterein. Ha betű vagy -, akkor eltárolja egy tömb string elemének megfelelő pozicióján. A nagy ciklus a fájl végéig megy.
Itt a forrás a jobb áttekinthetőség kedvéért:
Bővebben: link
[Szerkesztve] -
Protezis
őstag
Nah nekem is ez a kötprogom
az én progim elszáll vhol, bár a rendezés nincs még benne.
Lehet egy kicsit túlbonyolítottam:
Program kotprog;
Type
mutato = ^tomb;
tomb = array [0..10000] Of string;
Var
szo: mutato;
szohossz: integer;
function betuszamlalof(filenev: string) : word;
var
szoveg: text;
tmpszoveg: string;
db: integer;
begin
assign(szoveg, filenev);
reset(szoveg);
db:=0;
while not eof(szoveg) do
begin
readln(szoveg, tmpszoveg);
db:=db+length(tmpszoveg);
end;
betuszamlalof:= db;
end;
function szokeres(filenev: string; szohossz: integer): mutato;
var
szo: mutato;
szoveg: text;
sor: string;
i: byte;
betuszamlalo: longint;
ujszo: boolean;
szoszamlalo: longint;
mem: word;
begin
assign(szoveg, filenev);
reset(szoveg);
{Megszámoljuk a betuszamlalo fügvénnyel a szövegfájlban található karakterek számát,
és lefoglalunk akkora memóriát, amekkorára maximálisan szükségünk van.
Ha a fájlban minden páros sorszámú helyén 'szemét' karakter van és minden páratlanadik helyén
betű, vagy kötőjel, akkor n db karakter esetén (n div 2)+1 szó (jó karakter) van a szövegben.
(Így ezek mindegyike 1 betűből áll)}
mem:=((betuszamlalof('be.txt') Div 2) + 1)*szohossz;
GetMem(szo, mem);
betuszamlalo:=-1;
szoszamlalo:=0;
ujszo:=false;
while not eof(szoveg) do
begin
readln(szoveg, sor);
for i:=0 to (length(sor)-1) do
begin
if ((sor[i+1]>='a') and (sor[i+1]<='z')) or ((sor[i+1]>='A') and (sor[i+1]<='Z')) or (sor[i+1]='-') then
begin
szo^[szoszamlalo][i-betuszamlalo]:=sor[i+1];
ujszo:=true;
end
else
begin
betuszamlalo:=i;
if ujszo then
begin
szoszamlalo:=szoszamlalo+1;
ujszo:=false;
end;
end;
end;
end;
szokeres:=szo;
end;
Begin
readln(szohossz);
szo:=szokeres('be.txt',szohossz);
writeln(szo^[0][1]);
End.
A hiba fpc-vel fordítás után:
Runtime error 5 at 0x0040106A
0x0040106A
0x0040119E
0x00401235
Bocs a hosszú hozzászólásért! -
_Petya_
őstag
Üdv!
Te is Szegedre jársz? Már dolgozom a feladaton, ha gondolom veled is megosztom a megoldást, tudok még pár embert aki ezt a feladatot kapta, konzultálhattok is
Kis segítség: bármilyen rendező algoritmus használható, mert a pascal értelmezi a
'alma' < 'barack' jellegű relációkat is.
Petya -
devast
addikt
Itt a programod, ha kérdezik buborékrendezéssel csináltad
Hja, és nem ártana alapszinten megtanulni programozni Ha már 1x olyan suliba jársz...
program sorbarendez;
uses crt;
var
i,j:integer;
szavak : array[1..200] of string;
temp,szo : string;
bevitel : boolean;
begin
clrscr;
i:=1;
bevitel:=false;
repeat
writeln('Kerem az ',i,'. szot!');
readln(szo);
if length(szo) > 0 then begin
szavak:=szo;
i:=i+1;
end
else bevitel:=true;
until bevitel;
j:=1;
while j<i do begin
if szavak[j+1] < szavak[j] then begin
temp:=szavak[j];
szavak[j]:=szavak[j+1];
szavak[j+1]:=temp;
j:=1;
end
else j:=j+1;
end;
write('A szavak sorrendben: ');
for j:=1 to i do write(szavak[j],' ');
readln;
end. -
VladimirR
nagyúr
este megcsinalom nagy vonalakban (nem adok treljes kodot, hogy dolgozz te is
) - addig nezz utana a rendezo algoritmusoknak (mondjuk itt Bővebben: link)
devast: ez meg mifele baromsag, mar elnezest? nem illik? (ne valaszolj, tudom, hogy sokaknak nem tetszik a pascal, de azert tulzasba ne essunk)
[Szerkesztve] -
Katka
csendes tag
válasz
VladimirR
#364
üzenetére
Szóval:
Tettszőleges számú és egyenként egy előre meghatározott hosszúságot meg nem
haladó szavak sorbarendezése az angol ábécé szerint. Az inputban az angol
betűk és a kötőjel (ez minden betű előtt van a rendezés szerint) kivételével
bármely egyéb karakter szóelválasztónak számít, és figyelmen kívül kell
hagyni. Kis és nagybetű között nincs különbség. Az output a szavak sorozata,
egy-egy szóközzel elválasztva.
Példa input:
alma zokni Asztal pad
baba Telefon telex )( megad
meg-meg egy1+hat65=nyolc
Példa output:
alma Asztal baba egy hat meg-meg megad nyolc pad Telefon telex zokni -
steveetm
őstag
nem tudom, nem is érdekel hogy kell számolni.
A progi:
Program almamfa;
Uses crt;
var r, m : Real;
Begin
Writeln('Kérem az r-t');
ReadLn(r);
WriteLn('Kérem m et');
ReadLn(m);
Writeln('térfogat :',r*r*3.14*m);
WriteLn('Felszin : ',(2*r*3.14*m)+(2*r*r*3.14));
ReadKey;
End.
lehet nem . kell hanem , a 3.14nél.
Üdv.: steveetm -
#360
steveetm
őstag
tanácstalan
#359
steveetm
őstag
válasz
tanácstalan
#359
üzenetére
leírod hogy kell henger térfogatot számolni és segítek.
Üdv.: steveetm -
#358
tanácstalan
csendes tag
tanácstalan
#357
tanácstalan
csendes tag
válasz
tanácstalan
#357
üzenetére
Segítsetek!
-
#357
tanácstalan
csendes tag
gaben
#1
-
Fko
tag
Egy programozással foglalkozó oldalt indítunk. Ahol aki akarja, közzé teheti a forráskódjait, amiket írt.
Szóval, ha problémád van a programozással, gyere el az oldalunkra és tedd fel kérdésed a mi fórumunkban is.
Bővebben: link -
zenit
tag
Íme:
const
Digits: string = '0123...XYZ'; <- számjegyek
1. lépés: Str stringet számmá alakít Base számrendszerben.
function StrToNum(Str: string; Base: Integer): LongInt;
var
. Digit: Integer;
. Result: LongInt;
begin
. Result := 0;
. while Str <> '' do
. begin
. . Digit := Pos(UpCase(Str[1]), Digits) - 1; Str := Copy(Str, 2, Length(Str) - 1);
. . Result := Result * Base + Digit;
. end;
. StrToNum := Result;
end;
2. lépés: számot stringgé Base számrendszerben.
function NumToStr(Num: LongInt; Base: Integer): string;
var
. Digit: Integer;
. Result: string;
begin
. Result := '';
. while Num > 0 do
. begin
. . Digit := Num mod Base; Num := Num div Base;
. . Result := Digits[Digit + 1] + Result;
. end;
. if Result = '' then NumToStr := '0' else NumToStr := Result;
end;
Ennyi. Remélem, érthető. -
_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?
Petya -
bbazsy
őstag
Bővebben: link
kész, ha valakinek van kedve, átnézhetné, hátha van benne bibi... -
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
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 -
#337
[HUN]Zolee
őstag
[HUN]Zolee
őstag
És tudna ebben valaki segítni?
-
#336
Szenty
tag
[HUN]Zolee
#335
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!
-
#335
[HUN]Zolee
őstag
[HUN]Zolee
őstag
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? -
#332
nagyy
csendes tag
[HUN]Zolee
#330
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.
-
#331
Szenty
tag
[HUN]Zolee
#330
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] -
#330
[HUN]Zolee
őstag
[HUN]Zolee
őstag
a turbo pascallal lehet hazsnálni a hálózatot?(ip alapján)
-
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á! -
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 -
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. -
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] -
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
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] -
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!
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á! -
norbiphu
őstag
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. -
#304
DukeFX
tag
[HUN]Zolee
#301
DukeFX
tag
válasz
[HUN]Zolee
#301
üzenetére
Compile --> Target --> ...
-
jah, nekem turbo pascal-om van. az lehet a baj???
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Ami feladatot mondott en azt csinaltam meg... de minnya osszedobom fajlkezelessel par sor pluszba...
Hja, és nem ártana alapszinten megtanulni programozni 
Új hozzászólás Aktív témák
- T14s Gen3 14" FHD+ IPS érintő i5-1245U 16GB 256GB NVMe magyar vbill ujjlolv gar
- XPS 15 9500 15.6" FHD+ IPS i7-10750H GTX 1650Ti 16GB 512GB magyar vbill ujjlolv IR kam új akku gar
- asrock b660 pro rs+intel 14600k+64gb ddr4 csere ps5 pro ra!
- Precision 5690 16" FHD+ IPS Ultra 7 165H RTX 1000 Ada 32GB 1TB NVMe magyar vbill ujjlolv IR kam gar
- GARANCIÁLIS Lenovo Legion (Ryzen 6600H 16Gb DDR5 512Gb SSD Nvidia 4Gb) GAMER/Tervező laptop
- LG 27GS60QC-B - 27" Ívelt - 2560x1440 - 180Hz 1ms - AMD FreeSync - Bontatlan - 2 Év Gyári Garancia
- Epson Workforce DS-530II dokumentumszkenner
- Telefon Felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Gamer PC-Számítógép! Csere-Beszámítás! I7 6700 / GTX 1660Ti / 16GB DDR4 / 500GB SSD
- GYÖNYÖRŰ iPhone 15 Pro 256GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3282
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest