[Pascal] desatinna_cast - zdrojovy kod

Axwell · Napísal **Axwell**: 03.03.2008 18:42

Cela_cast
Vytvorte program, ktorý po zadaní lubovoného desatinného ísla, vypíše celú cast tohto císla

diky :-)

juho · Napísal **juho**: 03.03.2008 19:05

to si robis srandu? takychto ako ty by mali ......... no ze bit.

Kód:

var cislo:real;
begin
write('zadaj lubovolne cislo: ');readln(cislo);
writeln('zrezanie na jednotky',cislo:0:0);
end.

matwej · Napísal **matwej**: 03.03.2008 19:15

tu chcel asi desatinnu cast, :-)

, nie celu, text ma zle, nazov temy hovori, ze desatinnu

plus ten tvoj program je zly, lebo napriklad 5.8 zaokruhli na 6, ale ma to sekat, cize by malo byt 5, ;-)

matwej · Napísal **matwej**: 03.03.2008 19:46

len nwm na kolko zaokruhlit, rspkt ci zaokruhlit, dal som na styri des. miesta

Kód:

program des_odsek;
var x:real;

begin
writeln('zadaj cislo: ');
readln(x);
x:=frac(x);
writeln(x:0:4);
readln;

end.

Axwell · Napísal autor témy **Axwell**: 03.03.2008 19:59

matwej: diky za kod, text som zle okopiroval, ale program vzdy po zadani cisla vypise nuly takze niekde bude chyba len ani ja neviem kde.

Axwell · Napísal autor témy **Axwell**: 03.03.2008 20:14

aha, moja chyba program funguje dobre :-)

diky

[Pascal] desatinna_cast - zdrojovy kod

Podobné témy