271
Turbo Pascal
-
#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!!! -
#110
Tudna valaki segíteni??? 
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...
)
Előre is kössz! -
#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! -
#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...) -
#105
ezert irok en ekezet nelkul mindig :P
igy jartal :) -
internetező #104 Kösz, ez igazán sokat segített :/ -
#103
irogasd at 
-
internetező #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 -
#101
Köszi szépen a segítséged...
-
#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. -
#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. -
#98
esküszöm egszer megtanulom ezt :P
köszönöm :) -
#97
Tessék egy kis irodalom... -
#96
és ha a nyíl billentyűkkel is? fel le balra jobbrA? -
#95
te nagyon pro vagy ebbe :) -
#94
If (ch="b") And (x>0) Then x:=x-1; {balra}
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. -
#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 -
#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.)
-
#88
köcce megprobálom -
#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. -
#86
köszi h segitesz :) -
#85
leeht h az én turbo pascalom szar :S -
#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.
-
#83
Case jel of
'+' : begin
ezeknél azt irja hogy : error 113 error in statment -
#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 :) -
#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. -
#80
ehhe :( én csak annyit értek pascalhoz h el tom inditani mást nem :S -
#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). -
#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 :) -
#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. -
#76
Köszi,h segíteni próbáltál!
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...
-
#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! -
Mirk #73 Pascalba is 2 gombnyomással csinálsz belőle exe-t. Azt próbáld meg futtatni. -
skristof #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.