Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

PASCAL- prirodzene cislo a procedura

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: PASCAL- prirodzene cislo a procedura

Autor: pietro62

22:00:35 27.11.2008

Skusim to a velmi pekne ti dakujem za zdrojak. Velmi ti pekne este raz dakujem

Citovat příspěvek

 

Re: PASCAL- prirodzene cislo a procedura

Autor: Honza

11:59:57 26.11.2008

Třeba takto:
program Soucet;

{$APPTYPE CONSOLE}

uses
SysUtils;
var cislo,suma: Integer;
odkud: String;

procedure SoucetCiferL(N: Integer; smer: String);
var i,j: Integer;
pre: String;
begin
suma := 0;
pre := IntToStr(N);
if smer='zleva' then
for i := 1 to Length(pre) do
if 2*(i div 2)<>i then
suma := suma+StrToInt(pre[i]);
if smer='zprava' then
begin
j := 1;
for i := Length(pre) downto 1 do
begin
if 2*(j div 2)<>j then
suma := suma+StrToInt(pre[i]);
j := j+1;
end;
end;
end;

begin
Write('Zadej prirozene cislo N: ');
Read(cislo);
ReadLn;
Write('Zadej smer: ');
Read(odkud);
ReadLn;
SoucetCiferL(cislo,odkud);
WriteLn;
WriteLn('Soucet cislic na lichych pozicich pocitano ',odkud,' je ', suma);
ReadLn;
end.

Citovat příspěvek

 

Re: PASCAL- prirodzene cislo a procedura

Autor: Luinar

12:33:45 25.11.2008

Napoveda:
1234 = 1 * 10^3 + 2 * 10^2 + 3 * 10^1 + 4 * 10^0
Pouziji se zbytky po deleni a celociselne deleni 10. Vic asi netreba dodavat. Domaci ukoly tu asi nikdo resit za tebe nebude, obzvlaste kdyz nevyvines zadnou snahu.
Luinar

Citovat příspěvek

 

PASCAL- prirodzene cislo a procedura

Autor: pietro62

23:09:53 24.11.2008

Zostavte program, ktoreho vstupom je prirodzene cislo N a procedura, ktora pre zadane cislo zisti sucet cifier na neparnych poziciach pocitanych sprava alebo zlava. Smer prechodu cislom je urceny ako z jej parametrov.

Prosim Vas pomozte mi

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: