Turbo Pascal
Jelentkezz be a hozzászóláshoz.
#121
És azt hol lehet? :$
Vigyáznom kell magamra, mert bel?lem csak egy van, mások többen vannak, ?ket könnyebb pótolni.
#120
erre egy gépi kódú utasitás van, de már rég foglalkoztam vele, de neten ezt találtam:
Procedure CursorOff; ASSEMBLER;
asm
MOV AH, 03h
MOV BH, 00h
INT 10h
OR CH, 20h
MOV AH, 01h
INT 10h
end; { CursorOff }
Procedure CursorOn; ASSEMBLER;
asm
MOV AH, 03h
MOV BH, 00h
INT 10h
AND CH, 0DFh
MOV AH, 01h
INT 10h
end; { CursorOn }
nem tudom, hogy valóban jó-e.
Procedure CursorOff; ASSEMBLER;
asm
MOV AH, 03h
MOV BH, 00h
INT 10h
OR CH, 20h
MOV AH, 01h
INT 10h
end; { CursorOff }
Procedure CursorOn; ASSEMBLER;
asm
MOV AH, 03h
MOV BH, 00h
INT 10h
AND CH, 0DFh
MOV AH, 01h
INT 10h
end; { CursorOn }
nem tudom, hogy valóban jó-e.
#119
válaszd ki, hogy ne memóriába történjen a forditás.
#118
Hali
Hogy a rákba lehet elmenti a programot amit írtam .exe fájlba?
Hogy a rákba lehet elmenti a programot amit írtam .exe fájlba?
Vigyáznom kell magamra, mert bel?lem csak egy van, mások többen vannak, ?ket könnyebb pótolni.
#117
Tudbo Pascal-ban hogy tudom megadni,h az írt program futása közben ne villogjon a kurzor? (Crt unit-ban)
www.sciennet.com/enyimeee
#116
dev-pascal
football without ultras is nothing
#115
Senki se tudja? :S
#114
Sziasztok!
Kéne egy kis segítség. Xp-re szeretném felpakolni a Borland Pascalt (suliba ez van ezért kell a Borland) de hibás.
Rendesen beírok neki egy egyszerû programot, a compile rendben van, de ha a runra megyek akkor nem csinál az égvilágon semmitsem. Ha a Turbo Pascalt rakom fel, akkor meg megmagyarázhatatlan jelenségek vannak. Egy csomó (máshol mûködõ) programot van, hogy el sem indít és van, hogy a program futtatásánál a felénél gondol egyet és leáll. Mintha õ önkényesen fénysebességgel végigfuttatná a dolgokat. OLyan mintha húszszor gyorsabb lenne az egész mint az alaphelyzetben.
A write('közé'); írt szöveget amit elvileg halványkéken kéne írnia azt simán sárgával írja és a textcolor számát is sárgával írja.
Ilyen problémák remélem nem csak nálam fordulnak elõ :S
Itt mi lehet a probléma szerintetek? Jó lenne ha megoldódna mert kéne tanulnom már meg amúgy is jó móka.
Kéne egy kis segítség. Xp-re szeretném felpakolni a Borland Pascalt (suliba ez van ezért kell a Borland) de hibás.
Rendesen beírok neki egy egyszerû programot, a compile rendben van, de ha a runra megyek akkor nem csinál az égvilágon semmitsem. Ha a Turbo Pascalt rakom fel, akkor meg megmagyarázhatatlan jelenségek vannak. Egy csomó (máshol mûködõ) programot van, hogy el sem indít és van, hogy a program futtatásánál a felénél gondol egyet és leáll. Mintha õ önkényesen fénysebességgel végigfuttatná a dolgokat. OLyan mintha húszszor gyorsabb lenne az egész mint az alaphelyzetben.
A write('közé'); írt szöveget amit elvileg halványkéken kéne írnia azt simán sárgával írja és a textcolor számát is sárgával írja.
Ilyen problémák remélem nem csak nálam fordulnak elõ :S
Itt mi lehet a probléma szerintetek? Jó lenne ha megoldódna mert kéne tanulnom már meg amúgy is jó móka.
#113
bár a dátumokat elnézve talán már megoldottad <#vigyor5>
football without ultras is nothing
#112
használj repülõ ékezeteket
ellenõrizd, hogy utf8as-e.
mondjuk pascalba már nemigazán emlékszem, sry
ellenõrizd, hogy utf8as-e.
mondjuk pascalba már nemigazán emlékszem, sry
football without ultras is nothing
#111
Vagy legalább annyit, hogy a BEGIN - END. között hogy kell meghívni a FUNCTION-t, és mit kell mögé, a zárójelbe írni...
Elõre is kössz!!!
Elõre is kössz!!!
CHELSEA FOOTBALL CLUB
#110
Tudna valaki segíteni??? <#vigyor3><#vigyor3><#vigyor3>
program password;
uses crt;
var
ch:char;
begin
clrscr;
repeat
ch:=readkey;
if ch=#8 then begin
gotoxy(wherex-1,wherey);
write(' ');
gotoxy(wherex-1,wherey);
end
else
if (ch=#13) then gotoxy(wherex,wherey)
else write('*');
until (ch=#13);
readln;
end.
-> Ezt kéne valahogy beletenni "Function"-be...
Az a lényeg, hogy én írok valamit, de a képernyõn csak *-ok látszódnak, míg ENTER-t nem nyomok!
(Az eljárásokat + a függvényeket nem igazán értem...<#szomoru1>)
Elõre is kössz!
program password;
uses crt;
var
ch:char;
begin
clrscr;
repeat
ch:=readkey;
if ch=#8 then begin
gotoxy(wherex-1,wherey);
write(' ');
gotoxy(wherex-1,wherey);
end
else
if (ch=#13) then gotoxy(wherex,wherey)
else write('*');
until (ch=#13);
readln;
end.
-> Ezt kéne valahogy beletenni "Function"-be...
Az a lényeg, hogy én írok valamit, de a képernyõn csak *-ok látszódnak, míg ENTER-t nem nyomok!
(Az eljárásokat + a függvényeket nem igazán értem...<#szomoru1>)
Elõre is kössz!
CHELSEA FOOTBALL CLUB
#109
Nem tudtam, hogy a 7-esbõl készült fordítás.
#108
De nekünk suliban teljesen magyar, valamilyen 7.*...csak nemtom elhozni suliból, mert úgy nem mûködik!
CHELSEA FOOTBALL CLUB
#107
Nincs magyar változat, se help, se semmi más.
#106
Hello!
Honnan lehetne leszedni TP-t magyarul ???
(Legalább magyar HELP/INDEX-xel...)
Honnan lehetne leszedni TP-t magyarul ???
(Legalább magyar HELP/INDEX-xel...)
CHELSEA FOOTBALL CLUB
#105
ezert irok en ekezet nelkul mindig 😛
igy jartal 😊
igy jartal 😊
A szex a leghatékonyabb nyugtatószer a világon.
#104
Kösz, ez igazán sokat segített :/
#103
irogasd at <#idiota>
A szex a leghatékonyabb nyugtatószer a világon.
#102
Hello
Van nekem egy progim ami egy .txt fájlból beolvas egy szöveget, viszont az a bajom hogy az á,õ,û,ó stb betûk helyett jön a ß,×,÷ és egyéb hasonló jelek, és ez a szöveg egyes részeit olvashatatlanná teszi
Állítólag valamit a txt fájllal kéne kezdenem, csak nem tudom hogy mit, szóval ha valaki tudja a megoldást az légyszi segítsen
Van nekem egy progim ami egy .txt fájlból beolvas egy szöveget, viszont az a bajom hogy az á,õ,û,ó stb betûk helyett jön a ß,×,÷ és egyéb hasonló jelek, és ez a szöveg egyes részeit olvashatatlanná teszi
Állítólag valamit a txt fájllal kéne kezdenem, csak nem tudom hogy mit, szóval ha valaki tudja a megoldást az légyszi segítsen
#101
Köszi szépen a segítséged...<#vigyor3><#vigyor3><#vigyor3>
CHELSEA FOOTBALL CLUB
#100
"egy számsorozatban hány különbözõ számjegy van"
1. Bekérjük a számokat.
2. Végigmegyünk a bekért számokon.
3. Átalakítjuk mindet egy sztringgé.
4. Megnézzük hogy a sztringben szerepel-e a 0,1,2,3,4,5,6,7,8,9 karakter. Ha szerepel, növeljük eggyel a számláló értékét.
5. Kiírjuk a számláló értékét.
1. Bekérjük a számokat.
2. Végigmegyünk a bekért számokon.
3. Átalakítjuk mindet egy sztringgé.
4. Megnézzük hogy a sztringben szerepel-e a 0,1,2,3,4,5,6,7,8,9 karakter. Ha szerepel, növeljük eggyel a számláló értékét.
5. Kiírjuk a számláló értékét.
#99
Hello!
Nem tudja valaki ezt megoldani???
Sokat segítene nekem...elõre is kössz(...ha csak megpróbáljátok, azt is...)!!!
------------------
Feladat:
Számoljuk meg, hogy egy számsorozatban hány különbözõ számjegy van.
Nem tudja valaki ezt megoldani???
Sokat segítene nekem...elõre is kössz(...ha csak megpróbáljátok, azt is...)!!!
------------------
Feladat:
Számoljuk meg, hogy egy számsorozatban hány különbözõ számjegy van.
CHELSEA FOOTBALL CLUB
#98
esküszöm egszer megtanulom ezt 😛
köszönöm 😊
köszönöm 😊
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#97
#96
és ha a nyíl billentyûkkel is? fel le balra jobbrA?
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#95
te nagyon pro vagy ebbe 😊
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#94
If (ch="b") And (x>0) Then x:=x-1; {balra}
If (ch="j") And (x<80) Then x:=x+1; {jobbra}
If (ch="j") And (x<80) Then x:=x+1; {jobbra}
#93
Fejbõl:
Program pozika;
Uses crt;
Var ch: Char;
x,y: Byte;
Begin
Clrscr; {Képernyõtörlés}
{Középre pozicionálás 80*25-ös képernyõn}
x:=40;
y:=13;
Repeat
ch:=Readkey; {Billentyûleütés vizsgálata}
If (ch="f") And (y>0) Then y:=y-1; {fel}
If (ch="l") And (y<25) Then y:=y+1; {le}
If (ch="b") And (y>0) Then x:=x-1; {balra}
If (ch="j") And (y<80) Then x:=x+1; {jobbra}
Gotoxy(x,y); {Pozicionálás}
Until ch=#27; {Amíg esc billentyût nem nyomsz}
End.
Program pozika;
Uses crt;
Var ch: Char;
x,y: Byte;
Begin
Clrscr; {Képernyõtörlés}
{Középre pozicionálás 80*25-ös képernyõn}
x:=40;
y:=13;
Repeat
ch:=Readkey; {Billentyûleütés vizsgálata}
If (ch="f") And (y>0) Then y:=y-1; {fel}
If (ch="l") And (y<25) Then y:=y+1; {le}
If (ch="b") And (y>0) Then x:=x-1; {balra}
If (ch="j") And (y<80) Then x:=x+1; {jobbra}
Gotoxy(x,y); {Pozicionálás}
Until ch=#27; {Amíg esc billentyût nem nyomsz}
End.
#92
szevatok kaptunk két feladatot d enem tom h kezdjem :S
elsõ :
írjunk programot, amely a kurzort a képernyõ közepére viszi, majd a kurzort oda vihetjük, ahova akarjuk. j=jobbra, b=balra, F=fel, l=le
elsõ :
írjunk programot, amely a kurzort a képernyõ közepére viszi, majd a kurzort oda vihetjük, ahova akarjuk. j=jobbra, b=balra, F=fel, l=le
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#91
hali!en is nemreg kezdtem a Pascalt tanulni, a feladatom amit nem tok megcsinalni. Kiiratni a Pitagoraszi szamharmasokat 100ig. vkinek vmi otlete esetleg? elore is koszonom a segitseget
#90
A #87-ben jelölt cserével kialakított kód volt az eredeti. Mivel már nem Pascal az elsõdleges nyelv amit használok, így hülye fejjel gondoltam átalakítom - vesztemre. 😉
#89
"C nyelvben a switch-case szerkezet megengedi a sztringet.·"
Ja, csakhogy itt némileg másról van szó, még ha ugyanúgy is hívják. Pascalban a "case" csak rendezhetõ (ordinal) elemekre mûködik, a string viszont nem ilyen. A #81-es kód tökéletesen mûködik, ha a "case jel of" helyére "case char(jel[ 1 ]) of"-ot írsz, mert akkor a string-bõl char lesz, ami már alkalmas ilyen kiértékelése. 😊 (Vszleg a typecast is elhagyható, ebben most nem vagyok biztos.)
Ja, csakhogy itt némileg másról van szó, még ha ugyanúgy is hívják. Pascalban a "case" csak rendezhetõ (ordinal) elemekre mûködik, a string viszont nem ilyen. A #81-es kód tökéletesen mûködik, ha a "case jel of" helyére "case char(jel[ 1 ]) of"-ot írsz, mert akkor a string-bõl char lesz, ami már alkalmas ilyen kiértékelése. 😊 (Vszleg a typecast is elhagyható, ebben most nem vagyok biztos.)
#88
köcce megprobálom
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#87
jel : String;
cseréld le
jel : Integer;
Case jel of
'+' : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
'-' : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
'*' : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
'/' : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
Else
WriteLn ('0-val nem osztunk');
Else
cseréld le
WriteLn ('1. Összeadás');
WriteLn ('2. Kivonás');
WriteLn ('3. Szorzás');
WriteLn ('4. Osztás');
Write ('Kérem válasszon a fentiek közûl: ');
ReadLn (jel);
Case jel of
1 : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
2 : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
3 : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
4 : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
Else
WriteLn ('0-val nem osztunk');
Else
C nyelvben a switch-case szerkezet megengedi a sztringet.
cseréld le
jel : Integer;
Case jel of
'+' : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
'-' : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
'*' : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
'/' : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
Else
WriteLn ('0-val nem osztunk');
Else
cseréld le
WriteLn ('1. Összeadás');
WriteLn ('2. Kivonás');
WriteLn ('3. Szorzás');
WriteLn ('4. Osztás');
Write ('Kérem válasszon a fentiek közûl: ');
ReadLn (jel);
Case jel of
1 : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
2 : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
3 : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
4 : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
Else
WriteLn ('0-val nem osztunk');
Else
C nyelvben a switch-case szerkezet megengedi a sztringet.
#86
köszi h segitesz 😊
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#85
leeht h az én turbo pascalom szar :S
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#84
"és nem értem"
Akkor:
Program calculator;
A program neve
Uses crt;
A crt nevû könyvtár használata, ami a különbözõ szöveges képernyõmûveleteket végzõ parancsokat tartalmazza.
Var a,b,c : Integer;
Az a, b, c változókba egész számokat tárolhatunk (ha valósak kellenek akkor Var a,b,c : Real; parancsra cseréld le).
jel : String;
A mûveleti jelet tartalmazó változó karakterlánc típusú lesz.
Begin
Elkezdjük a programot.
Clrscr;
Letöröljük a képernyõt (ehhez kell a Crt unit)
Write ('Kérek egy számot: '); ReadLn (a);
Kiírjuk hogy Kérek egy számot: , majd bekérjük a számot az a változóba (majd új sorba visszük a kurzort).
Write ('Kérek még egy számot: '); ReadLn (b);
Kiírjuk hogy Kérek még egy számot: , majd bekérjük a másik számot a b változóba (majd új sorba visszük a kurzort).
Write ('Kérem a mûveleti jelet: '); ReadLn (jel);
Kiírjuk hogy Kérem a mûveleti jelet: , majd bekérjük a mûveleti jelet a jel változóba (majd új sorba visszük a kurzort).
Case jel of
Ha a jel változó értéke...
'+' : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
...+, akkor összeadjuk a két számot és az eredményt a c változóban tároljuk, majd kiírjuk.
'-' : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
...-, akkor kivonjuk egymásból a két számot és az eredményt a c változóban tároljuk, majd kiírjuk.
'*' : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
...*, akkor összeszorozzuk a két számot és az eredményt a c változóban tároljuk, majd kiírjuk.
'/' : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
.../, és a b változó értéke nem 0, akkor elosztjuk az a változó értékét a b változó értékével és az eredményt a c változóban tároljuk, majd kiírjuk.
Else
WriteLn ('0-val nem osztunk');
.../, és a b változó értéke 0, akkor kiírjuk hogy 0-val nem osztunk.
Else
Write ('Nem mûveleti jelet adtál meg!');
Ha nem mûveleti jelet adtunk meg akkor kiírjuk, hogy Nem mûveleti jelet adtál meg!
End;
A többágú szelekció vége.
ReadLn;
Várunk egy kis billentyûzetcsapkodásra...
End.
Program vége
Szóval tessék tanulni. A Pascal annyira nem nehéz.
http://www.prog.hu/cikkek/sorozatok/Pascal+iskola.html
Akkor:
Program calculator;
A program neve
Uses crt;
A crt nevû könyvtár használata, ami a különbözõ szöveges képernyõmûveleteket végzõ parancsokat tartalmazza.
Var a,b,c : Integer;
Az a, b, c változókba egész számokat tárolhatunk (ha valósak kellenek akkor Var a,b,c : Real; parancsra cseréld le).
jel : String;
A mûveleti jelet tartalmazó változó karakterlánc típusú lesz.
Begin
Elkezdjük a programot.
Clrscr;
Letöröljük a képernyõt (ehhez kell a Crt unit)
Write ('Kérek egy számot: '); ReadLn (a);
Kiírjuk hogy Kérek egy számot: , majd bekérjük a számot az a változóba (majd új sorba visszük a kurzort).
Write ('Kérek még egy számot: '); ReadLn (b);
Kiírjuk hogy Kérek még egy számot: , majd bekérjük a másik számot a b változóba (majd új sorba visszük a kurzort).
Write ('Kérem a mûveleti jelet: '); ReadLn (jel);
Kiírjuk hogy Kérem a mûveleti jelet: , majd bekérjük a mûveleti jelet a jel változóba (majd új sorba visszük a kurzort).
Case jel of
Ha a jel változó értéke...
'+' : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
...+, akkor összeadjuk a két számot és az eredményt a c változóban tároljuk, majd kiírjuk.
'-' : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
...-, akkor kivonjuk egymásból a két számot és az eredményt a c változóban tároljuk, majd kiírjuk.
'*' : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
...*, akkor összeszorozzuk a két számot és az eredményt a c változóban tároljuk, majd kiírjuk.
'/' : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
.../, és a b változó értéke nem 0, akkor elosztjuk az a változó értékét a b változó értékével és az eredményt a c változóban tároljuk, majd kiírjuk.
Else
WriteLn ('0-val nem osztunk');
.../, és a b változó értéke 0, akkor kiírjuk hogy 0-val nem osztunk.
Else
Write ('Nem mûveleti jelet adtál meg!');
Ha nem mûveleti jelet adtunk meg akkor kiírjuk, hogy Nem mûveleti jelet adtál meg!
End;
A többágú szelekció vége.
ReadLn;
Várunk egy kis billentyûzetcsapkodásra...
End.
Program vége
Szóval tessék tanulni. A Pascal annyira nem nehéz.
http://www.prog.hu/cikkek/sorozatok/Pascal+iskola.html
#83
Case jel of
'+' : begin
ezeknél azt irja hogy : error 113 error in statment
'+' : begin
ezeknél azt irja hogy : error 113 error in statment
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#82
igen 17 vok de még csak most kezdtük tanulni vagy is az a csoport amibe mos tén vagyok és nem értem :S köszi 😊
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#81
Ha ez egy feladat, te pedig 14-18 éves korosztályba tartozol akkor valószínûsítem ezt tanulnod kellett volna. Nemde? Aludni tetszettünk az órán?
Kb. ennyi az egész (ez egy átírt változata egy régi beadandó munkámnak):
Program calculator;
Uses crt;
Var a,b,c : Integer;
jel : String;
Begin
Clrscr;
Write ('Kérek egy számot: '); ReadLn (a);
Write ('Kérek még egy számot: '); ReadLn (b);
Write ('Kérem a mûveleti jelet: '); ReadLn (jel);
Case jel of
'+' : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
'-' : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
'*' : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
'/' : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
Else
WriteLn ('0-val nem osztunk');
Else
Write ('Nem mûveleti jelet adtál meg!');
End;
ReadLn;
End.
Kb. ennyi az egész (ez egy átírt változata egy régi beadandó munkámnak):
Program calculator;
Uses crt;
Var a,b,c : Integer;
jel : String;
Begin
Clrscr;
Write ('Kérek egy számot: '); ReadLn (a);
Write ('Kérek még egy számot: '); ReadLn (b);
Write ('Kérem a mûveleti jelet: '); ReadLn (jel);
Case jel of
'+' : begin
c:=a+b;
WriteLn (a,'+',b,'=',c);
end;
'-' : begin
c:=a-b;
WriteLn (a,'-',b,'=',c);
end;
'*' : begin
c:=a*b;
WriteLn (a,'*',b,'=',c);
end;
'/' : If b<>0 then
begin
c:=a/b;
WriteLn (a,'/',b,'=',c);
end
Else
WriteLn ('0-val nem osztunk');
Else
Write ('Nem mûveleti jelet adtál meg!');
End;
ReadLn;
End.
#80
ehhe 😞 én csak annyit értek pascalhoz h el tom inditani mást nem :S
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#79
Tessék önállónak lenni...
0. Kell 3 valós típusú változó (2 a beadott értékeknek, 1 a kimenetnek) + egy sztring (a mûveleti jelnek).
1. Bekéred az elsõ számot (write+readln)
2. Bekéred a második számot (write+readln)
3. Bekéred a mûveleti jelet (write+readln)
4. Többágú szelekcióval (case) a bekért mûveleti jel függvényében végrehajtod a mûveletet a 3. valós típusú változóba. De megoldhatod normál if+else segítségével is.
5. Kiírod az eredményt (write).
0. Kell 3 valós típusú változó (2 a beadott értékeknek, 1 a kimenetnek) + egy sztring (a mûveleti jelnek).
1. Bekéred az elsõ számot (write+readln)
2. Bekéred a második számot (write+readln)
3. Bekéred a mûveleti jelet (write+readln)
4. Többágú szelekcióval (case) a bekért mûveleti jel függvényében végrehajtod a mûveletet a 3. valós típusú változóba. De megoldhatod normál if+else segítségével is.
5. Kiírod az eredményt (write).
#78
szeva all plz segitsetek 😊
fd : irjunk egy kalkulátor programot kérje be két valós tipusu értéket kérje be a mûveleti jelet végezze el a mûveletet és irja ki az eredményt 😊
fd : irjunk egy kalkulátor programot kérje be két valós tipusu értéket kérje be a mûveleti jelet végezze el a mûveletet és irja ki az eredményt 😊
Eddigi Telóim : ER1018>NO3210>NO6210>SIMC60>SET630>SEK700I>SEW810I>NOKIA N73 Music Edition Carstyling 4verz
#77
Itt a progi!
program armstrongszamok;
uses crt;
var x,y,z,szam : integer;
Begin
clrscr;
For x:= 1 to 9 do
For y:= 0 to 9 do
for z:= 0 to 9 do
begin
szam:= 100*x+10*y+z;
If szam= (x*x*x)+(y*y*y)+(z*z*z) then writeln(x,y,z);
end;
repeat until keypressed;
end.
program armstrongszamok;
uses crt;
var x,y,z,szam : integer;
Begin
clrscr;
For x:= 1 to 9 do
For y:= 0 to 9 do
for z:= 0 to 9 do
begin
szam:= 100*x+10*y+z;
If szam= (x*x*x)+(y*y*y)+(z*z*z) then writeln(x,y,z);
end;
repeat until keypressed;
end.
#76
Köszi,h segíteni próbáltál!
De már meg van majd felteszem ide a programot,ha valakinek esetleg kellene!
De már meg van majd felteszem ide a programot,ha valakinek esetleg kellene!
#75
Egy számról megállapítani, hogy 3-jegyû Armstrong-szám-e, kb. így néz ki (Delphi-ben, de Pascal-ban is nagyon hasonló):
...
be_szam, i, x: integer;
s: string;
...
s:=inttostr(be_szam);
i:=0;
while(length(s)>0) do begin
x:=strtoint(copy(s, length(s), 1));
inc(i, x^3);
s:=copy(s, length(s)-1);
end;
...ha i=be_szam, akkor a be_szam az 3-jegyû Armstrong szám...
...
be_szam, i, x: integer;
s: string;
...
s:=inttostr(be_szam);
i:=0;
while(length(s)>0) do begin
x:=strtoint(copy(s, length(s), 1));
inc(i, x^3);
s:=copy(s, length(s)-1);
end;
...ha i=be_szam, akkor a be_szam az 3-jegyû Armstrong szám...
#74
Hali,sziasztok!
Egy kis segítség kellene!
Kaptam egy feladatot,háromjegyû tizes számrendszerbeli számokat kellene megvizsgálnia a programnak,h melyik armstrong szám és ki kellene iratni õket! Ha valaki tud kérem segítsen nem várom,h az egész progit megírják helyettem csak legalább annyit,h merre induljak el! köszi elõre is
Faustus ha tudsz pls!
Egy kis segítség kellene!
Kaptam egy feladatot,háromjegyû tizes számrendszerbeli számokat kellene megvizsgálnia a programnak,h melyik armstrong szám és ki kellene iratni õket! Ha valaki tud kérem segítsen nem várom,h az egész progit megírják helyettem csak legalább annyit,h merre induljak el! köszi elõre is
Faustus ha tudsz pls!
#73
Pascalba is 2 gombnyomással csinálsz belõle exe-t. Azt próbáld meg futtatni.
#72
elõszöris kicsit összeszedettebben írj, ebbõl nem lehet érteni semmit.
miután megírtad a programot lefordítottad? ha a file pas kiterjesztésû, akkor csak egy szövegfile, futtatható állományúra kell fordítanod egy compiler-rel.
Itt pedig rengeteg setup-készítõ programot találsz, amik még magyarul is tudnak.
miután megírtad a programot lefordítottad? ha a file pas kiterjesztésû, akkor csak egy szövegfile, futtatható állományúra kell fordítanod egy compiler-rel.
Itt pedig rengeteg setup-készítõ programot találsz, amik még magyarul is tudnak.
football without ultras is nothing