- Android alkalmazások - szoftver kibeszélő topik
- Milliókkal olcsóbb a Model Y Standard Magyarországon
- iPhone topik
- Bemutatkozott a Poco X7 és X7 Pro
- Fotók, videók mobillal
- Samsung Galaxy S25 FE - fenséges, felejthető vagy felesleges?
- Google Pixel topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy A54 - türelemjáték
- Poco F7 – bajnokesélyes
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Új hozzászólás Aktív témák
-
#2216
zvaragabor
senior tag
[HUN]Zolee
#2215
zvaragabor
senior tag
válasz
[HUN]Zolee
#2215
üzenetére
atlag:=0; sornál ír ki hibát.
-
#2173
RoyalFlush
őstag
[HUN]Zolee
#2172
RoyalFlush
őstag
válasz
[HUN]Zolee
#2172
üzenetére
Division by Zero hibaüzenettel a program leáll
Valószínű, nem vette számításba ezt a lehetőséget .. Mondjuk illett volna, ha már azt találta ki, hogy 0 megadását követően lépjen ki a program 
-
#2166
alitak
senior tag
[HUN]Zolee
#2163
alitak
senior tag
válasz
[HUN]Zolee
#2163
üzenetére
atlag:=0;
Ez felesleges.
-
#2164
RoyalFlush
őstag
[HUN]Zolee
#2163
RoyalFlush
őstag
válasz
[HUN]Zolee
#2163
üzenetére
Jah elég kusza, de felidézve dolgokat, este ennyire futotta
Gondoltam majd ma egyszerűsítek rajta, de megtetted te. thx 
-
#1796
Gyomman
aktív tag
[HUN]Zolee
#1795
Gyomman
aktív tag
válasz
[HUN]Zolee
#1795
üzenetére
ITT VAN (még csak az eleje);
program jatek;
uses crt,graph;
var i,j,k,szam:integer;
gd,gm:integer;
procedure menu;
begin
gd:=detect;
InitGraph(gd,gm,'');
for i:=1 to 24 do
begin
gotoXY(1,i);
writeln(CHR(178));
gotoxy(2,i);
writeln(CHR(177));
gotoXY(3,i);
writeln(CHR(176));
end;
gotoXY(5,5);
SetTextStyle(0,0,3);
writeln('JATEK NEVE');
SetTextStyle(0,0,1);
sound(100);
delay(100);
sound(200);
delay(100);
sound(300);
delay(100);
sound(400);
delay(100);
sound(500);
delay(100);
sound(600);
delay(100);
Nosound;
for j:=17 to 63 do
begin
gotoXY(j,3);
writeln(CHR(219));
gotoXY(j,23);
writeln(CHR(219));
gotoXY(j,21);
writeln(CHR(196));
end;
for k:=3 to 23 do
begin
gotoXY(17,k);
writeln(CHR(219));
gotoXY(63,k);
writeln(CHR(219));
end;
gotoXY(34,5);
writeln(CHR(177),'JATEK NEVE',CHR(177));
gotoXY(34,11);
writeln('1 : elsoprogram');
gotoXY(34,13);
writeln('2 : masodikprogram');
gotoXY(34,15);
write('3 : Kilep');
gotoXY(18,22);
write('Add meg a kivant utasitas szamat ');
readln;
CloseGraph;
end;
begin
clrscr;
elokepmenu;
readln(szam);
if szam>3 then halt;
repeat until keypressed
end. -
#1781
Gyomman
aktív tag
[HUN]Zolee
#1780
Gyomman
aktív tag
válasz
[HUN]Zolee
#1780
üzenetére
Kösz.
Most újabb gond van: Mindent rendesen megcsináltam a grafikus felülettel, de azt írja ki hibaként, hogy BGI Error: Graphics not initialized(use InitGraph). Pedig beraktam az InitGraphot, minden paraméterével. Megnéztem egy miontaprogramot az InitGraph-ra, ott meg azt írta ki, hogy valami EGAVGA.BGI fájlt nem talál, pedig pontosan meg van adva az útvonal.
Kezdem úgy érezni,. találn ez a grafika ez nem megy... -
#1778
PazsitZ
addikt
[HUN]Zolee
#1777
PazsitZ
addikt
válasz
[HUN]Zolee
#1777
üzenetére
SetTextStyle(betűtípus,irány,méret:word) egész pontosan
típus: default=0 TriplexFont=1 SmallFont=2 SansSerifFont=3 GothicFont=4
irány: HorizDir=0 VertDir=1
méret: 1-10 -
#1667
Cxgrav
senior tag
[HUN]Zolee
#1666
Cxgrav
senior tag
válasz
[HUN]Zolee
#1666
üzenetére
Igen, köszönöm. Már leírták cask használni nem tudtam, de most így tiszta lett. Nagyon szépen köszi
-
#966
RAM
őstag
[HUN]Zolee
#965
RAM
őstag
válasz
[HUN]Zolee
#965
üzenetére
EZ vmi TK pl?
-
#636
EEdem_Dtx
csendes tag
[HUN]Zolee
#634
EEdem_Dtx
csendes tag
válasz
[HUN]Zolee
#634
üzenetére
Nem kicsit
UP #632 -
#635
b14
senior tag
[HUN]Zolee
#634
b14
senior tag
válasz
[HUN]Zolee
#634
üzenetére
-
#626
VladimirR
nagyúr
[HUN]Zolee
#625
VladimirR
nagyúr
válasz
[HUN]Zolee
#625
üzenetére
ajanlom mindenkinek a figyelmebe Angster Erzsebet turbo Pascal 6.0 'A'..'Z' konyvet
az elejen van egy kis ez, meg az, ciklusok, elagazasok, tipusok, aztan sorra veszi a fobb junitok fuggvenyeit
gyakorlatilag egy leforditott pascal help, de nagyon jol hasznalhato, valahova masoltam is belole a filekezelessel kapcsolatban -
#622
b14
senior tag
[HUN]Zolee
#621
b14
senior tag
válasz
[HUN]Zolee
#621
üzenetére
Turbo Pascal.
-
#619
Sihto_
tag
[HUN]Zolee
#618
Sihto_
tag
válasz
[HUN]Zolee
#618
üzenetére
Jahh bocs nem tudtam, hogy ennyire az elején tartassz - azért ez tényleg minden pasval könyv első 30 oldalában ott van
-
#617
Sihto_
tag
[HUN]Zolee
#616
Sihto_
tag
válasz
[HUN]Zolee
#616
üzenetére
Elöször átalakítod szöveggé és utánna kiírod a grafius kiiró fügvénnyel
-
#614
VladimirR
nagyúr
[HUN]Zolee
#613
VladimirR
nagyúr
válasz
[HUN]Zolee
#613
üzenetére
round?
pl.: q:=round( 220+20*b); -
#573
Rover623
félisten
[HUN]Zolee
#572
Rover623
félisten
válasz
[HUN]Zolee
#572
üzenetére
![;]](//cdn.rios.hu/dl/s/v1.gif)
Higgy nekem! A hibaüzenet az XP parancsértelmezőjéből jön, és azt jelenti amit leírtam!!!!
Nincs EXE! Vagy nem ott álltál!! Vagy elütötted az EXE nevét...!!!!
P.S.:
program ch_dir;
uses dos;
var
q : PathStr;
begin
GetDir(0,q);Minek kérdezed le? Nem használod sehol az eredményt...
{$I-}
ChDir(paramstr(1));
{$I+}
if ioresult<>0 then
writeln('Hibás elérési út: ',paramstr(1));
ChDir(paramstr(1));Hiba! Ha az előbb hibás volt a path, akkor most is! Mivel itt már visszakapcsoltad a hibafigyelést, IO hibával el fog szállni!
end.
[Szerkesztve]
[Szerkesztve] -
#571
Rover623
félisten
[HUN]Zolee
#570
Rover623
félisten
válasz
[HUN]Zolee
#570
üzenetére
Te Zolee!
Lefordítottad egyáltalán...?
Készül ch_dir.exe...?
Amikor a parancssorba beírod hogy ch_dir, akkor abban a könyvtárban állsz ahova az EXE készült vagy legalább az elérési útvonalban van az a könyvtár...?
Merthogy az opre akkor mond ilyet ha nincs a beírt névvel egyező belső parancs, nincs sehol elérhető ilyen nevű EXE és BAT file se... -
#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!
-
#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] -
#304
DukeFX
tag
[HUN]Zolee
#301
DukeFX
tag
válasz
[HUN]Zolee
#301
üzenetére
Compile --> Target --> ...
-
#292
VladimirR
nagyúr
[HUN]Zolee
#287
VladimirR
nagyúr
válasz
[HUN]Zolee
#287
üzenetére
elnezest, hogy ilyet kerdezek, de menezted magat a file-t is, vagy csak abbol gondolod, hogy nem irt bele, hogy nem kerdezte mit irjon?
-
#289
Szenty
tag
[HUN]Zolee
#287
Szenty
tag
válasz
[HUN]Zolee
#287
üzenetére
Mellesleg küldd már el pls azt az exe-t, amit a géped fordított, kíváncsi vagyok rá!
-
#288
Szenty
tag
[HUN]Zolee
#287
Szenty
tag
válasz
[HUN]Zolee
#287
üzenetére
Kezdem azt hinni, igen. Milyen pascalod van? Ha akarod felteszem valahova a Borland Pascal 7-et. Ez gyakorlatilag egy extrás TP7. És már alapból nem rendelkezik a 200-as hibával a crt unitban. ~10MB.
Üdv,
Szenty -
#286
Szenty
tag
[HUN]Zolee
#285
Szenty
tag
válasz
[HUN]Zolee
#285
üzenetére
Biztosan azért nem űködik, mert nem létezik a file, amihez appendelni akarsz.
A program tehát (egy kis dupla ellenőrzéssel):
program file_teszt;
uses crt;
var f : text ;
v1,v2 : byte;
s : string ;
begin
clrscr;
assign(f, 'proba.txt');
s:='Szoveg '; v1:=12; v2:=34;
{$I-}
append(f);
{$I+}
if (IOResult <> 0) then begin
{$I-}
rewrite(f);
{$I+}
if (IOResult <> 0) then begin
writeln('A file nem hozhato letre!');
halt(1);
end;
end;
write(f,v1, v2+30);
writeLn(f,v1, v2+7);
close(f);
readkey;
end.
[Szerkesztve] -
#283
b14
senior tag
[HUN]Zolee
#278
b14
senior tag
válasz
[HUN]Zolee
#278
üzenetére
HI
Sztem tulbonyolitod
Ugy egyszerubb lenne, hogy :
uses crt;
var
f: text;
s:string;
begin
clrscr;
assign(f,'filename.kit');
append(f);
writeln(f,s);
readkey;
end.
Szerintem igy jo
Nem irtam commenteket (magyarazatokat) , remelem nem is kel, de ha megis akkor szolj.
Ez a program egyszeru valtozata, nincs benne fajl letezesenek ellenozese (file exist)
Ha tudok meg segiteni akkor szolj
[Szerkesztve] -
#280
Szenty
tag
[HUN]Zolee
#278
Szenty
tag
válasz
[HUN]Zolee
#278
üzenetére
Mondd, ez lefordult Neked egyáltalán? Szerintem nem.
[...]
v1,v2 : string;
[...]
write(f,v1, v2+30);
writeLn(f,v1, v2+7);
Sztringhez (szöveghez) nem lehet számot hozzáadni!!!
Ezért nem megy. Legközelebb meg légyszi írd be, hogy hibás, nem fordul le!
[Szerkesztve]
Valószínű, nem vette számításba ezt a lehetőséget .. Mondjuk illett volna, ha már azt találta ki, hogy 0 megadását követően lépjen ki a program 
Gondoltam majd ma egyszerűsítek rajta, de megtetted te. thx 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Bomba ár! Asus K73SJ - i7-2670QM I 6GB I 120GB SSD I 17,3" HD+ I Nvidia I HDMI I Cam I W10 I Gari!
- HIBÁTLAN iPhone 15 Pro Max 256GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3493, 93% Akkumulátor
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- HIBÁTLAN iPhone 12 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3670 100% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest