Pascal výpis poslednej číslice v celom čísle!

Fata! ChaoS

Ahojte, úloha je nasledovná

Vyíšte poslednú číslicu z celého čísla zadaného z klávesnice

Napísal som takéto dačo, ale furt mu niečo nesedí, už som sa pohral aj s typmi, nuž neviem, čo je natom, zle alebo jak by sa mala riešiť táto úloha. Pls čo najrýchlejšie, bo to potrebuje na zajtra.

Kód: Vybrať všetko

program Cislica_nazov;
uses crt;

var
   cislo, cislica, desCislo: real;

begin

     writeln('Zadaj nejake viac ciferne cele cislo.');
     readln(cislo);

     desCislo := cislo/10;
     cislica := Frac(desCislo);

     writeln('Posledna cislica cisla ', cislo:5:0, ' je ', cislica:1:0);
     readln;
end.

piton

Kód: Vybrať všetko

program Cislica_nazov;
uses crt;

var
   cislo, cislica, desCislo: int; {preco real ked to ma byt celociselne?}

begin

     writeln('Zadaj nejake viac ciferne cele cislo.');
     readln(cislo);

     cislica:=cislo mod 10; {urcite to ma byt cez mod...}

     writeln('Posledna cislica cisla ', cislo:5:0, ' je ', cislica);
     readln;
end.

Myslim, ze by to malo fungovat, nemam nainstalovany kompilator, skus to

[/code]

Fata! ChaoS

Jaj no jasne, díkes, len si to pletiem s C++ a som si myslel, že to len v C++ je mod a div, no tak díkes.

P.S. Preto som dal real, lebo integer je podmnožinou integer, tak to je jedno a je menšia pravdepodobnosť na chybu.
Okrem toho, že namiesto integer tam máš int, máš navyše premennú desCislo a vo výpise máš použité cislo:5:0, kde je coslo celočíselná premenná a nie desatinná, ale ináč dobre a pomohlo mi to takže k+

piton

Fata! ChaoS napísal:Jaj no jasne, díkes, len si to pletiem s C++ a som si myslel, že to len v C++ je mod a div, no tak díkes.

P.S. Preto som dal real, lebo integer je podmnožinou integer, tak to je jedno a je menšia pravdepodobnosť na chybu.
Okrem toho, že namiesto integer tam máš int, máš navyše premennú desCislo a vo výpise máš použité cislo:5:0, kde je coslo celočíselná premenná a nie desatinná, ale ináč dobre a pomohlo mi to takže k+

jasne... ja som iba ten tvoj upravil

a ten int som si pomylil z C...
EDI: jeeej 1000. prispevok, moj zivotny ciel sa splnil

Pascal výpis poslednej číslice v celom čísle!

Pascal výpis poslednej číslice v celom čísle!

Re: Pascal výpis poslednej číslice v celom čísle!