Losowanie liczb wśród liczb ujemnych.

0

Witam, proszę pomóżcie mi znaleźć błąd w tym krótkim kodzie. Wszystko kompiluje się, chodzi jedynie o to, że w konsoli zamiast liczb ujemnych są liczby z poza zakresu typu 64 tysiące. Reszta się losuje, może screen więcej Wam powie. Z góry dzięki, jak się nauczę lepiej pascala, pomogę tez innym w przyszłości.

2

1.WRZUĆ KOD, a nie jakiś screenshot.
2.Ale najpierw ten kod po ludzku sformatuj.
3.Lecz tak przede wszystkim: wyj... rzuć Turbo Pascala.
4.liczba losowań, a nie ilość.

0
  1. Myślałem, że tak będzie ładniej.
  2. Kod jest napisany zwięźle to jest tylko kilka linijek tj. nie wiem co masz na myśli pisząc 'sformatuj'
  3. Piszę w Turbo Pascalu, bo jako jedyny wypełnia prawie cały ekran na Virtualnym XP-ku.
    4.Szczegół.

a oto KOD:

program nliczblosowych1000;
uses crt;
var
  n,i:integer;
begin
  clrscr;
  randomize;
  writeln('wpisz ilosc losowan n');
  readln(n);
  writeln;
  
  for i:=1 to n do
    begin
    writeln(random(2001)-1000);
    end;

repeat until keypressed;

end.
1

Ad 2 - nie, nie jest napisany zwięźle. A skoro nie wiesz, co to "formatowanie kodu", dlaczego nie poszukasz w Google?
Ad 3 - jedynym powodem, dla którego piszesz w słabym, ponad DWUDZIESTOLETNIM kompilatorze i środowisku jest to, że "jako jedyny wypełnia cały ekran wirtualnej maszyny"? Powtórzę się po raz n-ty, ale: czy leci z nami pilot?
Lazarus z FPC na pokładzie i witamy w XXI wieku.
Albo nawet samo FPC.
Ewentualnie pisz w Notatniku lub nawet kartach perforowanych, ale zapomnij o Turbo Pascalu :P
Ad 4 - nie wiem, co Random zwraca w TP, ale najwyraźniej liczbę bez znaku - spróbuj wynik wywołania funkcji zrzutować na jakiś typ całkowitoliczbowy ze znakiem, a dopiero potem odejmuj.

0

Tak jak pisał poprzednik, olej TP. Masz FPC. Zawsze możesz użyć ConEmu, chociaż ostatnia wersja tak sobie współpracuje z ConEmu. Najlepiej to albo skorzustaj z funkcji RandomRange z modułu Math albo po prostu wylosuj z pośród liczb dodatnich i przemnóż przez -1.

A przez formatowanie rozumie się miedzy innymi stosowanie sensownych wcięć. Nie umiesz tego robić sam to masz przynajmniej 3 rozwiązania. To samodzielny program. Używać Jedi Code Formater. Użyć nieoficjalnej wersji rozszerzonej dodatku GExperts dla Delphi z wbudowanym w niego formatterem. Albo użyć Lazarusa z wnudowanym w niego formatterem Jedi. Więcej info znajdziesz w Google.

Edit: Patryk mnie ubiegł, bo wolniej się klepie na dotykowej klawiaturze, a przynajmniej mi. A ponieważ wątek dotyczy banalnych podstaw, to przenosze do Newbie.

2

Ad.1. Ciekawe na podstawie czego takie myślenie ...
Ad.2. Sformatuj oznacza wstawiania tabulacji (wcięć) nie na chybił-trafił jak u ciebie zaś zgodnie z logiką programu.
Ad.3. Lazarusa też możesz zrobić na cały ekran z tym że Lazarus nie ma 15 łat.
Ad.4.

x:=random(2001);
writeln(x-1000);
0

'Czy leci z nami pilot?' - mam to wpisać w google (taki film był)
http://www.bartoszewski.uniwersytetradom.pl/pp_cw.html
kod wziąłem z tej strony, na pewno jest dobry, mimo to u mnie nie chodzi. Już nie mówiąc o całej reszcie a po świętach mam zaliczenie.

Free Pascal IDE mi nie chodzi na wirtualnej maszynie (mam dwa kursory i w ogóle cały system się crashuje).

Dragon myślę, że mi najbardziej pomogłeś. Dzięki.

1

kod wziąłem z tej strony, na pewno jest dobry, mimo to u mnie nie chodzi.

Może dlatego, że korzystasz z ponad dwudziestoletniego kompilatora?

Free Pascal IDE mi nie chodzi na wirtualnej maszynie (mam dwa kursory i w ogóle cały system się crashuje).

Po co w ogóle uruchamiasz go na wirtualnej maszynie?

  • jaka wersja
  • jaki system
  • jaka VM-ka
  • jak uruchamiasz
    Inaczej niezbyt możemy pomóc :P

Also, Lazarus?

0

Bo nie lubię zaśmiecać kompa(jak każdy chyba). Już wystarczy, że musiałem zainstalować autocada i colerdrawa.

Ok spróbuje Lazarusa, jeżeli niczym się nie różni, a da mi pełną kompatybilność...

0

To jest argument, nie lubię zaśmiecać komputera. Mając samochód też będzie jechał komunikacją miejską ponieważ nie chcesz wytrzeć skóry w swoim samochodzie?
Od tego są CCleaner, Defragment i wiele innych narzędzi, które mają Tobie pomóc, przy jak najmniejszym wysiłku.
Jeśli to Linux to fp jest dostępny. Windows FP, jako prosta aplikacja, którą nawet można zainstalować na pendrivie i o każdej porze i dnia się włączy.

1 użytkowników online, w tym zalogowanych: 0, gości: 1