Kratky programek – Delphi – Fórum – Programujte.com

Zdravim, nevim si rady s timto ukolem Na vstupu je cele cislo C. Uvazujte,ze cislo C muze byt i zaporne.Pokud je cislo C kladne, spoctete, kolik má sudych cifer, v opacnem pripade spoctete,kolik ma lichych cifer.Naprogramoval jsem to zatim takhle ale nefunguje to.Myslim ze to bude chtit neco upravit nebo nejakou malickost pridat.Ale me uz nic nenapada.Tak prosim o radu...diky moc

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var c,pocet:integer ;



begin



  writeln;

  writeln;

  writeln;

  write('C=');

  readln(c);

  writeln;



  if c>0 then begin

    pocet:=0;

    

    while c mod 2=0 do begin



    pocet:=pocet+1;

    c:=c div 10;

    end;



  writeln('pocet sudych je',pocet);



  end

  else begin

    pocet:=0;

    while c mod 3=0 do begin





    pocet:=pocet+1;

    c:=c div 10 ;



    end;



    writeln('pocet lichych je',pocet);

  end;

  writeln;

  writeln('Stisknutim ENTERU program ukoncite');

  readln;



end

prosim poradte kdyztak tady je soubor =>

To NOFEAR7 : NEfunguje to protoze while cyklus sknci pri nalezeni prvniho licheho. Musis to napsat for cyklem.
delka:=length(c);
for i:=1 to delka do
if c[i] mod 2 = 0 then pocet:pocet+1
pro zaporne pridej not.

a neslo nejak pres while nebo repeat???ja to totiz musim vyresit pres while nebo repeat.tady jsem napsal pulku programu(cifry pro suda cisla) funguje jen pro nektere cislice treba kdyz zadam dvojku napise ze cislo ma dve sude cifry coz je spatne.ale treba zadam
ctyrku napise ze ma jednu sudou cifru coz je dobre,, nevite co se musi upravit nebo co chybi??...fakt diky za pomoc

if (c>0)  then begin

    pocet:=0;



    repeat



      inc(pocet);

      c:=c div 2;



    until c mod 2=0;



  writeln('pocet sudych je',pocet);

proc nedas

while ( C > 0 ) do begin
cifra := c mod 10;
C:= C div 10;

....

end;

a pro zaporny udelas to same jen vynasobis C * -1

diky za radu KIIV...ale ten program ted pocita kazdou cifru a nerozlisuje jestli kdyz je cislo kladne tak pocet sudych cifer nebo kdyz je cislo zaporne tak pocet lichych cifer...takze jeste nemam porad vyhrano...program vypada takhle program ...ja potrebuji kdyz zadam priklad kladne cislo 388 aby mi vypsal ze to ma v tomhle pripade dve sude cifry (a ne! 3cifry jak to ted dela).tak nevite nekdo jak to upravit???


Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var c,pocet,cifra:integer ;

begin

writeln;
writeln;
writeln;
write('C=');
readln(c);
writeln;

if c>0 then begin


while (c>0) do begin
inc(pocet);
cifra := c mod 10;
c:= c div 10;

end;


writeln('pocet sudych je',pocet);

end
else begin
c:=c*-1;
while ( c> 0 ) do begin
inc(pocet);
cifra := c mod 10;
c:= c div 10;

end;

writeln('pocet lichych je',pocet);

end;

writeln;
writeln('konec programu');
readln;

end.

sude je If (x mod 2)=0 then zvys
liche je If x mod 2=1 then

prip If odd(x) then je to liche

to byl zpusob jak udelat ten cyklus.. ne reseni celeho programu

no uz jsem to poskladal a funguje to....diky moc KIIV a o-lox :smile18: