Jak w pascalu zrobic cos takiego żeby np. od liczb 1-100 odejmowało 19% a od 101 do 200 - 20% ?

2006-12-13 01:23:54, Kajt3k

2006-12-21 17:08:07,
chodzi ci o takie cos??

var liczba1 : integer;
liczba2 : real;

begin
...
write('podaj liczbe --> ');
readln(liczba);

if liczba1<100 then begin
liczba2 := liczba1-0.19*liczba1 end else
if liczba1>100 and liczba1<200 then begin
liczba2 := liczba1-liczba1*0.20 end
.....
end.

2007-01-01 15:02:06, dprog
zamiast wywolywac liczba-0,19*liczba mozna po prostu zrobic liczba*0,81 a zamiast liczba-0,20*liczba dac liczba*0,8 ;)

2007-01-09 13:09:13, chemik143
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
var liczba1 : integer;
liczba2 : real;

begin
...
write('podaj liczbe --> ');
readln(liczba1);

if liczba1<=100 then begin
liczba2 := liczba1*0.81 end else
if liczba1>100 and liczba1<=200 then begin
liczba2 := liczba1*0.8 end
.....

kilka błędów poprawiłem;)
end.

2007-09-11 22:46:15, binas
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
a jak zrobic zeby liczba2 była liczba1/2?
chodzi mi o to liczba2:=((liczba1)/2); to nie działa?

Udziel odpowiedzi na powyższe pytanie...

::: działy ::::