Új hozzászólás Aktív témák
-
Cimbi_88
csendes tag
rOwLeY adj egy e-mail címet és elküldöm neked
-
Cimbi_88
csendes tag
Talán még ma ha lehetne!!!!!!!!!!!
-
Cimbi_88
csendes tag
Köcc de majd ha kéri oda adom neki!
-
b14
senior tag
válasz Cimbi_88 #700 üzenetére
Sajnálom... Teljes mértékben sajnálom... De a semmitől kib***ottul több.
MOD: kell neki egy val()... Ek meg notepadban írtam és a php van megszokva, ott mint tudjuk nincs konverzió.
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
Cimbi_88
csendes tag
De ha kezdő akkor úgyse fogja megtalálni a hibát tudod hogy ha egy szar pontosveszzőt vagy bármit elírsz akkor már szar kicsit lehetnél körűlményesebb is ha segíteni próbálsz na mind1. Elküldtem a progit!!!
Ha mükszik szólj vissza!!!!!!!!!!!!!!
[Szerkesztve] -
b14
senior tag
Nem val, hanem str()
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
Cimbi_88
csendes tag
Vazz nincs MSN-ed? Sz*r ez a k*rva mailbox!!!!!!!!!!!!!
ha van add meg a címed és akkor elküldöm MSN-en -
gammar
csendes tag
idokezelest hogyan lehet ahhoz hogy jol is mukodjon, mert gettime-ot hasznalva neha hulyesegeket ir ki mint peldaul 65535s stb.
-
Cimbi_88
csendes tag
Szerintem lehet Delay()-el is!
-
rOwLeY
őstag
Köszi mindenkinek a segítséget!
-
pampika
őstag
Hello!
kéne egy kis segítség: egyik ismerősnek gyártok progit:
''Hozzon létre egy ''cube'' nevű függvényt, mely kockadobásokat
generálvéletlenszerűen, s paraméterében ezeket egy megfelelő típusú
vektorban átadja. A függvény értéke TRUE, ha a dobások legalább 50%-a
páratlan, ellenkező esetben FALSE; annyi dobást generál, amekkora a
lemezen lévő ''mese.txt'' nevű fájl mérete, amennyiben a visszatérési
érték TRUE, a dobások eredményét kiirja képernyőre és beleírja egy
''cubes.dat'' nevű állományba.''
Ezt gyártottam,de ahogy javítgatok benne,egyre több lesz a hibaüzi,nem kevesebb.Tudom,hogy a cube fv-t nem teljesne úgy használom,ahogy ők írták,de csak annyi a lényeg,hogy valahogy menjen és a dolgát tegye
program kockadobas;
var f: file;
i,meret,dobas,k:integer;
par:boolean;
paratlan: array[0..1024] of integer;
function cube(var a:array of integer; b:integer):boolean;
var jo:boolean;
begin
if (length(a) >= (b/2)) then jo:=true;
writeln(jo);
cube:=jo;
end;
begin
assign(f,'mese.txt');
Reset(f);
meret := filesize(f);
close(f);
k:=0;
for i:=0 to meret do
begin
randomize;
dobas:=random(5)+1;
if ((dobas mod 2)=1) then
begin
paratlan[k]:=dobas;
k:=k+1;
writeln(dobas);
end;
end;
par:=cube(paratlan,meret);
if (par=true) then
begin
assign(f,'cubes.dat');
reset(f);
for i=0 to length(paratlan) do writeln(paratlan);
close(f);
for i=0 to length(paratlan) do writeln(paratlan);
end;
end.
thx a segítséget
[Szerkesztve] -
pampika
őstag
No,látom most épp nem járt senki errefelé,de közben megoldottam a dolgot
Berakom,hátha segít majd egyszer vkinprogram kockadobas;
uses crt;
var f: file of byte;
g: text;
j:integer;
k,dobas,i:integer;
meret:integer;
par,h,jo:boolean;
paratlan: array[0..500] of integer;
{function cube(var a:array of integer; b:integer):boolean;
var jo:boolean;
k,dobas,i:integer;
begin
k:=0;
for i:=0 to (b-1) do
begin
randomize;
dobas:=random(5);
if ((dobas mod 2)=1) then
begin
a[k]:=dobas;
k:=k+1;
writeln('dobott:',dobas,' k:',k);
end;
end;
if (k >= (b div 2)) then jo:=true;
writeln(jo);
cube:=jo;
end; }
BEGIN
assign(f,'mese.txt');
reset(f);
meret:=filesize(f);
close(f);
{par:=cube(paratlan,meret);
if (par=true) then
begin
assign(g,'cubes.dat');
rewrite(g);
reset(g);
append(g);
j:=0;
repeat
writeln(g,paratlan[j]);
writeln(paratlan[j]);
j:=j+1;
if ((paratlan[j]>6) or (paratlan[j]<1)) then h:=false;
until h;
close(g); }
writeln(meret);
k:=0;
randomize;
for i:=0 to (meret-1) do
begin
dobas:=(random(5)+1);
writeln('dobas:',dobas);
if ((dobas mod 2)=1) then
begin
paratlan[k]:=dobas;
k:=k+1;
writeln('dobott:',dobas,' k:',k);
end;
end;
if (k >= (meret div 2)) then jo:=true;
writeln(jo);
k:=(k-1);
if (jo=true) then
begin
assign(g,'cubes.dat');
rewrite(g);
j:=0;
repeat
writeln(g,paratlan[j]);
writeln('j:',j,' j. elem:',paratlan[j]);
writeln('k:',k);
if (j=k) then begin jo:=false; writeln('wazz');end;
j:=j+1;
until jo=true;
writeln('j:',j);
close(g);
end;
readkey;
{end;}
END. -
Kubik
csendes tag
Hali!
Nem müxik nálam az Sgrt, nemtok négyzetgyökötvonni! Egy játékot fejlesztek, melynek első pályáján be köll jutni egy városba, melyben katasztrófa történt, és szellemváros lett, mint Csernobil. A bejutásnak természetesen rengeteg vaiációja van. Meg lehet keresni a város felé menet lerobbant kutatót, elvenni tőle az iratait, és bejutni, vagy a bejáratnál mindenkit szétlőni, és úgy bejutni ( na de itt az a probléma, hogy ha ezt teszed, az egész játékban üldözni fognak harcikocsikkal, stb. ), és lehet még pár variáció. E játék fejlesztéséhez keresek egy ''hobbifejlesztőket'', kik persze nem fizetésért, hanem hobbiból segítenének nekem!
Kubik Bálint
0630/5597793Kubik vagyok, programozgatok, Túrós pppacalban, játékprogramokat. lalalalalalalalalala!
-
Kubik
csendes tag
sqrt-t akartam írni, de így nem működik! mondom cv2:=av2(Sgr(av))+bv2(Sqr(bv))
És most gyökvonással ki akarom számolni a cvt: Sqrt(cv2); És itt a hiba.Kubik vagyok, programozgatok, Túrós pppacalban, játékprogramokat. lalalalalalalalalala!
-
crab
senior tag
hello, hogyan tudok típusos állományban szóra/mondatra keresni?
és egy másik kérdés: hogyan tudok több tipusos állományt egysíteni?
ilyen felépítésű állományokról van szó:
type
akarmi = record
1:string;
2: byte;
end;
előre is köszi!
ui.: a másodikra van egy tippem, de az elsővel nem tudok mit kezdeni.. -
Dromie
csendes tag
2-re nagyon más megoldás nincs minthogy végigrohansz az elsőn másolod egy fileba aztán ha annak vége akkor a másodikon is végigrohansz.
1-t meg fejtsd ki bővebben.
van egy ilyen record típusú file-od és a stringjeit mint összefüzött szöveget akarod tekinteni és abban keresni?
[Szerkesztve] -
crab
senior tag
igen miközben írtam a második kérdést eszembe jutott a megoldás
na akkor vázolom a helyzetet, az adott program több gépen futna, és a bevitt adatok ezért csak szétszórva lennének meg, viszont hetente egyszer visszakerülnke hozzám és én egyesítem a cuccokat, ez ugye már tisztázott..
viszont utána ebben az egyesített ''adatbázisban'' amiben mondatok(stringek) vannak, kellene keresni, minimum 2 szóval, és csak akkor listázni mint találatot, ha mind a két kereső szó megtalálható benne. remélem érthetőde az is elég volna, ha elmondanátok, hogy hogyan tudok keresni egy ilyen állományban akár csak egy szóra is.
mod: most el kell mennem, de visszanézek még!
[Szerkesztve] -
VladimirR
nagyúr
pascal nem igazan nyujt lehetoseget keresesre, magadnak kell megirnod
beolvasol egy string-et, es pos (asszem) fugvennyel meg tudod nezni, hogy egy adott karaktersorozat elofordul-e benne...ha igen, akkor a kezdopoziciojat adja vissza, ha nem, akkor 0-t
tehat a keresendo szavakkal raengeded ezt a pos fgv-t a string-re
if (pos(mit1, miben) > 0) then
talalat = true;
if (pos(mit2, miben) > 0) then
talalat = true;
es ezt beteszed egy ciklusba, ami vegigmegy a file minden egyes string-jen
vagy valami hasonlo, attol fuggoen, hogy pontosan hogyan, mire keresel.... -
crab
senior tag
köszönöm a tippiket, de ez így túlságosan szöszmötölős nekem, nem tudtam megcsinálni amit akartam..
-
_Hunter_
őstag
Sziasztok! Nagyon gyors segítség kellene. Barátnőmnek van egy pár feladata amit meg kéne csinálni. Sajnos nekem semmi fogalmam sincs a programozásról és egyenlőre még neki sem. Gondolom nem valami bonyolult dolgok nektek, szóval remélem tudtok segíteni. Kb egy vagy másfél óra van rá, szóval Moderátorok bocs de lehet hogy lesz sürgében két UP majd. Előre is köszönöm a segítséget.
Feladatok:
1. Olvasson be 3 számot (a; b; c). Értékenként cseréljük fel úgy, hogy (írassuk ki) hogy az „a” vegye fel „c” eredeti értékét; a „b” vegye fel az „a” értékét; a „c” vegye fel a „b” értékét.
2.Olvassunk be 1 számot. Írassuk ki abszolútértékét és reciprokát
3.Olvassunk be 3 számot és írassuk ki közülük a legkisebb értékét
4.Ugyanaz mint a 3. pontban csak n darab számra
5.Határozzuk meg másodfokú egyenlet valós gyökét.
6.Olvassunk be 20 db számot. Írassuk ki a benne lévő pozitív, negatív, 0, n elemek számát
7.Írassuk a 100-nál kisebb 4-gyel osztható egész számokat!
8.Ua. mint a 7. pontban (megfelelő fejléccel) táblázatos formában, a [0,1,-3] zárt intervallumban a 0,2 lépésközönként a számokat! Kell a négyzetük, log10, szinuszuk!
Hajrá segítsetek. KöszönömÉld úgy a jelened, hogy tudd az lesz majd a múltad, ami meghatározza a jövődet!
-
_Hunter_
őstag
Dél körül kéne majd meglennie. Remélem tudtok segíteni.
Éld úgy a jelened, hogy tudd az lesz majd a múltad, ami meghatározza a jövődet!
-
Soklig
csendes tag
válasz _Hunter_ #734 üzenetére
SZasz, most nincs nálam tb fordító és régen használtam, de azért kiindulásnak leirom, amit tudok, mert annyira kétségbeesetten kéred
1.:
writeln( ''Kérem az a-t: '');
readln(a);
writeln (''Kérem a b-t '');
readln(b);
..... és így tovább
csere1:=a;
a:=c;
csere2:=b;
b:=a;
c:=csere2;
writeln ('' Az a vegye fel a c erdeti értékét'');
writeln (a);
.....
[Szerkesztve] -
Soklig
csendes tag
válasz _Hunter_ #734 üzenetére
Na szóval a program legeleje így indul, hogy
program feladat;
uses crt;
var a,b,c,csere1,csere2 : real;
begin
és majd a legvégére :
end.
A 2:
writeln('' add meg a számot, aminek majd kiirom a reciprokát és az abszolut értékét'');
readln(a);
writeln( '' abszolut értéke: ''+abs(a)+'' reciproka ''+ (1/a)); -
Poctar
senior tag
Hi!
Most kezdtem tanulni a Programozást (fősulin).
Object pascalt tanulok.
Szükségem lenne vmi leírásra az kezdetektől...
Olyan kéne, ami szájbarágósan elmagyarázza a témát -
peterszky
őstag
hi
most kezdtem gimiben tanulni a pascalt és kéne egy kis segítség
adott a feladat:
bekér két betűt és utána megkérdezi a program hogy
abc sorrendben rendezze v fordítva
addig sikerült hogy abc sorba írja a betűket de fordítva már sehogyse akart müködni
[Szerkesztve]What else you gonna do on a Saturday?
-
Diskcopy
tag
válasz peterszky #743 üzenetére
Hi!
Jól értem, hogy csak két betűt kell ABC sorrendbe rendezni? Ha csak angol abc, számok ilyesmi kizárva, akkor megnézed melyiknek az ascii kódja a kisebb vagy nagyobb Ord(karakter) Előtte még Upcase-elheted is, hogy ne legyen kis nagy betű problem. Aztán ha az elsőnek a kisebb, akkor az az első betű és akkor a második a távolabbi az abc-ben. Ellenkező esetben meg fordítva. Tehát fordított sorrendbe iratod ki őket. Márha külön változóba kéred be. De add be a kódot kihozok belőle neked valamit. -
peterszky
őstag
válasz Diskcopy #746 üzenetére
igen a downto-t használom(nám), de amikor fordítva kéne rendeznie, se a számokkal se a betűkkel nem hajlandó dolgozni
mondjuk holnap megkapom a válasz a tanártól, de idegesít picit
( mondjuk 2 óra TP tanulás után nem is vártam óriási sikereket )What else you gonna do on a Saturday?
-
Diskcopy
tag
válasz peterszky #747 üzenetére
összedobtam, kicsit bénán, elszoktam már pascal szintaktikától, de müxik:
var a,b : char;
i : integer;
begin
Write('Elso betü:'); Readln(a);
Write('Masodik betü'); Readln(b);
for i:=ord(a) to ord(b) do write(chr(i));
{fordítottan}
writeln;
for i:=ord(b) downto ord(a) do write(chr(i));
end.
persze hiba, stb kezelés semmi
[Szerkesztve] -
peterszky
őstag
íme:
program hazi;
uses crt;
var a,b,i:char;
var c:integer;
begin
clrsrc;
writeln('kérem az első betűt');
readln(a);
writeln('kérem a második betűt');
readln(b);
begin
writeln('Rendezéshez nyomja meg:');
writeln('1 - abc sorrendben');
writeln('1 - fordítva');
readln(c);
if c=1 then for i:= a to b do writeln(i);
if c=2 then for i:= a downto b do writeln(i);
end;
readkey;
end.
ennyi lenneWhat else you gonna do on a Saturday?
Új hozzászólás Aktív témák
- ASUS ZENBOOK 13 UX333FA - 13,3"FHD IPS - i5-8265U - 8GB - 512GB SSD - Win11 - Magyar
- Playstation 5 Drive Edition 825GB (CFI-1216A), 2025.11.03-ig gyári garanciával, Bp-i üzletből eladó
- Lüm-tec m85 Svájci szerkezetű Amerikai microbrand
- Új! 64Gb DDR4 - Corsair 32GB KIT DDR4 4600MHz CL18 Vengeance RGB RT
- Samsung Galaxy A54 5G Eladó...