Új hozzászólás Aktív témák
-
hokuszpk
nagyúr
válasz lordjancso #1987 üzenetére
szvsz torold a turbo.pif vagy tp.pif allomanyt.
Első AMD-m - a 65-ös - a seregben volt...
-
lordjancso
senior tag
Xp-vel teljesen jó, úgyhogy most a programozás miatt fentvan az Xp... Na mind1.
Azt mondja meg valaki, hogy miért nem akar exe fájlt csinálni a TP?? Már tiszta ideg vagyok.. Elmentem, lefuttatom a cuccot és csak a pas fájl van, exe nincsen...Rip and cut and mutilate the innocent, his friends, and again and again and on and on.
-
Lortech
addikt
válasz lordjancso #2003 üzenetére
Thank you to god for making me an atheist
-
Castin
csendes tag
Tsé!
Bocs, hogy csak most írok... szal kipróbáltam amit írtál és ez egy azaz 1 db betüre müxik is... de nekem egy változóra kéne, egy for ciklusban, valahogy így:
readln(s);
writeln('A szövegben ',length(s),' karakter van.');
for i := 1 to length(s) do
begin
z := copy(s,i,1);
{Ide kellene valamilyen parancs, hogy át és vissza tudjam alakítani a betüket}
end;
A 'z' lenne az a bizonyos változó ami minden körben más... és így kellene minden körben kidobnia az ASCII kódokat betünként."Arra gondoltam, hogy a Földön túlnyomó többségben vannak a hülyék és az élet egyedüli célja, hogy mi magunk ne váljunk a többség részévé."
-
papg79
tag
Sziasztok!
Nemrég kezdtem el a Turbo Pascal-t, és a következő rövid programban szeretnék segítséget kérni. Írassa ki a keresztnevét a 20. sorba egymás mellé háromszor! Én így próbáltam:
program nevkiir;
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 to 3 do
begin
gotoxy(10,20);
write('Gábor');
end;
readln;
end.Ezzel csak az a gondom, hogy csak egyszer hajlandó kiírni a nevet. Ha nincs benne a gotoxy akkor sima ügy. Előre is kösz a segítséget!
-
N!tRo
tag
Azért nem írta ki háromszor a neved, csak egyszer, mert a cikluson belül volt a gotoxy parancs. Tehát mind a három alkalommal odapozícionáltál és mind a háromszor odaírtad, hogy Gábor. Azaz, olyan mintha fognál egy tollat, felírnád egy papírra hogy Gábor, majd ráírnál ugyanoda megint kétszer. Mit fogsz kapni? Egy darab Gábort a papírra (három rétegben
Én annak örülök, hogy nem azzal jöttél, mint kezdő felhasználó, hogy írjuk meg helyetted, hanem egy általad megírt szemantikai hibás progit állítottál elénk.
Ha van még kérdésed, tedd fel bátran.My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
papg79
tag
Sziasztok!
Nemrég kezdtem a Turbo Pascal-t, de már az elején elakadtam a következő feladattal:
Írassa ki a számokat 1-től 20-ig egymás alá a 40. oszlopba! Én ezt így próbáltam megoldani:program ciklus1;
uses crt;
var
i:integer;
begin
clrscr;
gotoxy(40,1);
for i:=1 to 20 do
writeln(i);
readln;
end.
Ezzel csak az a gond, hogy kiírja a számokat egymás alá szépen 20-ig, viszont nem a 40. oszlopba. Mit rontottam el? Előre is köszi a segítséget!! -
papg79
tag
[I]Sziasztok!
Nemrég kezdtem a Turbo Pascal-t, de már az elején elakadtam a következő feladattal:
Írassa ki a számokat 1-től 20-ig egymás alá a 40. oszlopba! Én ezt így próbáltam megoldani:program ciklus1;
uses crt;
var
i:integer;
begin
clrscr;
gotoxy(40,1);
for i:=1 to 20 do
writeln(i);
readln;
end.
Ezzel csak az a gond, hogy kiírja a számokat egymás alá szépen 20-ig, viszont nem a 40. oszlopba. Mit rontottam el? Előre is köszi a segítséget!![/I]Erre valaki?
-
papg79
tag
Sziasztok!
Már megint gondban vagyok..... A következő feladatot szeretném megoldani:
Írasson ki a képernyőre 20 db '@' karaktert a bal alsó sarokból átlósan felfelé és befelé! Van valakinek valami ötlete? Előre is köszi! -
Sianis
addikt
Az a lényeg, hogy a for ciklusban nemcsak kiíratasz, nem előtte pozícionálsz is.
i,oszlop,sor:integer;
oszlop:=1;
sor:=80;
gotoxy(oszlop,sor); ( talán, nem tudom a bal alsó sarok koordinátáit)
for i:=1 to 20 do
begin
oszlop:=oszlop+1;
sor:=sor-1;
gotoxy(oszlop,sor);
write("@);
end
.
.
.Szóval valami ilyesmi. Régen Pascaloztam, viszont elméletben megoldom neked.
Sianis -
papg79
tag
Köszi! Megpróbáltam, de sajna így egymás alá írja ki őket. Más ötlet?
-
papg79
tag
Na, rájöttem! A dolog így néz ki:
program ciklus;
uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 20 do
begin
gotoxy(80-i,i);
writeln('@');
end;
readln;
end. -
Panther45
csendes tag
Sziasztok! lenne egy nagy kérésem! Csak annyit kellene h T. Pascalba beolvasok egy számot és ki kell iratni betüvel... ezt le tudná vki irni nekem? ha kell adok érte meghivót is vmi oldalra csak segitsetek lécci ! 1000000000000 kösz!!!!!!!!
-
-
Panther45
csendes tag
óh.. és ha töltök fel v 200 gigát vmi oldalra v ilyesmi ,esetleg egy meghivó acc ez jó üzlet lenne , csak ird meg lécci!!!!! bármit megadok érte ezekből !!!!!!!
-
-
Panther45
csendes tag
hmm és mennyi lenne? ^ˇmármint pénzbe ?
-
-
N!tRo
tag
válasz Panther45 #2027 üzenetére
Mi lenne ha inkább nekilátnál magad és megoldanád?
Mióta feltetted a kérdést magad is rég megcsinálhattad volna.
Aztán ha valahol elakadsz a program írása közbe, hát gyere vissza a fórumba és kérj segítséget.My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
Panther45
csendes tag
ezt csak le kellene irnom ennyi a lényeg, de ennyit segithetnél lécci, más nem kérek neked nem nehéz de nekem igen, próbáltam de nem volt jó amit készitettem azért szerettem volna h segit vki...
-
-
N!tRo
tag
válasz Panther45 #2029 üzenetére
Először is próbálj készíteni egy tervet, hogyan is működne ez a valóságban.
Adott egy szám, 16543, írd le, Te hogyan ejted ki, milyen szabályok szerint, majd próbáld leprogramozni.
Amit elkészítettél, közzétehetnéd, hogy megnézzük, mi a hiba benne.My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
Panther45
csendes tag
aha.. épp ez a gond, mert 3. os vagyok és nem ez a pascal az erősségem, egy szokásos progit megtudok irni, csak ezt nem :S
én ugy gondoltam h write-ba beriatni ezt h pl hatezer ötszáz stb... és előtte meg az eredeti számot write-al... de sztem igy nem lenne jó mert próbáltam de nem megy... azért kértem a segitéseteket mert 5öst lehet kapni ha leirom és beadom, nekem a 3as jó lenne mert nem értem ... na m1 ugyse tom megirni..-
-
N!tRo
tag
válasz Panther45 #2031 üzenetére
Akkor most mellőzzük a pascalt.
Vegyük a Te logikádat. Írj egy számot egy papírra, és írd le az elemi lépéseket, amivel szöveggé alakítod az adott számot. Tehát próbáld meg kitalálni, hogy lehetne megoldani. Amint kitaláltad, le lehet programozni. De most egyelőre a megoldási menettel foglalkozz.
Meddig lehet beadni?My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
Panther45
csendes tag
ez szorgalmi dolog azért szeretném beadni...
jó gondolkozok ezen és leriom ha jutottam vmire... hát elvileg a héten lehet beadni ezt ugy mondta ...-
-
Panther45
csendes tag
valahogy igy gondoltam de sztem nem jó igy...
program szám;
uses crt;
var i:=1 to n;
write('927');
delay(50);
NEV:'kilencszáhuszonhét';
clrscr;
end;
end.ez igy nem vmi működő verzió sztem...
most kérnék segitséget akkor tőletek... mit irjak v hogy? nem tom már hogy hogy irjam..:S[ Szerkesztve ]
-
-
Panther45
csendes tag
kösz igy már tuti menni fog h segitettél Nitro..
-
-
Petike168
aktív tag
-
atm*RefeeZ
tag
válasz Panther45 #2035 üzenetére
program szam;
uses crt;
vari i,n;
i:=1;
write('927);valami hasonlót próbálj.a nev:'akarmi'; nem valószínű,hogy működni fog.
a clrscr tényleg a program elejére kellene.
az elején szerintem a var helyett for-t akartál írni for i:=1 to n do begin <utasításblokk (sok pontosvessző végű mizé...)> end; end.valahogy így nézne ki de elég kusza,nem értem teljesen pontosan,hogy mi lenne a programod lényege viszont ha megírod örömmel segít akárki.
javítson ki akárki,ha tévedtem!
-
Panther45
csendes tag
köszönöm a segitséged! ^^ nitro próbáltam de nem megy... vmi linket nem tudnátok h lenne vmi leirás mert a tanárunk nem nagyon magyarázza ezt nekünk csak elmondja h mit kell, utána meg szarakodunk vele aztán segit picit és ugy jön rá nehezen, vki.. jó most persze nekem kellene rájönni h h kell de a semmiből én se tudom... na m1 kösz azért a segitséget meg ha ir erre vki azt is !
-
-
N!tRo
tag
válasz Panther45 #2041 üzenetére
figyu, ha papíron se tudod levezetni a lényegét, akkor egyáltalán hogy akarod leprogramozni?
én most nem baszogatlak, csupán próbálok rávilágítani arra, miként lehet egy problémát megoldani.
és ne sértődj meg, hanem küzdjMy Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
Panther45
csendes tag
igazad van ! azért nem tudom levezetni ezt mert ezt órán beszéltük és nem ez az erősségem ...
vmi linket nem tudsz adni ahonnan lehet tanulni?
mert ami van "programozás alapja " v milyen könyvünk abba csak képletek vannak... szal azzal nem érek sokat!-
-
N!tRo
tag
válasz Panther45 #2043 üzenetére
www.ebookz.hu
itt találsz pár anyagot a programozás elsajátításához.
fogadni mernék, hogy meg se próbáltad még levezetni, hanem csak mondogatod hogy nem megy
fogj már egy papírt kérlek és találd ki hogy ha számítógép lennél, hogy bontanád fel a 3178-at 3000-re 100-ra 70-re meg 8-ra vagy, 3ra, 1re, 7re, 8ra.My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
Panther45
csendes tag
próbáltam am, ezen elgondolkozok ahogy irtad ! kösz a linket jó8 nektek !
-
-
lendern
csendes tag
Hi mindenkinek...Nagyon új vok
Van egy kis problémám...Nem iskolafüggő, csak érdekel a megoldás...
Az lenne a lényege, hogy ha az ember beír egy szöveget, és abban szerepel bárhol egy előre megadott karakter, akkor lépjen a gép tovább.
Előre kösz, ha vki válaszra méltat
... -
lendern
csendes tag
Ahamm...
Tényleg elég kezdő vok ebben a témában, és ebből csak annyit értettem meg, hogy végig kell nézetni a géppel az összes karaktert...Én is vmi ilyesmire gondoltam, csak nem tom, hogy hogy kell leírni...1000thx , ha leírod -
Lortech
addikt
Még mindig 1-től indexeljük pascalban a tömböket.
length [ i ] ? Input [ i ] gondolom.
Végigmész a for cikluson, és minden egyezésnél csinálsz valamit, de elvileg csak az volt a cél, hogy egyet találjon.
program keres;
var
szoveg:string;
i:byte;
beginszoveg:='akarmi ';
readln(szoveg[length(szoveg)]);
while not (szoveg[ i ]=szoveg[(length(szoveg))]) do
inc(i);if i=length(szoveg) then writeln('nem volt benne')
else writeln(benne volt');end.
Bár ezt tan nem kellett volna.
Thank you to god for making me an atheist