Matematické Fórum

↑ myrek:

Nenačítej číslo, ale načti pole znaků. Ověř si jestli se jedná o číslo a pak ho vypiš bez prvního znaku

Ahoj, pokud to načteš jako string:

var text:string;
      i:byte;
readln(text);
{ string je pole znaků s indexy číslovanými od jedné, já potřebuji vypsat všechny znaky s indexy od dvou:}
for i:= 2 to length(text) do
   write(text[i])

Pokud to načteš jako číslo, pak jsi schopen pomocí desítkového logaritmu zjistit počet cifer zadaného čísla:
   pocet_cifer = dolni_cela_cast(log10(zadane_cislo)+1)
V pascalu existuje funkce pow(základ, exponent), pomocí které vytvořím číslo 10^(pocet_cifer-1).
Výsledek získám jako zbytek po dělení zadaného čísla tímto číslem 10^(pocet_cifer-1).

Tento postup funguje pro čísla větší nebo rovna deseti.

↑ vojta01: Ještě to chce ošetřit odebrání případných 0. Třeba pro číslo 10002 by ti tvůj program vypsal 0002.

Jinak myslím, že rozumnější to bude s využitím stringu.

↑ vojta01:
hele a to i:byte mám umístit v programu před nebo za begin ?

hele a jak ted z tý řady čísel vyberu například jen 2 druhý číslo ?

↑ vojta01:to sem zkoušel a nějak mi to právě nešlo

v pascalu mám sečíst sudý cifry
tak sem napsal tohle
program soucetsudych;
var d:string;z,w,y:char;
    i:byte;q:integer;
begin
readln(d);
for i:=1 to length(d) do y:=d[2];z:=d[4];w:=[6];
q:=(y+z)+w;
write(q);
end.

ale furt mi to hlásí dvě chyby

↑ Mr.Pinker:
by mě zajímalo jak chceš sčítat nějaký 2 znaky, nevím jestli to v pascalu jde, ale třeba v javě to určo nejde + jak římal ↑ septolet: tam máš napevno danné indexi takže buď tam musíš mít to i místo těch pevných a nebo tam máš naprd ten cyklus

já bych to přepsal trošku jinak... for i:=1 to length(d)/2 do y:=[2*i];

a tak by jsi měl v y postupně uloženy všechny sudé číslice...jak dále snimi pracovat už nevím a ani nevím jak převést v pascalu cahr na integer a jestli je to vůbec potřeba....jo a to kouzlení s tím length(d)/2 je proto, že ty chceš všechny čísla sudá, proto si délku vydělám 2mi a jelikoř se mi i pokžadé zvedne o 1 tak mi to nepřesáhne délku když ho poté násobím dvěmi(neumím vysvětlovat to se omlouvám, ale snad jsi to pochopil)

nakonec sem to dokopal k tomuhle

program soucetcifer;
const m=ln(10);
var c,x,a,q:integer;w,y:real;
begin
readln(c);
y:=ln(c);
w:=y/m;
x:=Trunc(w)+1;
a:=x mod 2;
if a=1 then while c>0 do
begin
c:=c div 10;
q:=q + c mod 10;
c:=c div 10;
end
else
while c>0 do
begin q:=q + c mod 10;
      c:=c div 100;
end;
writeln(q);
end.