Hogy kell ezt megcsinálni Pascalban?
Van egy feladat, amit holnapra kellene megcsinálnom, de most nem vagyok olyan állapotba, hogy meg tudjam csinálni.
Pascalról van szó.
Így néz ki a feladat :
Adott egy természetes szám.Írjunk egy-egy függvényt,amely :
-kiszámítja az adott szám számjegyeinek összegét
-megfordítja az eredeti számot
-meghatározza a szám legnagyobb számjegyét
-meghatározza az osztóit
-törli egy adott sorszámú számjegyét
válasza:Egy 3-assal hozzájárulnák a dologhoz:
Function SzamJegyekOsszege (Szam:longint):longint ;
Var Eredmeny : longint ;
Szamjegy : longint ;
Begin
Eredmeny:=0;
while Szam>0 do begin
Szamjegy:=Szam-(Szam div 10)*10;
Szam:=trunc (Szam/10);
Eredmeny:=Eredmeny+Szamjegy;
end ;
SzamJegyekOsszege:=Eredmeny;
End ;
Function ForditottSzam (Szam:longint):longint ;
Var Eredmeny : longint ;
Szamjegy : longint ;
Begin
Eredmeny:=0;
while Szam>0 do begin
Eredmeny:=Eredmeny*10;
Szamjegy:=Szam-(Szam div 10)*10;
Szam:=trunc (Szam/10);
Eredmeny:=Eredmeny+Szamjegy;
end ;
ForditottSzam:=Eredmeny;
End ;
Function LegnagyobbSzamjegy (Szam:longint):longint ;
Var Eredmeny : longint ;
Szamjegy : longint ;
Begin
Eredmeny:=0;
while Szam>0 do begin
Szamjegy:=Szam-(Szam div 10)*10;
Szam:=trunc (Szam/10);
if Szamjegy>Eredmeny then Eredmeny:=Szamjegy;
end ;
LegnagyobbSzamjegy:=Eredmeny;
End ;
A többihez sok sikert.
Üdv.
válasza:* Ezek helyett : Szam:=trunc (Szam/10);
mindenütt ezeek is jók : Szam:=Szam div 10;
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!