- Aliexpress tapasztalatok
- Hálózati / IP kamera
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- ASUS routerek
- Rendszergazda topic
- Crypto Trade
- Facebook profil letiltás kapcsolt ismeretlen Instagram fiók miatt
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 10
Új hozzászólás Aktív témák
-
Wizardmon
csendes tag
Heló mindenki. Új vagyok itt.
Nemrég elkezdtem TP-al programozni. Az elején még minden simán ment, de eljutottam az öszetett adattípusokig és onnan már homály minden (beleértve azt is). Valaki nem tudna olyan internetes oldalt mondani, ahol értelmesen elmagyarázzák, hogy mi miért? Nagyon megköszönném.
Amugy az előző részek iggen jól mennek, talán a ciklusokkal vannak még olyan gondjaim, hogy nem tudom mire valók
[Szerkesztve] -
Wizardmon
csendes tag
Köszi mindenkinek
Én pl innen tanulgattam eddig ezt a nyelvet:[link] De egyre inkább kezd értelmetlen lenni.
N!tro-nak külön köszönet a ciklusismertetőhöz
Ja és feltétlenül megnézem azt a könyvet v.mikor.
Végül untatásképpen elmondom, hogy csináltam tök jó progikat és örült a fejem neki.Ilyen pl a másodfokú egyenlet megoldó, meg a determinánsos. Lehet hogy egyszerű progik de nagy volt a sikerélményem.
Na jó, mégvalami és befejezem: Megpróbáltam grafikus üzemmódba tenni a TP-t de nem sikerült. Nemtom mit kell írni az: InitGraph után a zárójelbe. Az első kettő váltoó még úgyahogy rendben van, de a 3.-hoz a vid.kártyára hivatkozik, vagy mi és.... á inkább hagyom, ennyire nem kénék előreugrani ha még az összetett adattípusokat se értem.
Amugy N!tro kérdésére válaszolva a tömb, halmaz, felhasználói és rekord típus érdekelne. Mindegyik homály. Addig még oké hogy felírom őket, de hogy MI ÉRTELME meg lehet-e hivatkozni az összesre. Pl.: ha egy sorral lejjebb akarnám tenni az összeset,akkor külön fel kell írnom az összes változót a gotoxy után? meg plcsak ciklusokkal lehet kiíratni őket?
Most már tényleg befejeztem! -
-
Wizardmon
csendes tag
Na én most csináltam egy ilyet:
...
begin
clrscr;
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
x[i, j]:=( j );
write(x[i, j ] );
end;
end;
readln;
end.
És ezt írja ki:
123
123
123
És az most jó
Ha pl a X[i, j ]:=( j ) sorba a ( j )-t ( i )-re cserélem akkor meg ezt írja:
111
222
333
és ez is tök jó
Már csak meg kellem értelmezni
[Szerkesztve] -
Wizardmon
csendes tag
Asszem kezdem érteni (a kezdem-en van a hangsúly
)
Ha ''j'' van a zárójelben, akkor ugyebár végrehajtja az i1-en a j összes elemét aztán az i2-n és az i3-on is ugyanígy, és a ''j'' beljebb van mint az ''i'' így az ''i'' csak akkor vált amikor a ''j'' már végigfutott. Lehet hogy homályosan fogalmaztam, de nálam ez jobban össze van állva
[Szerkesztve] -
Wizardmon
csendes tag
Tudom hogy rám céloztál, semmi baj
Én nem mondtam, hogy programozni egyszerű, de olyan ember vagyok, aki mindent egyszerre akar, meg minél előbb. A szakkönyvek / tankönyvek meg már folyamatban vannak, addig meg gondoltam elnézek ide és felvilágosítást kérek az eddig olvasottakról
-
Wizardmon
csendes tag
Változtattam avatart
Talán ilyen még nincs senkinek
[Szerkesztve] -
Wizardmon
csendes tag
Heló mindenkinek
Vettem pascalos könyvet, amiből megtanulhatom a nyelvet, de nekem olyan összevisszának tűnik, hogy már szinte értelmetlen. Így elkezdtem valami rendszert csinálni a könyvből, ami abból áll, hogy kijegyzetelem sorba a dolgokat és talán így könnyebb lesz megérteni. Amugy a könyv címe: Programozzunk turbo pascal nyelven. Én úgy vettem észre, hogy úgy akarja megértetni a dolgokat, hogy először elmondja nagy nalakban, amikor még fogalmad sincs az egészről, aztán kicsit részletesebben kifejti, aztán pár fejezettel később meg még rak hozzá dolgokat, amiket már előtte jobb lett volna tudni. De nem csak ezt a hibát láttam benne. Van mellette még helyesírási hiba, ami engem furcsamód zavar, ha tanulni akarok valamit, meg olyan példákat használ, ami már maga előre utal pár fejezettel, szóval olyan sorok is vannak benne, amiről még nem is hallottam... De nem akarom lehúzni a könyvet, lehet hogy csak nekem magas. Ez szerény véleményem róla.
Amugy ha szabad hozzászólnom, akkor én inkább úgy csinálnám, hogy elmondok egy kis részt az elméletből, aztán példával szemléltetem, aztán elmagyarázom a példát, hogy mi mire való, aztán megyek tovább. De lehet hogy így hosszú lenne a könyv. -
Wizardmon
csendes tag
Na jó, most már tényleg ki vagyok akadva. Annyira fel tud idegesíteni, hogy nem tudom megérteni a dolgokat... Pedig próbálom. Most pl megnéztem ezt a type dolgot. Hát szerintem fél oldalból nem lehet megtanítani egy kezdő programozónak hogy mire való. Vagy csak én vagyok ennyire hülye a dologhoz? Meg miért nem tud egy épkézláb példát felmutatni. Fa**nak kell lerövidíteni a dolgokat. Miért írja ki csak a deklarációs részt, ha azt se tudom, hogyan kell használni a programban, hogy felfoja, hogy mit akarok tőle.
Ekkora pénzkidobást....
Én vagyok a hülye hogy megvettem ezt a könyvet látatlanba. Mentségemre szóljon, hogy ha láttam volna se tudtam volna megítélni normálisan egy 600 oldalas könyv tartalmát. Ahhoz jobban bele kell olvasni. Na mindegy, nem untatlak titeket ilyesmikkel... -
Wizardmon
csendes tag
Naszóval. Én most csináltam egy rekordos és egy rekord nélküli adatolást, ahol mind a 2 program ugyan azt tudja. A külömbség az, hogy a rekord nélküli rövidebb. Most akkor én nem használtam ki eléggé a rekord képességeit vagy csak erre való?
Itt a két program:
Rekordos:
program m;
uses crt;
var adat : record
nev : string;
cim : string;
kor : byte;
x : byte;
begin
clrscr;
x:=0;
repeat
x:=x+1;
write('Név: '); readln(adat.nev);
write(Cím: '); readln(adat.cim);
write(Kor: '); readln(adat.kor);
writeln;
until x=5;
end.
Rekord nélkül:
program m;
uses crt;
var nev,cim:string;
kor,x:byte;
gegin
clrscr;
x:=0;
repeat
x:=x+1;
write('Név: '); readln(nev);
write(Cím: '); readln(cim);
write(Kor: '); readln(kor);
writeln;
until x=5;
end.
[Szerkesztve] -
Wizardmon
csendes tag
Oké, igazatok van, hibás a program. Köszönöm mindenkinek hogy rávilágított a dologra
Átolvasom még egy párszor ezt a rész, aztán majd még jövök jelenteni
Hála nektek már valami rémlik
-
Wizardmon
csendes tag
Elkezdtem előről olvasni a könyvet. Első ismereetlen dolog a vezérlőkarakter. Mint pl.: #13
Mit takar az, hogy vezérlőkarakter??? Mire való?
Tett ide valami példát, de nem tudom értelmezni. Így néz ki:
#7 csengő, #10 soremelés, #13 kocsivissza
' turbo Pascal '
' feladatok '
' ' ' '
' ; '
' '
#13 #10
' első sor ' #13 #10 ' második sor '
#7 #7 'csenget ' #7 #7
Ezek be vannak építve a turbo pascalba vagy csak találomra írt valamit a példában? Mint pl. hogy a #7 az a csengő. Az akkor csengeni fog, vagy kiírja hogy csengő, vagy mi? -
Wizardmon
csendes tag
Megint itt vagyok és újabb kérdések merültek fel.
Előszöris beletörődtem a rekord típusba, de utána jött a variálható rekord. Azt szeretném tudni, hogy mi annak a lényege. Sajnos nem látom át annyira, hogy pontosabban tudjam kérdezni.
Aztán a típus használata tömbök esetén. Ott van olyan hogy:
type
vektor = array [1..100] of real;
var
x : vektor;
Akkor itt most milyen értékeket vehet fel az ''x'' változó?
Előre is köszi a felvilágosítást. -
Wizardmon
csendes tag
Megint megakadtam. Kaptam egy olyan feladatot,a miben öröknaptárt kell csinálni. Mivel nem sikerült összehozni, megnéztem a megoldást, de az is magas
Valaki el tudná magyarázni, hogy mi mire való benne? Így néz ki:
program oroknaptar;
var
ev,ho,nap : integer;
x,jelzoszam : integer;
nap_rendben,szokoev : boolean;
szokonap : integer;
const
napok : array [0..6] of string[10] = ('vasárnap','hétfő','kedd','szerda','csütörtök','péntek','szombat');
begin
writeln('Írjon be egy dátumot, megmondom milyen napra esik!');
ev := -1 na ez az első amit nem értek, miért -1re állítják?
while (ev<1) or (ev>99) do;
begin
write('ev [1901-1999] : 19');
readln(ev);
end;
szokoev := (ev mod 4 = 0) and (ev mod 100<>0) or (ev mod 400 =0);itt minek kell ennyi felhajtás ha az 'ev' csak 1 és 99 között lehet?
szokonap := ord(szokoev);
repeat
write('hónap: ');
readln(ho);
until (ho>= 1) and (ho<=12);
repeat
nap_rendben := true;
write('nap: ');
readln(nap);
if (nap<1) or (nap>31) then nap_rendben := false;
if (((ho=4) or (ho=6) or (ho=9) or (ho=11)) and (nap=31) or ((ho=2) and (nap>28+szokonap)) then
begin
writeln('Ebben a hónapban nincs ilyen nap.');
nap_rendben := false;
end;
until nap_rendben;
case ho of
1,10 : jelzoszam :=0;
5 : jelzoszam :=1;
8 : jelzoszam :=2;
2,3,11 : jelzoszam :=3;
6 : jelzoszam :=4;
9,12 : jelzoszam :=5;
4,7 : jelzoszam :=6;
end;
x := ev + ev div 4 + jelzoszam + nap;
if ((ho=1) or (ho=2)) and szokoev then x := x-1;
x := x mod 7;
writeln('Az adott nap: ',napok[x]);
end.
Meg ha van elég időtök,akkor az egészet is elmondhatjátok. Már majdnem egy hete töröm rajt a fejem -
Wizardmon
csendes tag
Huh, köszi, most megnyugodtam. Azt hittem csak én találom hülyén megoldottnak ezt a progit
Végülis a könyvhöz kapott cd-n volt rajt ez a megoldás.
Akkor még gondolkodok valami egyszerűbb megoldáson, ahelyett hogy ezt próbálom megérteni
Amugy nincs valami emberibb megoldás amivel ilyen progikat be lehet ide másolni, mert ezt úgy írtam ide -
Wizardmon
csendes tag
Megnéztem
1582 febr. 24
-
Wizardmon
csendes tag
Hát engem tök kikészít ez a naptáras dolog. Még mindig nem sikerült megoldani, pedig már csak napok választanak el a helyes megoldástól. Azt utálom amikor végteleníti magát a dolog aztán csak úgy tudok kilépni hogy veszik minden...hjajh....
-
Wizardmon
csendes tag
Azért kell ciklust használni hogy ki legyen küszöbölve az olyan eset, mint pl. ha valaki nem 1 és 12 közötti hónapot ad meg. Meg a számoláshoz is szükséges. Pl. én nagyon megdolgoztatom az amúgyse jól működő progit, mert 1584-től minden évszámot ellenőriztetek vele, hogy szökőév-e, meg úgy adok hozzá mindig 365-öt. Valami ilyesmi. Bocsi, de nemtom megfogalmazni jobban.
-
Wizardmon
csendes tag
Megint itt vagyok.
Mi az az assembly nyelv? Ismernem kéne? -
Wizardmon
csendes tag
heló ismét.
Bocs hogy ide írom de úgynézem a delphi fórumok halottak. Nem tudjátok mekkora a delphi 7 ??? Mármint méretre Mb-ban. -
Wizardmon
csendes tag
próba
Új hozzászólás Aktív témák
- Futás, futópályák
- Politika
- Pécs és környéke adok-veszek-beszélgetek
- Nokia XR20 - 220 fölött elhagyod a valóságot
- Honor 200 Pro - mobilportré
- Kertészet, mezőgazdaság topik
- Milyen légkondit a lakásba?
- MediaTek lapkával érkezhet a következő Samsung csúcstablet
- Aliexpress tapasztalatok
- Hisense LCD és LED TV-k
- További aktív témák...
- Samsung Galaxy S23 128gb - Makulátlan, akár beszámítással
- AKCIÓZVA! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/1TB FHD HUN
- AKCIÓZVA! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/512 FHD HUN
- Bontatlan Új BOSE QuietComfort Ultra Headphones, bézs-aranyLimitált kiadás
- ASUS TUF Gaming FX505DU Ryzen 7 3750H GTX 1660 Ti 6GB 16GB DDR4 512GB SSD + 1TB HDD 120Hz Full HD