Ciferný součet – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Ciferný součet – Delphi – Fórum – Programujte.comCiferný součet – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
NOFEAR70
Newbie
13. 6. 2009   #1
-
0
-

Dobry den potřeboval bych prosim poradit mám tento úkol Na vstupu je celé nezáporné číslo N spočtěte jeho ciferný součet...mně to počítá ciferný součet pouze od 0 do 99...prosim poradte.diky moc za odpovedi
program Project2;

{$APPTYPE CONSOLE}


uses
SysUtils;

var n,p,l,I,soucet,cislo,x:integer ;

begin
writeln(' ciferny soucet');
writeln;
writeln;
writeln;
write('N=');
readln(n);
writeln;

soucet:=0;
x:=10;
I:=0;
cislo:=10;

if n>I then begin

p:=n mod 10;

while p>=cislo do begin
l:=n div 10;
cislo:=cislo+1;
end;
end;
soucet:=l+p;

writeln('ciferny soucet je ',soucet);

writeln;
writeln;
writeln('Stisknutim ENTERU program ukoncite');
readln;

end.

Nahlásit jako SPAM
IP: 89.24.152.–
Reklama
Reklama
NOFEAR70
Newbie
13. 6. 2009   #2
-
0
-

omlouvam se podivejte se az na tento zdrojový kod tento funguje(ten predchozi ne)

program Project2;


{$APPTYPE CONSOLE}

uses
SysUtils;

var n,p,l,I,soucet,cislo,x:integer ;

begin
writeln(' ******Cykly 09(secte cisla vetsi nez A a mensi nez B)******');
writeln;
writeln;
writeln;
write('N=');
readln(n);
writeln;

soucet:=0;
x:=10;
I:=0;
cislo:=10;

if n>I then begin



p:=n mod 10;

while x>=cislo do begin
l:=n div 10;
cislo:=cislo+1;
end;
end;
soucet:=l+p;

writeln('ciferny soucet je ',soucet);

writeln;
writeln;
writeln('Stisknutim ENTERU program ukoncite');
readln;

end.

Nahlásit jako SPAM
IP: 89.24.152.–
KIIV+42
God of flame
13. 6. 2009   #3
-
0
-

To NOFEAR7 : no pokud vidim dobre tak secte jen posledni dve cislice ...
spis bych to byt tebou resil necim jako


soucet := 0;

if cislo > 0 then begin
while ( cislo > 0 ) do begin
soucet := soucet + (cislo mod 10);
cislo := cislo div 10;
end;
end;

Nahlásit jako SPAM
IP: 77.237.136.–
Program vždy dělá to co naprogramujete, ne to co chcete...
NOFEAR70
Newbie
13. 6. 2009   #4
-
0
-

To KIIV : Díky moc :smile1:

Nahlásit jako SPAM
IP: 89.24.152.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 18 hostů

Podobná vlákna

Ciferný součet — založil Martin

Absolutní ciferný součet mocnin — založil Garret Raziel

2.lekce-součet — založil j1rka

Soucet rady — založil AvsFan

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý