- Az USA nem akarja visszafogni Kína növekedését
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Direct One (műholdas és online TV)
- Facebook és Messenger
- Ubiquiti hálózati eszközök
- Windows 11
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- HBO Max & OD topic
- Ember helyett robot kellene az űrbe
- Kínában túl sok az EV, fokozódik az árháború
Új hozzászólás Aktív témák
-
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! -
DQD
csendes tag
Most veszem észre, hogy delay sincs, sőt valószínűeg még pár másikkal is így fogok járni...
Extra hülye kérdés: Ha egy dos-os pascalból átraknám a crt unitot a windows-osba, akkor az szerintetek lehet működőképes? -
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ő!Romanes eunt domus!
-
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 -
Metalwarrior
tag
Helló!
Gyors segítség kellene. Hogy tudom megoldani pascalban, hogy megálapítsam pl. 0,5 melyik szög koszinusza. -
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); -
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. -
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] -
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] -
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]algee
-
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 -
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] -
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! -
b14
senior tag
válasz Darth_Revan #774 üzenetére
Középső karakter?
Az hanyadik?''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
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] -
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]Gigabyte 965P-DS3, Intel Core Duo 6400, 2*512DDRII 800Mhz, Gigabyte Nvidia 7600GT, 80GB SATAII 16mb Samsung, Pioneer 112D, Chieftec Dragon ház, Chieftec 450W táp
-
Blade!!!
tag
Bocs. Erről megfeletkeztem. Ez egy nagyobb téma része. A menuir a főmenüre hivatkozik
procedure menuir; van az elején. de próbáltam ezt a részt külön is és úgy sem ment.Gigabyte 965P-DS3, Intel Core Duo 6400, 2*512DDRII 800Mhz, Gigabyte Nvidia 7600GT, 80GB SATAII 16mb Samsung, Pioneer 112D, Chieftec Dragon ház, Chieftec 450W táp
-
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]( 2b || !2b ) az itt a kérdés...
-
fasyrt
őstag
Áááh. Segítsetek!
Beolvastam 1 tömbbe 7 változót (számot), és őket kéne növekvő sorrendbe tenni, majd a számok nevét kiíratni!
Pl:
Hugó: 7
Helga: 16
Akkor ki kéne írnom a
Helga
Hugót.
? -
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. -
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. -
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! -
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! -
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.Jester
-
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]( 2b || !2b ) az itt a kérdés...
-
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ó.Jester
-
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!
-
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 vagy ird ki egy másik fájlba fordítva.
És jól értelmezted.
[Szerkesztve]( 2b || !2b ) az itt a kérdés...
-
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árgyalvaJester
-
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!
-
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?
-
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!