Tudna valaki küldeni egy olyan progit amibe 10 if van és a kérdések válaszok összefüggjenek?? pl van cipõd? igen! milyen? piros? stb.... de olyan progi is jó ami nem összefüggõ kérdést választ alkot hanem csak 10 if van benne.
ebbe nincs leírva, hogy hogy kell máshova elhelyezni! Más valami megoldás van?
HI! A grafikus módnál if then else-re és amikor az else-t megírtam akkor hibát írt ki neki.Itt a forráskód: program programom; uses crt, graph; var gd,gm:integer; bill:char; a:integer;
begin gd:=detect; initgraph(gd,gm,''); setbkcolor(2); setfillstyle(9,4); settextstyle(7,0,5);setcolor(1); outtextxy(250,20,'¹dv”z”llek a programban!'); outtextxy(250,40,'Kezdhetjk?'); outtextxy(250,70,'Rendben'); setfillstyle(9,4); settextstyle(7,0,5);setcolor(4); outtextxy(230,230,'Folytat shoz entert'); outtextxy(230,250,'Kil‚p‚shez nyomj "V" bett'); bill:=readkey; if bill='v' then exit; if bill='V' then exit;
clrscr; outtextxy(250,20,'Kezdjk els‹nek az ”sszead sokkal'); outtextxy(200,50,'Mennyi 12+5: ');readln(a); if (a=17) then outtextxy(250,60,'@ Helyes! Nagyon gyes vagy @'); else outtextxy(250,60,'Ñ Nem sikerlt sajnos. A megold s 17 Ñ'); ennek írja ki a hibát closegraph; readln; end. mi lehet a gond ?
Örök hála indenkinek, aki egy picit is segített..remélem megkapom a 2-est!! Más nem nagyon érdekel.. az a videós dolog is negyon jól jött!! Köszke!!
http://ebookz.hu Ott a felsõ menünél az "Oktató videók" és aztán a programozásnál kiválasztod a pascal-t. Ezután a Tömbbel kapcsolatos linket kiválasztod és letöltöd a videót.Mondjuk be kell regisztrálni.
MOST AZ OLDAL NEKEM MÛKÖDIK, DE LEHET HOGY NEKED IGEN. HA MEG NEM AKKOR VÁRJ 1-2-3 NAPOT ÉS NÉZD MEG ÚJRA
Ismét segítségre lenne szükségem, bár a múltkorira sem kaptam semmi választ..azé én bízom bennetek... eltudná magyarázni valaki nekem, hogy hogyan lehet n*n-es tömböt létrehozni pascalban.. me c-ben toom..de ebben nem megy.. az a feladat, hogy olvassak be valós számokat egy tömbbe 0-a végjelig... de hogy? ha nem toom mekkora a tömb?! Köszke...
Közben én is rá jöttem! Azért kösz!!!
Szia!
Nézd meg, h az Options/Directory -nál megfelelõek -e a beállítások!! Az szokott a gond lenni, hogy nem éri el a grafikus modult!! Remélem, segítettem..nekem az szokot lenni a gond!!
HI! Lenne egy kis gondom! Rátértem a turbo pascal-ra! Írtam egy egyszerû programot nem grafika módban!Utána meg egy grafikus programot akartam írní, de azt nem futtatja le csak a sima szövegeset! Mi lehet a gond? Kösz elõre is a segítséget!
Hello!!
Lenne még egy kérdésem,ha tudna vki segíteni... az volt az egyik feladatom, hogy kört rajzolja a kép közeépre, és a kör sugarát paraméterként kérjem be.. de hogy? és mi az a paraméter....elõre is köszke...
Sziasztok!!
Egy kis segítségre lenne szükségem! Írtam egy adatbáziskezelõs pas-t, minden mûködik kivéve a törlés és a módosítás, és foglamam sincs, h miért ..Ha lenne vki olyan kedves, hogy megnézné nekem a cuccot és segítene megköszönném...
Amugy nincs valami videós oktató videó? Az ebooks-ot ismerem, de valami más nincs? Kösz elõre is
midnegy! Maradok a DevPascal-nál
Nálam fut. Ebben a doksiban pont le van írva mire kell ügyelni: Turbo Pascal, Borland Pascal: másoljuk be az EGAVGA.BGI állományt a munkakönyvtárunkba - ebben az esetben maradhat az üres karakterlánc -, vagy megadjuk könyvtárat: Például: InitGraph(gd,gm,'c:\tp\bgi');
Hello! Kérnék egy kis helpet! Nincs valakinek oktató valamilye a pascal grafikus módról? Vagy link ahonna letudnám szedni vagy ott a weboldalon. Köszi elõre is a helpet.
Ok köszi szépen a segítséget hálás vagyok!Kössz
Ok köszi megnézem és írok vissza!
Hopp, a makrót elbaxtam. Na mindegy, lényeg, hogy a 'fekete' macsakakörömben legyen.
HI! Valami nem mûködik nekem! PLS!!!!!!! { var s:string;
begin write('Milyen szinu Mátyás serege: ');readln(s); if (s=fekete) then writeln('Helyes') else writeln('Nem jo'); end. } Na szóval. Hibát ír ki az if-es sornál. Tudtommal a string befogadja a karaktereket is, és benne van a betû. Mi lehet a baj? PLS
na megtaláltam.a var elé kell tenni.amugy tesomnak irok progit hogy gyakorolhasson a sulira köszi mégegyszer a segítséget
te és amugy az uses crt-t hova rakjam?;
Oké! Köszi szépen majd megnézem.Hálás vagyok és majd írok hogya ha mûködik vagy nem mûködik!
"Meg a 'clrscr' hova kell rakni hogy mûködjön." Szükséged lesz a crt unitra. uses crt;
Sziasztok! Mi az a parancs ami kinagytja automatikusan az ablakot. Mármint azt az ablakot ami a felhaszáló elindított és az automatikusan kinagytja. Meg a 'clrscr' hova kell rakni hogy mûködjön. Mert akár hova rakom nem mûködik. Írjatok egy példát lécci.
szevasztok! Ha valaki ért a pascalhoz segíthetne nekem. Az lenne a feladat, hogy egy többdimenziós tömbbel(mátrix-al) egy csigavonalat rajzoltassunk ki. tud valaki segíteni? egy algoritmus is elég lenne. a többit én megírom.
Köszönöm mindenkinek, aki segíteni akart, de idõközben megcsináltam. Még 1szer köszi.
ez elég tág fogalom amit itt feladtál. ha vmi egyszerûbb téma akkor segítek. oop-t pascalban nem vállalok.
Inkább a prog.hu-n próbálkozz, mert ezen a fórumon a úgymond programozási részleg nincs...
Szóval. A problémám a következõ. Hétfõre le kell adnom egy pascal nyelven írt programot, de sem idõm, sem ötletem nincsen. Szóval aki ért a pascalhoz, és van fölös kb 1 órája, az írjon már nekem 1 privet. Elõre is köszi. Ja, és nem várom ingyen, majd megegyezünk valamiben.