271
Turbo Pascal
-
ba32107 #151 Ezt te sem gondoltad komolyan -
#150
vki megtudná irni ezt a programot nekem gyorsan turbo pascalba és feltölteni elküldeni mert doga van és nemtudom:
http://rapidshare.com/files/166856603/11B.EXE.html -
ba32107 #149 Sziasztok,
A következőt szeretném megoldani pascalban: az aktuális könyvtárban lévő fájlok felismerése, és kilistázása. Tehát úgy szeretném megtudni a fájlok listáját, hogy egyiknek sem ismerem a nevét. Egy "Load" menühöz kéne az egyik programomban. Előre is köszi a segítséget. -
#148
hthx -
#147
Az algoritmus:
n változó bekérése;
i:=1;
osszeg:=0;
Ciklus eleje
bemenet bekérése;
osszeg:=osszeg+bemenet;
i=i+1;
Amig i<=n vagy bemenet<0
atlag:=osszeg/i;
Az n változó tartalmazza a maximális elemszámot, az i az aktuális elem sorszáma, a bemenet az aktuálisan bekért szám, az osszeg az összeget, az atlag az átlagot. Nem kellett ehhez tömb - a valós életben sem használsz hozzá: összeadod a számokat (osszeg), és elosztod az elemszámmal (i). -
#146
hali szal lenne egy feladat, mégpedig hogy bekérünk n számot, és ha a szám negativ, akkor kiirja az addig beolvasott számok átlagát, ne használjunk tömböt. ha vki tudna segíteni megköszönném -
#145
Hi! Hogyan tudnám bekonfigolni a dev- pascalt? Compiler problémái vannak, még a példaprogramokkal is. Korábban már programoztam, nem követtem el valami kezdő butaságot a scriptben.
Előre is köszi! -
#144
hmm el kell ismerni, ügyes :D -
bracsek #143 Csak én a kezdőzárójel helyett ezt írtam: [ , ezt meg az &#91; -el írtam :) -
#142
érdekes, nekem a szögletes zárójeles i-t (egyébként logikusan) a dőlt betű nyitására használja... -
bracsek #141 program NEMtombbeatlag; { :) }
var
a: array [1..5] of integer;
i,sum: integer;
avr: real;
begin
sum:=0;
for i:=1 to 5 do
begin
write('Kerem a homersekletet: ');
read(a[i]);
sum:=sum+a[i];
end;
avr:=sum/5;
writeln('az atlaghomerseklet: ',avr:0:2);
readln;
end.
{kiírja a szögletes zárójelt is.} -
#140
a read(a) nem működik, ha a tömb, mivel meg kell adni, hogy a tömb hanyadik elemébe olvasol.
kivételt képez ez alól, ha a read egy tipusos file-ból való kiolvasást valósít meg, most viszont nincs ilyen -
ba32107 #139 ahaa, akkor ezért nem jelent meg a szögletes zárójel. de hülye vagyok. ezek szerint mégis jól írtam le.
amúgy a csávó aki feltette a kérdést már rég nincs itt :D -
#138
#132-ra -
#137
De legalább azt írd be, hogy mi a hiba, mert hogy "nem működik" az nem túl sokat mond. -
#136
akkor viszont még mindig nem stimmol, helyesen:
program tombbeatlag;
var
a: array [1..5] of integer;
i,sum: integer;
avr: real;
begin
sum:=0;
for i:=1 to 5 do
begin
write('Kerem a homersekletet: ');
read(a{i});
sum:=sum+a{i};
end;
avr:=sum/5;
writeln('az atlaghomerseklet: ',avr:0:2);
end.
A kapcsos zárójelek szögleteseknek értendők, csak a jelölő nyelv miatt nem tudok bele szögleteset írni -
ba32107 #135 tényleg, most nézem. de amúgy meg mernék esküdni, hogy én úgy írtam le, hogy felhasználtam a tömböt, ezek szerint nem figyeltem eléggé.
amúgy tényleg felesleges a tömb, de a program lényege gondolom a tömbhasználat -
#134
a egy tömb, teljesen feleslegesen, mert úgylátom az egyes értékeket külön nem használod fel.
program tombbeatlag;
var
a,i,sum: integer;
avr: real;
begin
sum:=0;
for i:=1 to 5 do
begin
write('Kerem a homersekletet: ');
read(a);
sum:=sum+a;
end;
avr:=sum/5;
writeln('az atlaghomerseklet: ',avr:0:2);
end.
-
ba32107 #133 kicsit átírva, mert eredetileg hibás is volt pár helyen:
program tombbeatlag;
var a:array [1..5] of integer;
i,sum:integer;
avr:real;
begin
sum:=0;
for i:=1 to 5 do begin
write('Kerem a homersekletet: ');
readln(a[i]);
sum:=sum+a[i];
end;
avr:=sum/5;
writeln('az atlaghomerseklet: ',avr:0:2);
end.
asszem így jó lesz. -
#132
Na szóval lenne egy ilyen progi:
program tombbeatlag;
var a:array [1..5] of integer;
i,:integer;
begin
for i:=1 to 5 do begin
write('Kerem a homersekletet: ');
readln(a);
end;
writeln('az atlaghomerseklet: ',{Ide kéne valami, ami nem akar sikerülni});
end.
A jelzett helyre kéne valami, ami kiszámítja a tömbben lévő számok
át. Az átlagszámítás egyenletével tisztába vagyok :), de akárhogy próbálom nem akar sikerülni.
Légyszi segítsetek!
Köszi előre is! -
#131
Kösz! Működik! -
#130
Fordítsd le exe-be (Compile/Destination: Disk legyen, majd Compile/Compile), és az exe mellé tedd oda az egavga.bgi-t.
Nálam lefut, működik. -
#129
Ja! Azt elfelejtettem mondani, hogy leellenőrizte és nem talált benne hibát! -
#128
Írtam még egy grafikust de a "egavga.bgi"-re ki írja ezt:"Device driver file not found(EGAVGA.BGI)"
a program pedig ez:
"
program graf2;
uses crt,graph;
const sebesseg=10;
var meghajto,uzemmod,grafhiba:integer;
kepmutato:pointer;
c1,c2:char;
x,y,meret,meretfele:word;
procedure abrarajzolas;
begin
meret:=getmaxy div 10;
meretfele:=getmaxy div 20;
rectangle(0,0,meret,meret);
ellipse(meretfele,meretfele,0,360,meretfele,meretfele);
setfillstyle(solidfill,getmaxcolor);
floodfill(1,1,getmaxcolor);
floodfill(meret-1,meret-1,getmaxcolor);
floodfill(meret-1,1,getmaxcolor);
floodfill(1,meret-1,getmaxcolor);
setfillstyle(xhatchfill,getmaxcolor);
floodfill(meretfele,meretfele,getmaxcolor);
getmem(kepmutato,imagesize(0,0,meret,meret));
getimage(0,0,meret,meret,kepmutato^);
end;
procedure abraki(lathato:boolean);
begin
if lathato
then
putimage(x,y,kepmutato^,normalput)
else
putimage(x,y,kepmutato^,xorput);
end;
procedure fel;
begin
if y >=sebesseg then
dec(y,sebesseg);
end;
procedure le;
begin
if y + meret < getmaxy-sebesseg-1 then
inc (y,sebesseg);
end;
procedure balra;
begin
if x >=sebesseg then
dec(x,sebesseg);
end;
procedure jobbra;
begin
if x+meret < getmaxx-sebesseg-1 then
inc(x,sebesseg);
end;
begin
meghajto:=detect;
initgraph(meghajto,uzemmod,'');
grafhiba:=graphresult;
if grafhiba <> grok then
begin
writeln(grapherrormsg(grafhiba));
readln;
halt;
end;
abrarajzolas;
x:=0;
y:=0;
repeat
c1:=readkey;
if c1 = #0 then
begin
c2:=readkey;
if c2 in [#71..#73,#75,#77,#79..#81] then
begin
abraki(false);
case c2 of
#75:balra;
#77:jobbra;
#72:fel;
#80:le;
#71: begin
fel;
balra;
end;
#79:begin
le;
balra;
end;
#73:begin
fel;
jobbra;
end;
#81:begin
le;
jobbra;
end;
end;
abraki(true);
end;
end;
until c1 =#27;
freemem(kepmutato,imagesize(0,0,meret,meret));
closegraph;
end.
"
be van másolva az egavga.bgi a munkakönyvtárba.
Mi lehet a baj?
Jó lenne ha működne!
Kösz előre is a helpet! -
#127
Köszi szépen a segítséget, működik!
Kösz!
-
#126
Forráskód?
egavga.bgi be van másolva a forráskódot tartalmazó könyvtárba (munkakönyvtárba); vagy InitGraph-nál meg van adva a munkakönyvtár?
Bővebben -
#125
Hi lenne egy problémám!
Rátértem a turbo pascal-ra és csináltam egy szöveges programot.(nem grafikus)Aztán írtam egy grafikust de azt nem futtatja!Semmi hiba nincs benne ráadásul ezt egy szakkönyvből másoltam ki!
Mi lehet a baj?
Előre is kösz!!! -
#124
Szevasztok. Sürgős help kellene Pascal terén, ha valaki tudna segíteni, azt nagyon megköszönném. Priviben jelentkezzen, aki ért hozzá. Előre is köszi! -
#123
Most már semmi. Megvan, de azért köszi! -
#122
Na átállítottam. És most? -
#121
És azt hol lehet? :$ -
M0RN1NGST4R #120 erre egy gépi kódú utasitás van, de már rég foglalkoztam vele, de neten ezt találtam:
Procedure CursorOff; ASSEMBLER;
asm
MOV AH, 03h
MOV BH, 00h
INT 10h
OR CH, 20h
MOV AH, 01h
INT 10h
end; { CursorOff }
Procedure CursorOn; ASSEMBLER;
asm
MOV AH, 03h
MOV BH, 00h
INT 10h
AND CH, 0DFh
MOV AH, 01h
INT 10h
end; { CursorOn }
nem tudom, hogy valóban jó-e. -
M0RN1NGST4R #119 válaszd ki, hogy ne memóriába történjen a forditás. -
#118
Hali
Hogy a rákba lehet elmenti a programot amit írtam .exe fájlba? -
A33 #117 Tudbo Pascal-ban hogy tudom megadni,h az írt program futása közben ne villogjon a kurzor? (Crt unit-ban) -
skristof #116 dev-pascal -
#115
Senki se tudja? :S -
#114
Sziasztok!
Kéne egy kis segítség. Xp-re szeretném felpakolni a Borland Pascalt (suliba ez van ezért kell a Borland) de hibás.
Rendesen beírok neki egy egyszerű programot, a compile rendben van, de ha a runra megyek akkor nem csinál az égvilágon semmitsem. Ha a Turbo Pascalt rakom fel, akkor meg megmagyarázhatatlan jelenségek vannak. Egy csomó (máshol működő) programot van, hogy el sem indít és van, hogy a program futtatásánál a felénél gondol egyet és leáll. Mintha ő önkényesen fénysebességgel végigfuttatná a dolgokat. OLyan mintha húszszor gyorsabb lenne az egész mint az alaphelyzetben.
A write('közé'); írt szöveget amit elvileg halványkéken kéne írnia azt simán sárgával írja és a textcolor számát is sárgával írja.
Ilyen problémák remélem nem csak nálam fordulnak elő :S
Itt mi lehet a probléma szerintetek? Jó lenne ha megoldódna mert kéne tanulnom már meg amúgy is jó móka. -
skristof #113 bár a dátumokat elnézve talán már megoldottad 
-
skristof #112 használj repülő ékezeteket
ellenőrizd, hogy utf8as-e.
mondjuk pascalba már nemigazán emlékszem, sry