Hirdetés
- Nincs megállás akkuméretben
- Google Pixel topik
- Fotók, videók mobillal
- Xiaomi 15 - kicsi telefon nagy energiával
- Ezek az új Google Pixel cuccok hivatalos magyar árai
- Netfone
- Honor Magic V5 - méret a kamera mögött
- Új telefont és tabletet mutatott be a Telekom
- Telekom mobilszolgáltatások
- Xiaomi 14 Ultra - Leica hercegnő
Új hozzászólás Aktív témák
-
GodHeart
senior tag
válasz
Diskcopy
#798
üzenetére
baromi sok komoly dolgot írtál ide, de most kötekedni szeretnék, én ilyen vagyok
bocsásd meg ha nincs igazam 
Én úgy vettem le, és úgy használtam, hogy az Assign parancsal az f fileváltozóhoz az akarmi.txt-t hozzátársítom, nem pedig létrehozom. a rewrite-al, pedig megnyitom a fájlt, hogy tudjak benne kutakodni, azaz olvasni belőle vagy írni bele. Mégpedig azért kötekedek, mert ha én az 'akarmi.txt' helyén egy nemlétező fájlt adtam be, ugyanis próbálgatások közepette néha ez is összejött, akkor nem hogy létrehozta volna a fájlt, hanem hibával kiakadt! Cáfoljatok meg! -
GodHeart
senior tag
nah mégvalami ami eszembe jutott. azt ugye megtom csinálni, hogy egy tetszőleges fájlból kiolvasna egy tetszőleges másik fájlba írok. DE, hogyan tudok a progi segítségével egy fájlt létrehozni, amibe meg majd azután írni fogok!? Mert a könyvben mint fájl létrehozásáról nincs szó, csak mappa kezelésről, és ott mappa létrehiozásról a MkDir(s:string) dologgal. de fájlnál hogy is van ez?
-
#796
GodHeart
senior tag
Drótszamár
#794
GodHeart
senior tag
válasz
Drótszamár
#794
üzenetére
igazából foggalmam sicns mit fogok ezután az eltárolt szöveggel kezdeni, majd valami lesz..
egyenlőre tanulom a nyelvet, hisz ebből fogok emeltszintűzni infóból idén! Remélem összejön, egyenlőre a csoportunkból én vágom a legjobban, de messze van még a cél. És erre próbálok kitalálni értelmes dolgokat, amiket esetleg kérdezhetnek.. bár ahogy bálint uraságot ismerem tuti valami degec dolgot fog krédezni! 
-
#795
Jester01
veterán
Drótszamár
#794
Jester01
veterán
válasz
Drótszamár
#794
üzenetére
Nekem világos, ezért írtam, hogy a példa jó.
Csak biztos akartam lenni, hogy GodHeart is érti.
Túl van tárgyalva -
#794
Drótszamár
őstag
Jester01
#792
Drótszamár
őstag
válasz
Jester01
#792
üzenetére
Ha _csak_ ki kell iratni, akkor természetesen felesleges eltárolni, közvetlenül a beolvasás után ki lehet iratni. A feladatból viszont számomra nem derült ki, mit szándékozik a továbbiakban a szöveggel tenni. Ezért tartottam bent a memóriában.
Egyébként a pascal memória korlátjával iszonyú nagyokat lehet szívni
Elég mondjuk egy kis grafika...
Godheart: és ha már bent vannak a memóriában a sorok, akkor rakd őket betűrendbe![;]](//cdn.rios.hu/dl/s/v1.gif)
vagy ird ki egy másik fájlba fordítva.
És jól értelmezted.
[Szerkesztve] -
#793
GodHeart
senior tag
Drótszamár
#791
GodHeart
senior tag
válasz
Drótszamár
#791
üzenetére
ha jól értelmezem, akkor a progi addig olvassa be a txt fájlból a sorokat, amíg vége nincs. Ezeket pedig egy tömbben tárolja el! mindjárt kipróbálom, cask most jöttem meg kondizásból és teljesen kivagyok. Ha ez azt csinálja akkor köszi szépen, ha meg nem akkor is köszi, mert akkor meg mást tanultam!
-
#792
Jester01
veterán
Drótszamár
#791
Jester01
veterán
válasz
Drótszamár
#791
üzenetére
Továbbra is fenntartom, hogy ha csak ennyi a feladat, akkor kifejezetten rossz megoldás eltárolni memóriában.
A példa viszont jó. -
#791
Drótszamár
őstag
GodHeart
#789
Drótszamár
őstag
válasz
GodHeart
#789
üzenetére
Type egysor : string;
Var sorok array [1..sok] of egysor;
soroksz : integer;
begin
...
soroksz:=0;
while not eof(file_valtozo) do
Begin
soroksz:=soroksz+1;
readln(file_valtozo,sorok[soroksz]);
End;
for i:=1 to soroksz do
Begin
writeln(sorok[ i ]);
End;
...
remélem érthető mire gondoltam, ja és remélem valami hasonlót akartál csinálni
[Szerkesztve] -
Jester01
veterán
válasz
GodHeart
#787
üzenetére
Soronként is beolvashatod egy 1D string tömbbe.
Vagy ha nem kell egyszerre több sor, akkor
simán ciklusban is feldolgozhatod, nem muszáj egyben betölteni a memóriába
(ezzel ugyanis korlátozod a fájlméretet).
Emlékem szerint a BlockRead-del az lesz a baj, hogy fix méretű rekordokat olvas, neked pedig változó hosszú soraid vannak ha jól értem. De ebben nem vagyok biztos. -
GodHeart
senior tag
válasz
Diskcopy
#788
üzenetére
nah igen [1..15,1..15]-el már nekem is elfogadta, az máskérdés, hogy amire akartam arra nem tudom használni.
Arra esetleg a Blockread blockwrite kell?? Erről kicsit tudnám nekem mesélni? persze csak ha nem gond. Mert erről a könyv egyáltalán nem beszél! Viszont ha tényleg ez kell, hogy enteres txt fájlt ezzel tudjak beolvasni fullon, és valahogy ezt ki is iratni, akkor örülnék, ha tudnám! -
-
GodHeart
senior tag
válasz
Blade!!!
#780
üzenetére
lehet hülyeséget írok, de nekem ez volt a hiba. ma fél órám ment rá
Szal akár írsz a fájba akár nem mindig be kell csukni. pl rewrite-al a szöveges fájlba írsz valamit, utána close-al bekell csuknod, különben valójában nem fog írni bele semmit, vagy a jó ég tudja, de a léyneg, hogy a fájl üres marad. mondom csak egy lehetőség, de nekem ez volt a hibám!
Viszont nekem is lenne kérdésem
Szóval adott egy olyan txt fájl, amiben nem összefüggő szövegt van, hanem mondjuk enter miegymás is található a fájlban. Namost ugye ezt beolvasva csak az első sort olvassa be a pascal, ha egy sima a : string változóba teszem. Ezért arra gondoltam, hogy charakterenként egy 2D-s tömbbe fogom beolvasni, onnan mit kezdek vele még nem tudom, de most ez tűnik a legjobb gondolat tovább folytatásnak. Viszont! Mikor dekralálni szeretném a 2D-s tömbet, azaz: q : array[i1..i15,k1..k15] of char vagy string; akkor az i1-nél elakad és undefinied akármit írni ki. Pedig itt még nagy gond nem igen lehet, de nem bírok rájönni.. a könyvből amiből tanulok így van, és nem értem miért nem megy! -
fasyrt
őstag
válasz
Diskcopy
#783
üzenetére
Itt van pontosan a feladat:
1 héten keresztül minden nap megmértük a hőmérsékleteket. Készíts programot, ami a mért értékeket beolvassa (ez megvan), és tárolja a HOM tömbben!
Írassa ki a képernyőre a hét napjainek a nevét a hom-ban tárolt, a hét megfelelő napján mért értékek alapján növekvő sorrendben! (leghidegebb->legmelegebb)
No ez a harci helyzet. -
Diskcopy
tag
Hi!
Nem igazán értem a sorrendet, hogy most ABC szerint vagy számok szerint.. MInd1. Buborék rendezés.. Egy példa : [link]
Ha számhoz tartozó szöveg is van, akkor rekordba tenném.
type rendezni = record
sorszam : integer;
nev : string[30];
end;
aztán meg var ezt: array[1..7] of rendezni;
beolvasás:
ezt[akányadikatolvasod].sorszam:=a megfelelő ciklusváltozó;
Mind1, innentől már csak találgatás, mert nem értem konkrétan a példát, bár lehet, csak reggel van. -
#781
Drótszamár
őstag
Blade!!!
#780
Drótszamár
őstag
válasz
Blade!!!
#780
üzenetére
Húú de régen voolt már pascal.
Write(f1,r1);
nem kéne ,1 tehát Write(f1,r1,1);
ha nem akkor sorry a hülyeségért.
with r1 do
begin
Write('Program neve: '); ReadLn(pn);
Write('CD vagy DVD? '); ReadLn(cdvd);
Write('A program m‚rete: '); ReadLn(meret);
Write('Beszerz‚s d tuma: (EEHHNN) '); ReadLn(datum);
end;
Write(f1,r1);
ezt meg így csinálnám a helyedben.
[Szerkesztve] -
Blade!!!
tag
Sziasztok!
Most csinálom az első programom amit házinak kéne beadnom és egy pöttyet elakadtam az elején. File-t hoznék létre és írnék bele ezt-azt. A file-t szépen létre is hozza a program és is fut hibaüzenet nélkül, de nem ír semmi a file-ba. Konkrétan így néz ki eddig:
uses crt;
type t1=record
pn :string[20];
cdvd :string[3];
meret, datum :integer;
end;
var v :char;
r1 :t1;
f1 :file of t1;
Begin
assign(f1,'c:\hf1.dat');
rewrite(f1);
Repeat
Clrscr;
Write('Szeretn‚l adatot bevinni? (I ha nem, N ha igen): ');
v:=Upcase(readkey);
WriteLn;
Until (v='I') or (v='N');
if v='I' then
begin
with r1 do
begin
Write('Program neve: '); ReadLn(pn);
Write('CD vagy DVD? '); ReadLn(cdvd);
Write('A program m‚rete: '); ReadLn(meret);
Write('Beszerz‚s d tuma: (EEHHNN) '); ReadLn(datum);
Write(f1,r1);
end;
Pr1;
end;
if v='N' then
close(f1);
menuir;
Readkey;
End.
Örülnék, ha valaki tudna segíteni. Mert valószínüleg még ezen kívül is lesz egy két hülye kérdésem. Előre is köszönöm.
[Szerkesztve] -
#776
Diskcopy
tag
Darth_Revan
#774
Diskcopy
tag
válasz
Darth_Revan
#774
üzenetére
hi!
Uses crt;
var st : string;
hossz: string;
begin
clrscr;
Writeln('Kérem a szöveget:');Readln(st);
Delete(st,round(length(st)/2),1);
Str(length(st),hossz);
st:=Concat(st,hossz);
writeln(st);
end.
(Nem csak 20 karakterre jó, bármennyire)
[Szerkesztve] -
#775
b14
senior tag
Darth_Revan
#774
b14
senior tag
válasz
Darth_Revan
#774
üzenetére
Középső karakter?
Az hanyadik? 
-
#774
Darth_Revan
veterán
Darth_Revan
veterán
Sziasztok!
1 proginak kellene sűrgősen a megoldása! Probáltuk már megoldani,de nem akar sehogy se működni...itt a feladat: Kérjünk be egy 20 karakteres szöveget,majd a program törölje ki a középső karaktert és a szöveg végére szúrja be a szöveg hány db karakterből áll(karakterek számát)...
Előre is köszönöm a segítséget! -
Diskcopy
tag
válasz
LordEVon
#770
üzenetére
Nem igazán értem, de mind1. Amúgy eleve van párosság/páratlanság eldöntő az odd() függvény személyében
arrayos programok
pl:
var tomb : array[1..100] of integer;
progin belül: for ciklusváltozo:=1 to 100 do tomb[ciklusvaltozo]:=random(100);
lehet több dimenziós is(vektor)
var tobbd : array[1..10,1..20] of integer;
értelemszerűen ekkor 2 ciklusváltozó kell
for c:=1 to 10 do
for d:=1 to 20 do
tobbd[c,d]:=akarmi;
persze nem csak integer lehet tömb, lehet bármi.. string, char, saját tipus.
érdemes megemlíteni, hogy a string is egy tömb, ahol a 0.-dik byte a string hossza.
Tehát ha van egy string akkor annak a hossza megtudható ugye a length(str) de ugyanígy az str[0]-val is. Remélem ennyi elég róla.
Most értettem csak meg, hogy a topic elejére néztem, hogy te a legelső hozzászólásra válaszoltál.. Nos úgy gondolom, hogy azóta (2003-11-21 ) már sikerült megoldani a problémáját Legközelebb tekints körbe.
[Szerkesztve]
[Szerkesztve] -
LordEVon
csendes tag
hy mindenkinek.
szóval én kezdő vok ebben a turbo pascalban, de sztem gaben nem fogja érteni ezt az egészet ha nem magyarázza el neki valaki, vag ynem mutatja meg vki egy jó proggal.
én megírtam, nekem működi is.
leírom hogy néz ki nálam.
program szam;
uses crt;
var
x:integer;
Begin
clrscr;
write('kérem a számot ');
readln(x);
if x mod 2=0 then write('páros')
else write('páratlan');
readln;
End.
Nekem ez így működött, lehet h nagyon papírforma, meg mittom én, de működik és az a lényeg.
Nekem is lenne kérdésem. Hogy kell csinálni a tömbös(arrayos progokat?)
Üdv:Lev -
LordEVon
csendes tag
hy mindenkinek.
szóval én kezdő vok ebben a turbo pascalban, de sztem gaben nem fogja érteni ezt az egészet ha nem magyarázza el neki valaki, vag ynem mutatja meg vki egy jó proggal.
én megírtam, nekem működi is.
leírom hogy néz ki nálam.
program szam;
uses crt;
var
x:integer;
Begin
clrscr;
write('kérem a számot ');
readln(x);
if x mod 2=0 then write('páros')
else write('páratlan');
readln;
End.
Nekem ez így működött, lehet h nagyon papírforma, meg mittom én, de működik és az a lényeg.
Nekem is lenne kérdésem. Hogy kell csinálni a tömbös(arrayos progokat?)
Üdv:Lev -
Algee
csendes tag
PCI buszról akarok adatokat beolvasni. Ehez kérek segítséget.
Az eszközt én készítem: egy mikrovezérlő, mely adatokat rak a buszra I/O írás, olvasás.
Milyen fizikai címet adjak az eszköznek, hogy ne ütközzön? Mik vannak lekötve?
Hogyan történik a TP-ben a PCI olvasás, írás?
[Szerkesztve] -
#766
Diskcopy
tag
Metalwarrior
#765
Diskcopy
tag
válasz
Metalwarrior
#765
üzenetére
Lásd milyen jó vagyok hozzád
Megírtam egyet.. Teszteltem is.. Dbase 3-at viszi.
Uses crt,dos;
Type header = record
verzio : byte;
datum : array[1..3] of byte;
rekordok_szama : longint;
head_hossz : integer;
egy_rek_hossz : byte;
nemkell : array[1..21] of byte;
elsoneve : string[10];
Tipusa : char;
end;
Type mezok = record
neve : array[1..11] of char;
tipus: char;
nemk_1,nemk_2 : integer;
mezo_meret : byte;
mezo_dec : byte;
nemk2: array[1..14] of byte;
end;
var db : header;
m : mezok;
f : file;
ennyitolv : integer;
f2 : file;
begin
ClrScr;
Assign(f,'aru.dbf');
Reset(f,1);
BlockRead(f,db,sizeof(db),ennyitolv);
writeln('Dbf file verziószáma:',db.verzio);
Writeln('Utolsó módosítás dátuma: ',1900+db.datum[1],' év ',db.datum[2],' hó ',db.datum[3]);
Writeln('Rekordok száma:',db.rekordok_szama);
Writeln('Fejlec hossza:',db.head_hossz);
WritelN('Egy rekord hossza:',db.egy_rek_hossz);
close(f);
Writeln('-------------------------------------');
Assign(f2,'aru.dbf');
Reset(f2,1);
Seek(f2,32);
Writeln('Mezo neve Mezo Tipus Mezo hossza Mezo decimalis');
While(m.neve[1]<>#13) do begin
Blockread(f2,m,sizeof(m),ennyitolv);
if (m.neve[1]=#13) then exit;
Writeln(m.neve,' ',m.tipus,' ',m.mezo_meret:2,' ',m.mezo_dec:2);
end;
end.
[Szerkesztve] -
#764
Diskcopy
tag
Metalwarrior
#763
Diskcopy
tag
válasz
Metalwarrior
#763
üzenetére
Az nem mind1, hogy milyen verzióju Dbase.. fejléc infokat neten megtalálhatod google-el
de itt egy példa is. [link]
Amúgy meg csinálsz egy rekord tipust, ami tartalmazza az adatokat, amiket felsorol a fejléc, aztán meg beolvastatod ebbe a rekordba.
[Szerkesztve] -
#763
Metalwarrior
tag
Metalwarrior
tag
Helló!
Újabb gond. Kellene pascalban írni egy programot ami kiolvassa egy dbase fájlnak a szerkezetére vonatkozó információit, utána meg beolvasni az összes rekordját. -
#761
Diskcopy
tag
Metalwarrior
#760
Diskcopy
tag
válasz
Metalwarrior
#760
üzenetére
function arccos(x : real) : real;
begin
if x < 0 then arccos := pi - arccos(-x)
else
if x = 0 then arccos := pi / 2
else arccos := arctan(sqrt(1 - x * x) / x)
end;
function arcsin(x : real) : real;
begin
if x < 0 then arcsin := -arcsin(-x)
else
if x = 1 then arcsin := pi / 2
else arcsin := arctan(x / sqrt(1 - x * x))
end;
figyelj a radiánra, illetve, a sima szögre, gondolom tudod hogy hell átváltani..
ha mégsem, akkor Szog2Radian := szog * (pi / 180); illetve Radian2Szog := radian * (180 / pi); -
#760
Metalwarrior
tag
Metalwarrior
tag
Helló!
Gyors segítség kellene. Hogy tudom megoldani pascalban, hogy megálapítsam pl. 0,5 melyik szög koszinusza. -
QuarK
senior tag
Nah, miután már lassan egy éve nem pascal-ozok, néhány (laptopom halálát túlvészelő) fájlt feltoltam: [link], hátha valakinek még jól jön.
Szovegkezeles, szam-szoveg konverzio, egyebek; CRC ellenorzes; Kodolas kulccsal; Matematikai fuggvenyek; Memoriakezeles; Egerkezeles; .PAK fajl kezeles; .PCX betoltes; Szoveges kepernyo eljarasok; .TGA betoltes;Szoveges felhasznaloi felulet (ablakok, elemek); 16bit szinmelyseg videokezeles (VESA); 8bit szinmelyseg (VGA); XMS memoria kezeles; Linear filter-szeruseg.
Robert -
Notes
senior tag
Szerintem se nagyon ragadj le a Pascalnál, bár az alapok megtanulására jó lehet. Régen én is ezt nyomtam, de kicsit fárasztó volt, hogy a felhasználói felület elkészítése több időt vett igénybe, mint a program lényegi része. Delphiben néhány kattintással nagyon szép dolgokat lehet létrehozni, és végre a lényeggel foglalkozhatsz.
Bár hozzáteszem ha végignézed az álláshírdetéseket látni fogod, hogy a Pascal/Delphi dolog halott ügy, most a Java a sláger esetleg még a PHP, meg a C++ lehet a menő. De ez egy Pascalos topikban már megaOFF. Bocs, hogy élek, többet nem fordul elő! -
DQD
csendes tag
Hello!
Van valaki, aki meg tudná mondani, hogy a tp windows-os változatában hogy lehet a betűszínt megváltoztatni? A turbo pacsal for windows 1.5-ös verzióját használom, és nem működik a dos-os pascalban használt textcolor utasítás. Nem a uses wincrt hiánya a hiba, hanem egyszerűen nem találom a megfelelő utasítást.
Előre is köszönöm a választ! -
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 lenne -
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] -
-
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. -
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)); -
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] -
_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 -
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
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] -
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
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.. -
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/5597793
-
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. -
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] -
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]
bocsásd meg ha nincs igazam 
Elég mondjuk egy kis grafika...![;]](http://cdn.rios.hu/dl/s/v1.gif)
vagy ird ki egy másik fájlba fordítva.
)))
Új hozzászólás Aktív témák
- Most Kína tiltotta ki a nemrég exportengedélyt kapott AI gyorsítókat?
- Autós topik látogatók beszélgetős, offolós topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Nem okoz az adattárolón hibát a Windows 11 augusztusi frissítése
- Suzuki topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Kínai és egyéb olcsó órák topikja
- Épített vízhűtés (nem kompakt) topic
- Okos Otthon / Smart Home
- Hardcore café
- További aktív témák...
- iPhone 15Pro 128 GB titánkék 92% akku
- Bomba ár! HP EliteBook 2560P - i5-2540M I 4GB I 250GB I DVDRW I 12,5" HD I W10 I Garancia!
- Bomba ár! Dell Latitude E6410 - i5 I 4GB I 160GB I DVDRW I 14,1" WXGA I Cam I W10 I Gari!
- Bomba ár! Dell Latitude 7480 - i5-6GEN I 8GB I 256GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- Bomba ár! Dell Latitude 7400 - i5-8GEN I 16GB I 256GB SSD I 14" FHD IPS I CAM I W10 I Garancia
- ThinkPad T14s Gen 2 i5-1135G7 16GB 256GB FHD 1 év garancia
- Azonnali készpénzes AMD Ryzen 1xxx 2xxx 3xxx 5xxx processzor felvásárlás személyesen / csomagküldés
- Lenovo ThinkPad X1 Yoga G6 (6th Gen) - i7-1185G7, 32GB, 512GB SSD, multitouch + TOLL
- Samsung Galaxy S23 Ultra / 8RAM 256GB / Gyárifüggetlen / 12 Hó Garancia
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest