zero - liczba ujemna?
222 - 24-12-2006 00:48
zero - liczba ujemna?
Witam
0 zawsze jest uznawane za liczbę ujemną?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
l : integer;
l1 : integer =0;
l2 : integer =0;
begin
writeln('Wprowadz liczby calkowite:');
repeat
readln(l);
if l>0 then l1:=l1+1
else l2:=l2+1
until l=0;
writeln('Liczby dodatnie: ', l1);
writeln('Liczby ujemne: ', l2-1);
readln;
end.
pzdr
Wiktor S. - 24-12-2006 00:48
> 0 zawsze jest uznawane za liczbę ujemną?
niee.. ale sprawdzasz czy l>0. jeśli l jest równe 0 to l nie jest większe od
0.
> if l>0 then l1:=l1+1
popraw na
if l>=0 then l1:=l1+1
a l1:=l1+1 możesz zmienić na inc(l1)
--
Azarien
Geo - 24-12-2006 00:48
Liczba zero nie jest ani dodatnia, ani ujemna - po prostu zle napisales
swoj program.
DarekM - 24-12-2006 00:48
Geo napisał(a):
> Liczba zero nie jest ani dodatnia, ani ujemna - po prostu zle napisales
> swoj program.
>
Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika to z
przyjętej notacji)
Darek
Geo - 24-12-2006 00:48
> Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika to z
> przyjętej notacji)
Tutaj nie chodzi o stan bitu znaku, tylko o logike dzialania programu.
Dalej twierdze, ze program jest napisany zle.
DarekM - 24-12-2006 00:48
Geo napisał(a):
>> Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika to z
>> przyjętej notacji)
>
> Tutaj nie chodzi o stan bitu znaku, tylko o logike dzialania programu.
> Dalej twierdze, ze program jest napisany zle.
>
Oczywiście, program dowodzi "głębokiej" znajomości tematu.
mój post, wykorzystując okazję, miał za zadanie zwrócić uwagę na
notację bo z tym jest wiele problemów. Lepiej sprawdzić to na podobnie
prostym przykładzie czy też tylko dowiedzieć się niż potem znajdować
"błędy w kompilatorze".
Darek
PS. Jak pytacz osiągnie -0 to usunę cudzysłowy z pierwszej linii.
222 - 24-12-2006 00:48
1) A teraz?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
l1, l2, l : integer;
begin
l1:=0;
l2:=0;
writeln('Wprowadz liczby calkowite, 0 konczy program');
repeat
readln(l);
if l>=0 then inc(l1)
else inc(l2)
until l=0;
writeln('Liczby dodatnie: ', l1-1);
writeln('Liczby ujemne: ', l2);
readln;
end.
Geo - 24-12-2006 00:48
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var
l1, l2, l : integer;
begin
l1:=0; l2:=0;
writeln('Wprowadz liczby calkowite, 0 konczy program');
repeat
readln(l);
if l > 0 then inc(l1)
else if l < 0 then inc(l2)
until l=0;
writeln('Liczby dodatnie: ', l1);
writeln('Liczby ujemne: ', l2);
readln;
end.
argothiel - 24-12-2006 00:48
Dnia Mon, 13 Nov 2006 17:40:44 +0100, DarekM napisał:
> Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika to z
> przyjętej notacji)
Dla typu Integer? :)
> Darek
Pozdrawiam, argothiel
DarekM - 24-12-2006 00:48
argothiel napisał(a):
> Dnia Mon, 13 Nov 2006 17:40:44 +0100, DarekM napisał:
>
>> Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika to z
>> przyjętej notacji)
> Dla typu Integer? :)
nie, dla typów określanych przez IEEE
Darek
Łukasz 'Maly' Ostrowski - 24-12-2006 00:48
DarekM wrote:
>>> Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika
>>> to z przyjętej notacji)
>> Dla typu Integer? :)
> nie, dla typów określanych przez IEEE
(sic), Argothiel'owi chodziło o to że OP pisał o integerach
i uwaga o IEEE i -0/+0 go nie obowiązuje ;).
--
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
Andrzej Grażyński - 24-12-2006 00:48
DarekM napisał(a):
> argothiel napisał(a):
>> Dnia Mon, 13 Nov 2006 17:40:44 +0100, DarekM napisał:
>>
>>> Matematycznie masz rację, natomiast IEEE rozróżnia +0 i -0 (wynika to
>>> z przyjętej notacji)
>> Dla typu Integer? :)
> nie, dla typów określanych przez IEEE
>
> Darek
Dla typów ZMIENNOPOZYCYJNYCH definiowanych przez IEEE.
zanotowane.pldoc.pisz.plpdf.pisz.pleffulla.pev.pl
|
Liczba =?ISO-8859-2?Q?odpowiadaj=B1cych_rekord=F3w_z_drugi?==?ISO-8859-2?Q?ej_tabeli?=
[Sybase ASA 7.0.2] linux 2.6 - liczba procesow przy starcie servera?
SQL Express liczba =?ISO-8859-2?Q?u=BFytkownik=F3w=2E?=
[PostgreSQL] Liczba dni roboczych miedzy dwoma datami
MySQL jak zapełnić kolumnę kolejnymi liczbami naturalnymi
liczba odwolan do bazy a strona
Liczba rekordow zlaczenia naturalnego
duża liczba wątków
MSSqlServer - liczba rzeczywista Zero
MySQL liczba uzytkownikow
zanotowane.pldoc.pisz.plpdf.pisz.pltejsza.htw.pl
Cytat
Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona |
|
