- Otthoni hálózat és internet megosztás
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Synology routerek
- A tüntetések ellenére is bővítheti német gyárát a Tesla
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- HBO Max & OD topic
- Linux kezdőknek
- Facebook és Messenger
- Windows 10
- Windows 11
Új hozzászólás Aktív témák
-
bedohazi
aktív tag
válasz Gyuri16 #2398 üzenetére
Elolvastam amit linkeltel, es erdekesnek is tartom... mert amiota bekottek az uj netet es a munaksemberek el is inditottak a gepen, miutan ezt azt 'klikkelgettek"(habar tudom mit mert mar raktam ujra a netet de nem errol van szo...), azota a Cntrol Panelben van egy ilyen nevezetu ikon :"CSNW" aza client service for netware. HA raklikkelek kettot akkor azt dobja ki, hogy The service has not been started. Ez meg nem is baj de amiota ez megjelent, azota gepindulaskor elojon az az ablak, ahol a gep nevet kell megadni es a jelszavat, de nalam a jelszo mezo ures es nemis kell semmit beirjak, csak okezzak. Ez abban rossz hogy a gep "magatol" nem indul bem, s ha ki akarom kapcsolni , start menunel shut downro megyek, akkor ott is elojon az az ablak ahol egy lenyilo fullel ujbol ki kelll kivalasztani a a shud downt, mig eddig a starbol a shutdownra menve elszurkult a kepernyo es csak a kozespso shud down ikonra kellet klikkelni. Ugy gondolom hogy ez a ket ablak indulaskor es kikapcsolaskor a CSNW muve, s at megoldottam valahogy, hogy indulaskor ne kelljen okezni(de amugy is elojon az ablak, csak el is tinik oke nelkul), de a kikapcsolaskor mar nem tudtam eltuntetni, ezt a CSNW-t sehol se tudtam torulni, s nem is tudom mit jelent s ezert a pascal miatt meg egyenlore nem torulom le a linkben leirtak szerint, nehogy valami legyen a nettel vagy valamivel.
Akkor megmondanad, hogy a csnw mi is az es lehet-e torulni? -
vz12
tag
válasz bedohazi #2400 üzenetére
Pedig szerintem csak ott az Options/Directories beállításnál lesz a probléma.
Az "EXE & TPU directory" az most nem számít, az nem a felhasznált hanem a majd lefordítandó EXE-k és TPU-k célkönyvtára.
Csak este tudom majd megnézni, de emlékeim szerint több alkönyvtárban is vannak felhasználandó TPU kiterjesztésű fájlok (egyedül a CRT nincs TPU-ban), ezeket pontosvesszővel elválasztva mind fel kell sorolni a "Unit directories"-nál, majd mentés "alapértelmezettként" (talán TURBO.TP fájlba), egy ki- és belépés és működni kell. Szóköz persze ne legyen könyvtárnévben sem + fájlnévben sem. Kis/nagybetű nem számít, ez még DOS volt.
Semmi extra trükk nincs benne, anno én is pakolgattam ide-oda, mindig működött, a fenti beállításokon kívül semmi más nem kellett hozzá.Ja, esetleg a TPUMOVER progival bele lehet pakolgatni a külső TPU-kat a "belső" függvénykönyvtárba (talán TURBO.TPL), úgy a CRT-hez hasonlóan nem kell őket "uses"-ni, viszont a lefordított EXE-k méretét minden esetben növeli.
[ Szerkesztve ]
-
Gyuri16
senior tag
válasz bedohazi #2400 üzenetére
nem talalja a GRAPH.TPU-t, akkor a directoriesban hozza kell adnod a unitshoz azt a konyvtarat, ahol ez a fajl van. ahogy vz12 irta, az osszes .tpu fajlt meg kell tudnia talalnia a pascalnak, ezert keresd meg oket (siman windows explorerrel, vagy akarmivel), es add hozza a konyvtarakat (vesszovel elvalasztva). ha az iskolaban a bgi konyvtar is ott volt a unitsban add hozza te is - nem lesz baj, ha tobb konyvtar van ott, ez csak annyit tesz, hogy azokban keresi a unitokat.
exe & tpu dirnek szerintem egy sajat (uj) konyvtarat adj meg, mert ide fogja forditani a te programjaid#2401: nem tudom mi az, csak a google dobta. viszont ha a szolgaltatod rakta fel, akkor lehet kell a halozatba bejelentkezeshez, oket kerdezd meg.
[ Szerkesztve ]
Nem vagyok egoista, csak uborkagyalu!
-
vz12
tag
> a CRT-hez hasonlóan nem kell őket "uses"-ni
Ööö, izé ..., kell "uses"-ni akkor is, csak a "Unit directories"-ba nem kell beletenni, mert akkor már nem "külső" unit hanem "belső", már a TP indulásakor bekerült a memóriába, nem kell keresgélni a megadott helye(ke)n.
Bocsi, gyorsan írtam. -
bedohazi
aktív tag
na koszi a valaszokat, kiprobalom, s majd irok hogy mi a helyzet
-
bedohazi
aktív tag
Valaki megoldana ezeket, vagy elmagyarazna? Koszonom
1. Irjatok egy pasacal kifelyezest, amely akkor es csak akkor true ha a char tipusu c valtozo an angol ABC egy kisbetujet tartalmazza?
Igy jo:? if c in [a..z] then valtozo1:=true:?2. Az s1 es s2 valtozok karaktertalc tipusuak. ird meg azt az utasitassorozatot, amely a ket karakterlancot abc-sorrendbe(lexikografikus novekvo sorrendbe) egy szokozzel elvalasztva a kepernyore irja. Pl ha s1 a mama karakterlac, s2 a macara, akkro a kepernyore a macara mama-t irja ki.
-
bedohazi
aktív tag
gyuri16, egy yahoo id-t kaphatok?
-
Gyuri16
senior tag
válasz bedohazi #2406 üzenetére
1. if c in ['a'..'z'] then valtozo1:=true;
kellenek oda az aposztrofok, kulonben hibat jelez.
ezt egyszerubben le lehet irni igy is (elozo esetben ha a feltetel nem teljesul a valtozo1 erteke az marad ami elotte volt, ami nem mindig jo):
valtozo1 := c in ['a'..'z'];
a kerdes itt csak a kifejezes volt, tehat a valasz ez:
c in ['a'..'z']2. pascal tud stringeket osszehasonlitani a klasszikus =,<,>,<=,>=, <> operatorokkal, ezek tobbnyire olyan eredmenyt adnak, mint amire az ember szamit. tehat ha s1 es s2 string, akkor lehet ilyen ifet irni:
if s1>s2 then
{ s1 lexikografikusan nagyobb mint s2 }
else
{ s2 a nagyobb vagy a ketto egyenlo }ebben mar csak a kiiratas hianyzik, remelem az mar megy
#2407: nincs yahoom, mas van, de most nincs idom privatban ezzel foglalkozni. ide szivesen irok valaszt amikor epp raerek.
[ Szerkesztve ]
Nem vagyok egoista, csak uborkagyalu!
-
Ultimate
csendes tag
Tudna segíteni valaki egy egyszerű for ciklusus programban?
Az a feladat, hogy ki kell írni az első 50 páros szám összegét.program paros;
uses crt;
var i,osszeg: integer;
begin
clrscr;
writeln('Az első 50 páros szám:');
for i:=1 to 10 do
if i mos 2=0 then
write(i,' ');
begin
...
...
gotoxy(1,7);
writeln('Összegük:');
writeln(osszeg);
readln;
end;
end.Megcsinálná valaki, hogy jó legyen?
[ Szerkesztve ]
-
RedSign
tag
válasz Ultimate #2410 üzenetére
Régen volt már a TP, de szerintem valami hasonló (tesztelve nincsen, ha hibás valaki javítsa, köszönöm!):
program paros;
uses crt;
var i,j,osszeg: integer;
begin
clrscr;
writeln('Az első 50 páros szám:');
i=1;
j=1;
while i<50 do
begin
if j mos 2=0 then osszeg:=osszeg+j;
j:=j+1;
end;
gotoxy(1,7);
writeln('Összegük:');
writeln(osszeg);
readln;
end;
end.http://www.redsign.hu
-
Gyuri16
senior tag
válasz Ultimate #2412 üzenetére
ha gondolod bemasolhatod a veglegest es megnezem, mert RedSign megoldasa nem tul jo.. (egyreszt le se fordulna, ha lefordulna vegtelen ciklus lenne. azon kivul nem az elso otven szamot nezi, hanem csak otvenig a parosakat)
en inkabb ilyen ciklust hasznalnek:
for i:=1 to 50 do
begin
szam:=2*i;
// itt szamolod az osszeget
end;igy nem kell szurni a feleslegeseket, raadasul egyertelmubb, hogy pont 50 szamot general. mas megoldas egy while ciklus, ahol a ciklusvaltozot mindig kettovel noveled, igy is megsporolod az ifet.
masik dolog, hogy illik inicializalni a valtozoidat, konkretan az osszeg valtozoban nem tudod mi van az elejen, jo lenne nullazni az elejen
Nem vagyok egoista, csak uborkagyalu!
-
RedSign
tag
válasz Gyuri16 #2414 üzenetére
ha gondolod bemasolhatod a veglegest es megnezem, mert RedSign megoldasa nem tul jo.. (egyreszt le se fordulna, ha lefordulna vegtelen ciklus lenne. azon kivul nem az elso otven szamot nezi, hanem csak otvenig a parosakat)
Már közel 15 éve nem programoztam TP-ban, tehát esélyes hogy le sem fordul vagy végtelen ciklusba fut... ...szerintem az első 50-et néz, csak éppen kimaradt a while-ból egy i := i+1; ...
[ Szerkesztve ]
http://www.redsign.hu
-
Gyuri16
senior tag
válasz heihachi #2418 üzenetére
var
n: integer;
begin
writeln('Az elso hany paros szam osszeget szeretned tudni?');
readln(n);
writeln('Az elso ',n,' paros szam osszege: ', n*(n+1));
readln;
end.nekem nem szokasom rogton mukodo kodot adni, jobban szeretem ravezetni a kerdezot a megoldasra
Nem vagyok egoista, csak uborkagyalu!
-
dany27
őstag
hali!
Egy olyan kérdésem lenne hogy mi a legegyszerűbb módja annak hogy típusos állomány x-edik elemét töröljem ? Van rá vmi függvény vagy kézzel kell megírnom az egészet??
Előre is köszi!
-
bedohazi
aktív tag
Udv,
Van egy n*n -es 2 dimenzios tomb, amit 1 tol n*n ig kell feltolteni szamokkal.
Ket algoritmusra lennek kivancsi: egyik amelyik balfelso sarokbol indulva a melleketloval parhuzamosan tolti fel a matrixot, es egy amelyik balfelso sarokbol indulva a foatloval parhuzamosan tolti fel a matrixot.Az elsore van egy megoldasom, de kivancsi lennek ti hogyan oldanatok ezt meg, a masodikra viszont nincs.
Itt egy kep hogy mire is gondolok:Elore is koszonom.
-
-
vz12
tag
válasz bedohazi #2425 üzenetére
Egy megjegyzés az elején: a 2. megoldásod a jobb felső sarokból indul, nem pedig a bal felsőből ahogyan írtad.
Akkor egy kicsit bővebben:
Én valahogy úgy csinálnám hogy menne egy FOR ciklus 1 és n*n között, és minden lépésben megkeresném a ciklus aktuális értékének helyét (sor, oszlop) a mátrixban. Ennyi.A probléma nyilván a hely megkeresése, ami az 1. esetben (x1, y1), a 2. esetben (x2, y2). Minden koordináta csupán a ciklusváltozó értékétől függ, de x1 és y1 egy kicsit máshogyan mint x2 és y2 (képleteket kellene keresni). Azt írtad hogy az elsőre megvan a megoldásod, tehát (x1, y1) ismert, én csak megadtam hogy ebből hogyan lehet kiszámolni a 2. esetben (x2, y2) -t.
Látszik a tengelyes tükröződés, tehát a számok mindkét esetben ugyanabban a sorban vannak de a másik oldalon, a közepéhez képest ugyanannyi távolságra. Ezt írtam le matematikailag.
A konkrét program megírását már az érdeklődő olvasóra bízom.[ Szerkesztve ]
-
bedohazi
aktív tag
igen fent elirtam...megprobalom de nem nagy eselyt latok...
Meg par ehhez nem kapcsolodo kerdes:
- Mit csinaljak hogy pascalban gepeleskor azonnal jelenjenek meg a beirt betuk akarmilyen gyorsan irok, mert nagyon sokszor akad, szaggat, kesobb jelenik meg a betu mint amikor lenyomtam a billentyut?- Valahogy be lehet-e allitani hogy pascalban a hatetr ne kek legyen es sarga betukkel irjak, hanem feher hatter es fekete betuk, mert a szememnek sokkal jobb volna, sokkal atlathatobb?
-
vz12
tag
válasz bedohazi #2427 üzenetére
Az első kérdésre nem nagyon tudok mit mondani, talán ki kellene kapcsolni vírusírtót, stb., illetve lehet hogy nem elég gyors a géped. Egy ötletem még van, a Vezérlőpultban a Billentyűzetnél lehet sebességet állítani, ha lehet akkor gyorsíts ott is.
A második kérdéshez: Én még sosem állítgattam, nekem tetszik így.
De azért megnéztem.
Ha TP7-ről beszélünk akkor Options / Environment / Colors -nál lehet mindenféle színeket állítani. Ha a hátteret megváltoztatod akkor az Editor / Normal text és Selected text -et illetve a Syntax összes elemét mindenféleképpen át kell állítani, a többit ízlés szerint, de ésszel. Ha tetszik az új színkavalkád és a legközelebbi belépéskor is ezeket akarod látni, akkor az Options / Save -nél ne felejtsd el elmenteni ...Esetleg használd a kedvenc (normál TEXT alapú) szövegszerkesztődet, és csak a fordítás, futtatás idejére lépj be a TP-be.
Arra figyelni kellene hogy a szövegszerkesztő DOS-os karakter kódkészlettel dolgozzon ..., talán 437-es kódlap ...[ Szerkesztve ]
-
vz12
tag
válasz bedohazi #2429 üzenetére
Jobban megnézve tényleg szürke, de majdnem fehér ...
Igazi fehér háttér úgy tűnik hogy nincs, csak az ott lévő 8 szín.
Betűszín viszont lehet igazi fehér is, mert ott 16 lehetőség van.Az "elkékülés" szerintem azért volt mert a Syntax elemek háttérszínét is át kell állítani (mindegyiket) ugyanolyanra mint a Normal text háttérszíne, nekem utána jó volt. Az eredeti sárga betűszín is csak ideiglenes, miután felismeri hogy a szintaxis melyik részéhez tartozik a beírt szöveg máris átszínezi a Syntax beállításoknak megfelelően. Ha annak a háttere kék maradt akkor persze elkékül.
Szerintem.
De ezt mintha már javasoltam volna ...[ Szerkesztve ]
-
klambi
addikt
kaptunk egy feladatot, csak egy algoritmust kéne rá csinálni...
van egy bolt, ismerjük 30 napi bevételét és 30 napi kiadását. döntsük el, hogy van e olyan nap, ha van, akkor melyik nap, amikor veszteséges volt az üzlet.
bevétel: tömb (1..30:egész)
kiadás: tömb (1..30:egész)pascalban 100éve nem csináltam semmit, tud valaki segíteni?!
"Mond szépen angolul: Gyors róka!"
-
lecsokolbasz
csendes tag
Üdv mindenkinek!
A következő program megírásában kérném a segítségeteket.
Pascal-ban.
Esetleg nincs meg valakinek, szívesen venném!!!!
Köszi előre is!A bemenet első sorában található egy egész szám, n.
Ezután következik tetszőlegesen sok, de maximum kétszáz darab, int vagy double típusú szám. Írjuk őket növekvő nagyság szerint rendezve a kimenetre n tizedesjegy pontossággal.pl.:
Bemenet:
4
10
10.5
6.8
11.2275Kimenet:
4.000
6.008
10.000
10.005
11.227 -
csarab
csendes tag
Hello! Házit kéne írnom, de nem sikerült eddig megoldanom a problémát, remélem segítetek!
A feladatom: Készítsen programot, amely a számsorozatokat a Cauchy-féle konvergencia kritérium alapján vizsgál. Tetszőleges sorozatról lehet szó. Én az 5*n/n a sqrt(1+1/(n*n)) és a (1+1/n)+n.t választottam, az elsőnek 5 a másodiknak 1 a harmadiknak az e szám a határértéke. Idáig jutottam, ami sajnos hibás:
var a,b:real; d,k,n:integer;
begin
a:=5*n/n;
b:=sqrt(1+1/(n*n));
d:=5;
k:=1;writeln('Kerem a hanyadosfuggvenyt:',a);
writeln('A hanyadosfuggveny hatarerteke:',d);
writeln('Kerem a gyokfuggvenyt:',b);
writeln('A gyokfuggveny hatarerteke:',k);
readln;
end;function cauchy(a,b:real;d,k,n:integer;z:longint;var m:integer):integer;
begin;
z:=0,001
if a-d<z then do
write n:=m
writeln(m);
end;
readln;
end.
Vmilyen függvényt, meg eljárást , fájlkezelést is kéne írnom. Nagyon örülnék, ha vki tudna segíteni, köszi! -
Dave-11
tag
Sziasztok! A következőt szeretném megvalósítani:
Lenne egy progrgam, ami bekéri a nevedet. Miután megadtat, kiír egy üdvözlő üzenetet, és alá ezt írja: "Nyomj Entert a program bezáráshoz, vagy Spacet az újabb név megadásához". Ennyit meg tudok csinálni belőle:program nev;
uses crt;
var
nev:string;
begin
writeln('Kérlek add meg a nevedet!');
write('Neved: '); readln(nev);
writeln();
writeln('Üdv, ',nev);
writeln();
writeln('Nyomj Entert a program bezáráshoz, vagy Spacet az újabb név megadásához');
[és ide jönne az a rész amit nem tudok]
end.Tehát hogy lehet megoldani, hogy egy billentyű lenyomásával kilépjen, vagy újrainduljon a program? A segítségeket előre is köszönöm
:D Semmi :D
-
kmisi99
addikt
Igaz kicsit off de azért van köze a témához
Középiskolában pascalt tanulok de nem nagyon megy nagyon nem vágom! Ilyeneket veszünk hogy dinamikus tárkezelés meg hasonlók! Hogy tudnák jobban belerázódni? Talán kezdjem előröl a tanulást az alapoktól? Tudnátok valami jó oktatós oldalt adni? -
Sweet Lou 6
addikt
-
Vferi159
csendes tag
Sziasztok!
Szükségem lenne a segítségetekre. Egy egyszerü programról van szó, de mégsem akar sikerülni.
A program bekér 2 számot, majd a 2 szám közti intervallumból véletlenszerüen kiir egyet. Fontos, hogy a 2 szám közti inttervallum min. 20 legyen.
http://kephost.hu/kep/2011/04/turbo_jpg.JPG eddig ezt próbáltam összehozni, de a képen látható hibát írja ki ("x:=ramdom(b)+a sorban a (b)-vel van problémája). Reménykedek benne, hogy valaki tud segíteni, előre is köszönom... -
-
Gyuri16
senior tag
Új hozzászólás Aktív témák
- Asus V8460 Ultra ( Geforce 4 Ti 4600 )
- HP Prodesk 600 G5 DM, Tiny i5-9500T , 8-16GB DDR4 , 256GB NvME , 2 év gari , AAM számla
- DOBOZOS Lenovo ThinkPad T14s Gen 3:R7 PRO 6850U,32GB DDR5,2TB,vil.HU bill,Radeon680M,400nit 100%sRGB
- Ricoh Theta Z1 360 fokos kamera
- IPhone 14 128GB gyári független 2026.11.09. Apple garancia
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen