Hirdetés
- Milyen okostelefont vegyek?
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Honor 200 - kétszázért pont jó lenne
- Fotók, videók mobillal
- Xiaomi 15T Pro - a téma nincs lezárva
- iPhone topik
- Az AI átformálja a Peugeot modelljeit is
- Samsung Galaxy A37 – régi ismerős új formában
- EU: senki ne használjon Huawei és ZTE hálózati berendezéseket!
- Vészhelyzet: tönkreteheti a Garmin eszközeit a legújabb frissítés
-
Mobilarena
Mobilarena
Új hozzászólás Aktív témák
-
Huligan
csendes tag
Hi!
Azt hiszem ez az a fórum ahol ezt el kell mondani.
Jól nyissátok ki az összes fületeket
Ismerek egy csapatot akik PDA-ra fejlesztenek
Ha valakit érdekelnek néhány alkalmazás akkor itt van néhány: :y
Ajánlatkészítő rendszer
Vonalkódos adatgyűjtő rendszer
Leltározó rendszer
Standoló rendszer
Gyógyszerkönyv
Számlázó rendszer
Szállítólevél készítő rendszer
Járőr rendszer
Felmérő rendszer
Kiszállítói rendszer
Képviselői rendszer -
(Hali, idézek Neked 1 könyvből...)
XML - Kiterjeszthető Leíró Nyelv (Extensible MArkup Language).
Az XML az SGML (Standart Generalized Markup LAnguage) utódja, és a HTML testvére, amely mellesleg szintén egy SGML alapú leíró nyelv.
Az XML előtt sokat vitatkoztak azon, hogyan kellene az adatokat megosztani. Az olyan egyszerű formátumok, mint a vessdzővel eválasztott változók (Comma Seperated Variable, CSV) eygszerű és ahtékony módját jelentették az adatátvitelnek, de fileonként csupán kb. egy adatbázis-táblázatnak megfelelő mennyiségű adatot tudtak átvinni. Struktúrált adatok továbbításához, mint amilyen mondjuk gy egész adatbázis, vagy egyy teljes dokumentum, rengeteg CSV-féjl bonyolult rendszerére volt szükség. S hogy a dolog még tovább bonyolódjon, négányan nem értették meg a vessző használatát a CSV-ben, és ehlyette inkább tabulátorokat használtak. [...]
Az XML enyhít a problémákon azzal, hogy egyetlen közös fájlstruktúrát teremt meg. Ez a szerkezet lefedi azt, amit a CSV-fájlnak kellett volna, nem enged meg olyan önkényes változtatásokat, mint például a vesszők tabulátorokra cserélése, és elfogadja a hagyományos táblázat tipusú és a kevésbé szabványos, dokument tipusú struktúrát is.
Mit csinál az XML?
--------------------------
Az XML úgy struktúrálja az adatokat, hogy az egyes adatelemeket tag-ekkel választja el egymástól. a tag-ek segítségégvel lehetőségünk van arra, hogy hosszú , értelmes nevekkel lássunk el minden adatelemet, de rövid kódolt tag-eket is használhatunk a jobb helykihasználás érdekében. A tag-eknek lehetnek jellemző paraméterei, és a fájlnak lehet egy átfogó szerkezet-definíciója, az úgynevetett Dokument Tipusú Definíció (DTD) vagy egy külső DTD-re való bivatkozása a Dokument Típusú Deklaráció. A deklaráció egy definíciót tertalmazó külső fájlt nevez meg, s az a definíció határozza meg a fájlstruktúrát.
Remélem, ez segített -
Mindegy, most nem idegelem magam ezzel, de azért nagyon jellemző a műegyetemi oktatás színvonalára, hogy felfirkálja a táblára a létező legegyszerűbb programot, mondván, hogy ez már müxik, de hát nem müxik egyáltalán. Mi lesz később? Majd a hello world-öt próbáljuk debuggolni? Nem hiszem el, hogy ezért valaki pénzt is kap!
Szerk: Az én turbo c-m eleve nem 4, hanem csak 3 lemezes... De azért köszi, olvasgatom!
[Szerkesztve] -
kapcs-ford
őstag
-
Steelheart
senior tag
-
g4dg3t
senior tag
Procedure valogat(eleje,vege: integer; var kozep:integer; var X:Tomb);
Procedure quicksort(eleje,vege:integer; var X:Tomb);
...
If vege>kozep+1 then quicksort(kozep+1,vege,X); //rossz iranyba mutatott a relacio!
...
Igy mar yoo lesz (elvileg)
[Szerkesztve] -
Steelheart
senior tag
Valamit nagyon elnézhettem, de nem jövök rá, hogy mit gépeltem el. A suliban még működött, csak rossz volt a floppym (jellemző), és kézzel írtam le. Most meg nem találom a hibát... biztos a kevés tapasztalat teszi...
Nos, a QuickSort-ról van szó pascalban, remélem, vki segít.
-----------------------------------------------------------------------------------
Program quicksortprob;
uses crt;
const maxtomb=10;
type tomb=array [1..maxtomb] of integer;
var i:integer;
X2:Tomb;
Procedure valogat(eleje,vege: integer; var kozep:integer; X:Tomb);
var i,j,k:integer;
Begin
k:=X[eleje];
While eleje<vege do Begin
While (X[vege]<k) and (eleje<vege) do dec(vege);
If eleje<vege then Begin
X[eleje]:=X[vege];
inc(eleje);
While (X[eleje]>=k) and (eleje<vege) do inc(eleje);
If eleje<vege then Begin
X[vege]:=X[eleje];
dec(vege);
End;
End;
End;
X[eleje]:=k;
kozep:=eleje;
End;
Procedure quicksort(eleje,vege:integer; X:Tomb);
var kozep:integer;
Begin
valogat(eleje,vege,kozep,X);
If eleje<kozep-1 then quicksort(eleje,kozep-1,X);
If vege<kozep+1 then quicksort(kozep+1,vege,X);
End;
{**************************}
Begin
For i:=1 to maxtomb do Begin X2[(i)]:=random(1000); Write(X2[(i)],', '); End;
quicksort(1,maxtomb,X2);
For i:=1 to maxtomb do Write(X2[(i)],', ');
Repeat until keypressed
End.
-----------------------------------------------------------------------------------
A ''valogat'' eljárás kezdő Beginjéhez verem túlcsordulási hibát jelez ki, amit fordításban nem jelez. Pedig suliban még működött...
[Szerkesztve] -
Steelheart
senior tag
-
DragonR+
aktív tag
Sziasztok!
Segítséget szeretnék kérni Java programozásból.
Totál kezdő vagyok a nyelvben.
Van egy feladatom:
A feladat szerint van egy vektor egy két mezővel.
Fel kell vinnem néhány nevet és a másik mezőt nulláznom.
A kérdésem az lenne, hogy a másik fordulóban hogyan tudnám megcsinálni, hogy módosítani lehessen a másik mezőt?
Kérlek, bocsássátok meg, hogy ilyen pongyolán írtam le a dolgokat, de gyorstalpalón vagyok.
Válaszaitokat előre is köszönöm.
Tisztelettel, Zed -
hi
C ben megcsináltam, de pascalra nem tudom.. de ebből már kilehet bogozni
de azt nem tudom, hogy pl, ha rajta hagyod a kezed a spacen akkor mit csináljon a program, de ez itt a dupla és akárhány spacét is csak 1nek veszi. a mondat elejét se érdemes spacevel kezdeni ezért azt se számolja.
amargo
char vmi[40]; //ez tetszoleges lehet.. de file bol is belehet olvasni és utána tömbe rakni vagy közvetlen..
int er; //ez a vegeredmény tárolja
void main(void)
{
clrscr();//ez csak képernyotorles
printf(''bevitel : '');
gets(vmi); //itt tárolja el azt amit bevittél
for(int i=0;i<=sizeof(vmi);i++) //ez a magja, lényegiben a tömbön végig fut
{
if(vmi==32 && vmi[i+1]!=NULL) //itt ellenörzöm a karaktert és, hogy létezik e leütés
{
if(vmi[i+1]!=32)//itt végzek még egy ellenörzést, hogy a space után már nem állhat még egy..
er++;
}
}
if(vmi[0]==32) //ez az eleje space lett kezdve akkor azt kivonja.
er=er-1;
printf(''elvalaszto : %d'' ,er); //kiírja a végeredményt
} -
-
Ha jól fogtam fel,
[Szerkesztve: Nem jó, a fórummotor nem szereti a kódot. Inkább elküldtem mailben]
De most mi lesz? Bevágod a programlistát?
Meg kellene érteni, mit is csinál a program, és legalább annyira megbarátkozni a Pascal utasításrendszerével, hogy valami ilyesmit le tudj kódolni, ha már a fejedben megvan az algoritmus...
----------------
Szerkesztve (21:44): Visszadobta a freemail a levelet, mondván, tele a postaládád... Így megy ez. -
Pizzafutar
aktív tag
-
CharlieDrop
veterán
ha pancser módon állunk hozzá (nem ismerem a C idevágó függvényeit), akkor alap módon felbontod 2-es számrendszeri számmal, modjuk eg ytömbbe és azon belül összeszámolod hány egyes van (de ez csak a józan paraszti ész
Nem C specifikus) -
Nos?
A feladatleírás még ide:
''80 lény: max 20 évet élnek. Halálozásuk valószínűsége egyenesen arányos
korukkal, pl.: a 0 éves biztosan 1 éves lesz, a 10 éves 1/2 eséllyel
éri meg a következő évet. A 20 éves biztosan meghal.
Feladat: Kezdetben az összes lény 0 éves (újszülött). Ezután folyamatosan
válasszunk ki véletlenszerűen egy lényt. Aztán probáljuk meg növelni az
életkorát a megfelelő eséllyel. Ha meghal azonnal megjelenik egy újszülött.
A 80 lény korát oszlopdiagrammként folyamatosan ábrázoljuk a képernyőn és
írjuk ki az átlagéletkorukat is. Gobnyomásra a program érjen véget.''
Az én szavaimmal. és kb. -
9CS
senior tag
Oh ez valószinű moderálva lesz, de akkor nézzük:
Kivettem pár ellenörző sort ami nem kell igazaból, csak próbálkoztam megkeresni velük a hibát... Remélem hasznos sort nem vágtam ki 
.
Program max20ev;
Uses crt;
Var
falka : array[1..80] of byte;
o, {kiválasztott elem}
e, {évek száma}
t {a falka 0-val való feltöltéséhez kell}
: byte;
osszeg {átlag korhoz}
:word;
atl {az átlag}
: real;
{ --- Procedurák --- }
Procedure Kivalasztas; {Egy véletlen szám}
Var {1-80-ig}
v : byte;
Begin
Randomize;
v := Random(80)+1;
o := v;
end;
Procedure Oregites; {No ez igen}
Var x : integer; {Öregít elvileg}
v : byte;
Begin
{readln(e);}
x := round(100-e*(100/20));
{writeln('ez a ''%'': ',x);}
Begin
Randomize;
v := Random(100);
{WriteLn('ez a random szám a vénséghez: ',o);}
Begin
if v<=x then e:=e+1
else e:=0;
{writeln('öregedés utáni kor: ',e);}
end;
end;
end;
Procedure Hanyeves; {Megnézi mennyi idős}
{Var} {Ha a két kritikus}
{e : byte;} {kor akkor lekezeli}
begin {Nem szükséges!}
{read(e);} {elvileg}
if e=0 then e:=1 {elég az öregítés}
else
if e=20 then e:=0
else oregites;
end;
Procedure Lentivonal; {Egy vonal lent}
Var i : byte;
begin
gotoxy(1,24);
for i:=1 to 80 do
write(chr(178));
End;
Procedure oszloptorol; {Oszlopok törlése}
Var i,k : byte;
Begin {Kezdő pont}
k := 23;
for i:=1 to 20 do
gotoxy(o,k);
write(' ');
k:=k-1;
{readkey;}
End;
Procedure Egyoszlop; {Oszlopok huzása}
Var i,k : byte;
Begin {Kezdő pont}
k := 23;
for i:=1 to e do
gotoxy(o,k);
write(chr(178));
k:=k-1;
{readkey;}
End;
Procedure Atlagkor; {Átlag életkor}
Begin
atl:=0;
atl:=(osszeg/80);
End;
{ --- Kezdődjék hát a program --- Változók az elején! --- }
Begin
clrscr;
lentivonal;
for t:= 1 to 80 do
falka[t]:=0;
osszeg:=0;
Repeat
Kivalasztas;
e:=falka[o];
osszeg:=osszeg-e;
hanyeves;
oregites;
falka[o]:=e;
osszeg:=osszeg+e;
atlagkor;
readln(e);}
oszloptorol;
egyoszlop;
gotoxy(30,3);
write('Átlag kor: ',atl);
Until keypressed;
End. -
9CS
senior tag
Mennyire lehet pofátlan kérdése az embernek?
Ugyanis sajna a házimmal komoly gondok vannak. Nem működik a kijelzés, ha bemásolm a forrást esetleg lenne Aki megnézi, hol lehet a baj? Ma mutattam a tanárnak, hogy a számolás mintha jó lenne (kivéve átlag számítás 
),csak a kijelző nem igazán azt csinálja mint kéne. Külön ha csak az a rész megy akkor jó... Mondta keresem meg a hibát, de nem lelem 
Szóval szabad ide biggyeszteni ''pár'' sorocskát? Néhány képernyönyi Pascal forrás lenne. Ha van aki jelentkezik, hogy rápillant akkor beteszem nemsokára, csak most floppyn van, az meg a gépemben nincs. -
g4dg3t
senior tag
HeLLa!!!
Nah feltoltottem nehany regebbi (sulis) munkamat. Akit erdekel, vagy akinek szuksege van peldaprogramokra hasznalja batran (Petrikes - rendszerprogramozoknak nagy segitseg lehet)
Assembly programjaim omlesztve
http://gadget.uw.hu/progz/asm.rar
Par darab C program (DOSos mini adatb kezelo, WinSuxos BMP viewer, Filerendszer bongeszo)
http://gadget.uw.hu/progz/c.rar
OpRendszer feladatok (megszakitasok kezelese, NeHe OpenGL progi...)
http://gadget.uw.hu/progz/oprendsz.rar
Tipikus programozasi feladatok megvalositasa (Grafikus peldaprogik Backtrack algoritmusra, rekurziora, OOP-ra, 3D koceka forgatas...)
http://gadget.uw.hu/progz/elm.rar
Ez pedig a szakdogam volt (WinSuxos IRC kliens...aki a kodra kivancsi annak a lenyeg ''Source\Component Package'' konyvtarban van...ircclient.pas...)
http://gadget.uw.hu/progz/xirc.rar
1szer majd ha tul sok szabadidom lesz (kb nyugdij korul), csinalok hozza vmi weblap szeruseget...magyarazatokkall...
Udv Gadget.
Így már a könyvben levő progik müxenek. Legalábbis nagyjából.![;]](http://cdn.rios.hu/dl/s/v1.gif)
Nos, a QuickSort-ról van szó pascalban, remélem, vki segít.
Nem C specifikus)
Ugyanis sajna a házimmal komoly gondok vannak. Nem működik a kijelzés, ha bemásolm a forrást esetleg lenne Aki megnézi, hol lehet a baj? Ma mutattam a tanárnak, hogy a számolás mintha jó lenne (kivéve átlag számítás 
),csak a kijelző nem igazán azt csinálja mint kéne. Külön ha csak az a rész megy akkor jó... Mondta keresem meg a hibát, de nem lelem 
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Milyen okostelefont vegyek?
- Gyúrósok ide!
- Robot fűnyírók
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Autós topik
- EAFC 26
- Honor 200 - kétszázért pont jó lenne
- Kormányok / autós szimulátorok topikja
- Okos otthon - gyári appok, ökoszisztémák
- További aktív témák...
- Apple Watch Series 11 46MM Sport Space Grey Színben 2027.12.23-ig Media Markt Garancia
- Asus TUF Gaming A15 (FA506IU) Ryzen 7 4800H / 16GB / 512GB / GTX 1660 Ti / 144Hz Felújítva!
- Asztali PC , i7 9700 , RX 6600 , 16GB DDR4 , 512GB NVME , 500GB HDD
- i7-4790K / GTX 1070 8GB / 16GB RAM / 2x SSD Alkatrészként vagy javításra
- Asztali PC , R5 5500 , 1080 8GB , 16GB RAM , 512GB NVME , 500GB HDD
- Lenovo Thinkstation P320 MT,E3-1220 v6,32GB DDR4,256GB SSD,Quadro P2000 5GB VGA,WIN11
- Dell Optiplex 3050 SFF,i5-6500,8GB DDR4,256GB SSD, WIN11
- AKCIÓ! Apple Macbook Pro 16 M4 Pro 24GB RAM 512GB SSD notebook garanciával hibátlan működéssel
- Lenovo Thinkpad P15 Gen 2 - 23 akkuciklus - 27% ÁFÁS (0358AB)
- 215 - Lenovo LOQ (15IRX9) - Intel Core i7-13650HX, RTX 4060 (ELKELT)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest