Forum Debian Users Gang

k4misiek · 2007-12-01 20:54:20

Hey, tak jak w temacie. Losuje sobię 100 liczb a wyświetlam ich 20, później je sortuję. Problem w tym że nie ma odstępów pomiędzy wylosowanymi liczbami. Kod programu jest na 100% sprawny, sprawdzony w szkole na Borland Pascalu. Na początku myslałem że to wina konsoli KDE, niestety w konsoli linuksowej jest to samo:(

Kod:

uses crt;
var
x,y,p: integer;
t:array[1..20]of integer;
begin
clrscr;
randomize;
for x:=1 to 20 do
begin
t[x]:=random(100);
write(t[x],'');
end;
for y:=1 to 19 do
for x:=1 to 19 do
if t[x]>t[x+1] then
begin
p:=t[x];
t[x]:=t[x+1];
t[x+1]:=p;
end;
writeln('');
for x:=1 to 20 do
writeln(t[x],'');
readkey;
end.

Ostatnio edytowany przez sp3cu (2007-12-01 20:55:57)

mi5tic · 2007-12-01 21:22:28

Kod:

write(t[x],'');

'' to pusty łańcuch.
Dorzuć spację między apostrofy i będzie OK.

pzdr.

Ostatnio edytowany przez mi5tic (2007-12-01 21:23:44)

k4misiek · 2007-12-01 21:35:35

mi5tic napisał(-a):
Kod:
write(t[x],'');
'' to pusty łańcuch.
Dorzuć spację między apostrofy i będzie OK.

pzdr.

Właśnie będąc z psem sobie o tym przypomniałem ze chyba nie dałem spacji :D
Już działa jak należy.
Aby nie było że temat bez sensu bo popełniłem gafe... można się jakoś pozbyć napisu, "Press any key to return to IDE" po wykonaniu programu?

Ostatnio edytowany przez sp3cu (2007-12-01 21:43:06)

mi5tic · 2007-12-01 22:47:51

sp3cu napisał(-a):
można się jakoś pozbyć napisu, "Press any key to return to IDE" po wykonaniu programu?

readkey wywal;

pzdr.

k4misiek · 2007-12-01 23:03:20

mi5tic napisał(-a):
sp3cu napisał(-a):
można się jakoś pozbyć napisu, "Press any key to return to IDE" po wykonaniu programu?
readkey wywal;

pzdr.

Własnie readkey jest po to, aby po wykonaniu programu nie przechodzilo od razu do IDE, naciskam wtedy jakiś klawisz i dopiero się pojawia "Press any key to return to IDE". Gdybym wywalił readkey, to po wykonaniu programu od razu bym miał "Press any key to return to IDE", którego i tak i tak nie chcę =)

mi5tic · 2007-12-01 23:07:24

Kod:

writeln('Aby zakonczyc dzialanie programu nacisnij enter');
readln;

Zamiast readkey'a ... i możesz własny tekst wrzucić..albo całkowicie zrezygnować z tekstu..ale raczej wypadało by usera poinformować, że musi ENTER naciśnąć, żeby zakończyć ;)

//Na zajęciach nie było? :>

pzdr.

k4misiek · 2007-12-02 00:07:10

mi5tic napisał(-a):
Kod:
writeln('Aby zakonczyc dzialanie programu nacisnij enter');
readln;
Zamiast readkey'a ... i możesz własny tekst wrzucić..albo całkowicie zrezygnować z tekstu..ale raczej wypadało by usera poinformować, że musi ENTER naciśnąć, żeby zakończyć ;)

//Na zajęciach nie było? :>

pzdr.

Oczywiscie ze było, tylko ze w linuksie automatycznie generuje mi się ten napis. Nawet w programie BEGIN END. Wynik tego programu to: :(

Kod:

sp3cu@debian:~$ fp
* Free Pascal IDE Version 1.0.8 [2007/01/28]
* Compiler Version 2.0.4
Running "/home/sp3cu/a "
 Press any key to return to IDE

pasqdnik · 2007-12-02 01:37:45

zamiast

Kod:

readkey

wstaw

Kod:

repeat until keypressed

W DOSie działa ;) a fp ... TTTM.

EDIT: Poza tym, gdybym kiedykolwiek na jakichkolwiek zajęciach oddał taki czytelny kod, byłaby tzw. "bania".

Ostatnio edytowany przez pasqdnik (2007-12-02 01:41:57)

LongeR · 2007-12-02 10:55:26

pasqdnik napisał(-a):
EDIT: Poza tym, gdybym kiedykolwiek na jakichkolwiek zajęciach oddał taki czytelny kod, byłaby tzw. "bania".

Nie czemu?? Nas tak uczą w szkole znaczy się gdy programowaliśmy w Pascalu tak nas uczyli oczywiście można by było troszkę czytelniej to napisać ale najważniejsze jest żeby program działał bo każdy ma swój styl pisania:)

k4misiek · 2007-12-02 11:03:44

pasqdnik napisał(-a):
Kod:
repeat until keypressed
W DOSie działa ;) a fp ... TTTM.

EDIT: Poza tym, gdybym kiedykolwiek na jakichkolwiek zajęciach oddał taki czytelny kod, byłaby tzw. "bania".

Zadziałało, wielkie dzięki :))
Co do formatowania kodu.. zazwyczaj ładnie to robię, oddzielając każdą złożoną instrukcję pustym wierszem i odsŧępami. Teraz tego nie robiłem bo chciałem na szybko sprawdzić :P

Ostatnio edytowany przez sp3cu (2007-12-02 11:05:19)

pasqdnik · 2007-12-02 12:41:40

Może miałem poje%^nych nauczycieli ale za to:

Kod:

writeln('');

i za to :

Kod:

writeln(t[x],'');

też są banie ;)

Ventrue · 2007-12-02 13:42:47

pasqdnik: A jak proponujesz inaczej?

pasqdnik · 2007-12-02 23:56:19

Chodzi mi o estetykę kodu. Inaczej, odpowiednio:

Kod:

writeln;
writeln(t[x]);

Forum Debian Users Gang

Ogłoszenie

#1 2007-12-01 20:54:20

k4misiek - Green Reaper

[Pascal] Wylosowane liczby nie mają odstępu

Kod:

#2 2007-12-01 21:22:28

mi5tic - Członek DUG

Re: [Pascal] Wylosowane liczby nie mają odstępu

Kod:

#3 2007-12-01 21:35:35

k4misiek - Green Reaper

Re: [Pascal] Wylosowane liczby nie mają odstępu

mi5tic napisał(-a):

Kod:

#4 2007-12-01 22:47:51

mi5tic - Członek DUG

Re: [Pascal] Wylosowane liczby nie mają odstępu

sp3cu napisał(-a):

#5 2007-12-01 23:03:20

k4misiek - Green Reaper

Re: [Pascal] Wylosowane liczby nie mają odstępu

mi5tic napisał(-a):

sp3cu napisał(-a):

#6 2007-12-01 23:07:24

mi5tic - Członek DUG

Re: [Pascal] Wylosowane liczby nie mają odstępu

Kod:

#7 2007-12-02 00:07:10

k4misiek - Green Reaper

Re: [Pascal] Wylosowane liczby nie mają odstępu

mi5tic napisał(-a):

Kod:

Kod:

#8 2007-12-02 01:37:45

pasqdnik - Pijak ;-P

Re: [Pascal] Wylosowane liczby nie mają odstępu

Kod:

Kod:

#9 2007-12-02 10:55:26

LongeR - Członek DUG

Re: [Pascal] Wylosowane liczby nie mają odstępu

pasqdnik napisał(-a):

#10 2007-12-02 11:03:44

k4misiek - Green Reaper

Re: [Pascal] Wylosowane liczby nie mają odstępu

pasqdnik napisał(-a):

Kod:

#11 2007-12-02 12:41:40

pasqdnik - Pijak ;-P

Re: [Pascal] Wylosowane liczby nie mają odstępu

Kod:

Kod:

#12 2007-12-02 13:42:47

Ventrue - Użytkownik

Re: [Pascal] Wylosowane liczby nie mają odstępu

#13 2007-12-02 23:56:19

pasqdnik - Pijak ;-P

Re: [Pascal] Wylosowane liczby nie mają odstępu

Kod:

Stopka forum