Czy liczba rzeczywista czy calkowita? pascal

[Mały22222]

Witam
Dziś na informatyce mialem sprawdzian z pascala. i mialem napisac program ktory poda dana liczbę ze jest calkowita lub rzeczywista i oczywiscie nie zrobiłęm bo nie mam pojecia jak;/ pewnie cos trzeba z mod lub div z tym dzieleniem ale nie mam pojecia jak dokladnie. Bardzo bym prosił o pomoc jak napisac ten program bo kompletnie nie wiem jak to zrobic

bardzo prosze o pomoc
pozdrawiam

[Sh@m@N]

a co z ewentualnym
If x=int(x) then... całkowita?
(elseif rzeczywista)


Autor postu otrzymał pochwałę

[Mały22222]

tak to jest jak najbardziej poprawnie. tylko wlasnie super ze poznalismy takie cos ze mozna przypisać do zmiennej ze jest tylko calkowita... a ja kombinowalem cos z resztami itd...

[Sh@m@N]

Tu też jest kombinowanie z resztami, ale innego rodzaju:
Funkcja int(x) "obcina" resztę z x tak, żeby została liczba z x tylko całkowita. Reszta to prosty warunek - jeśli liczba x jest równa liczbie_całkowitej_z_x - to z założenia jest całkowita.

[Mały22222]

witam
teraz bym prosił o pomoc w innym zadaniu bo nie moge sobie znow poradzic z nim:(
tresc zadania:
[...] stary komin ma 24m i nowy tez bedzie miał 24 m. do rozbiorki i wybudowania nowego zglosil sie 2 firmy:
1 firma- stary komin zburza za darmo, a pierwszy metr komina bedzie kosztował 1 grosz a kazdy nastepny 2x wiecej niz poprzedni ( i z tym mam najwiekszy problem nie mam pojecia jak zrobic zeby mnozył poprzedni iloczyn razy 2)
2 firma wyburzenie komina 15 tys zł pierwsyz metr komina 2000 a kazdy nastepny o 350 drozszy od poprzeniego
ktora firma mniej wezmie pieniedzy. Jak to zrobic w pascalu? bardzo prosze o pomoc i pomysl jak to zrobic.
bede wdzieczny bardzo
pozdrawiam

[Sh@m@N]

1.
x=1 grosz (i tu chyba lekki dumping cenowy...)
rekurencja od 1 do 23:
x=x*2
y=y+x
koniec rekurencji
z=1+y (1 grosz - za pierwszy metr
- gdzie x to cena '1 grosz'
- y - cena końcowa (po kolei - za 1 metr, za 2 itd (gdzie cena kolejnego jest dwukrotnie większa )

2.
x=2000
rekurencja od 1 do 23
x=x+350
y=y+x
koniec rekurencji
v=15000 + 2000 + y

3 porównanie cen z i v...

[Mały22222]

a jak to zrobić na pętli for?

[Sh@m@N]

Kod: Zaznacz wszystko

rekurencja od 1 do 23:
x=x*2
y=y+x
koniec rekurencji

czyli

for x=1 to 23 do
begin...
.
.
end

[Mały22222]

probowalem tak jak napisaleś i niestety nic nie zadziałało.. skompilowalo sie lecz jest czarny ekran i program sie zawiesza..

Dodano 29.11.2009 18:32:41:
ma ktos inny pomysł?

[marcin19]

Kod: Zaznacz wszystko

uses crt;
clrscr;
var
wyburzenie,i,koszt1,koszt2,a1,a2:integer;
begin
koszt2:=0;
koszt1:=0;
for i=1 to 24 do
begin
a1:=a*4;
koszt1:=koszt1+a1;
end;
for i=1 to 24 do
begin
wyburzenie:=16000;
a2:=2000;
for i=1 to 24 do
begin
a2:=a2+400;
koszt2:=koszt2+a2;
end;
if koszt1>koszt2 then writeln("wygra 1 firma") else writeln("wygra firma 2");
end.


1) nie kompilowałem, więc nie daję 100% gwarancji, że program działa.
2) jest kilka błędów, więc wysil się i pomyśl, gdzie.