programowanie w turbo pascal-u

[Gość: Izabella]

witam. mam problem..w szkole programujemy w turbo pascalu.Mam zadanie którego
nie umiem rozwiązać.Czy ktoś mógł by mi napiac kod żródłowy do następującego
zadania: "Napisz program który zapełni tablicę dwudziestoma liczbami losowymi
od 1 do 20 a następnie uporzadkuj je malejąco". Być może jest juz ten program
gdzieś na necie ale google nic mi nie daje.Jeszcze raz prosze o pomoc i z
góry dziekuje. Mój e-mail to: [e-mail]

[tswiercz]

A z czym masz problem, nie znasz składni, funkcji, czy nie masz pomysłu jak to zrobić, czy poprostu Ci się nie chce? Bo jeżeli któreś z pierwszych, to mohę Ci pomóc. Tylko napisz z czym masz konkretnie problem, bo program jest na 10 linijek i naprawdę jest prosty.

[Gość: izabella]

please help mi nie mam pojecia od czego zaczac a na czym skończyć.Nie o to
chodzi ze mi sie nie chce tp to moj dodatkowy przedmiot nie mam o nim zielonego
pojecia a to zadanie musze jutro oddac. Prosze cie bardzo jesli był byś tak
dobry napisz mi ten kod jak to ma wyglądać...Prosze..jestem zdesperowana.

[tswiercz]

Zielonego pojęcia czyli nigdy w życiu nie widziałaś programu w Pascalu?
Przecież napewno miałaś zajęcia z Pascala.
Po pierwsze napisz na kartce co Ty byś zrobiła gdybyś miała takie zadanie do wykonania.
Jak już będziesz miała plan, to pójdzie z górki. A program się pisze 5 minut, więc jeszcze zdąrzysz.

[Gość: Izabella]

Niestety na cwiczenia nie chodziłam wiem tylko jak skompiliwac i uruchomić taki
program.Prawda jest taka ze nie znam zadnych komend.Prosze Cie jesli program
ten jest taki łatwy, napisz mi jego kod.Od tego programu (o ironio) zalezy
moja "kariera". Jeszcze raz PROSZE.

[kell99]

kariera? to znakomita to bedzie kariera skoro takich prostych rzeczy nie
potrafisz zrobic.. jezeli studiujesz informatyke, to radzilbym jak najszybsza
zmiane kierunku... chyba, ze zamierzasz uczyc w szkole (to takie odniesienie do
jednego z wczorajszych watkow;)

[tswiercz]

Coś dla miłośników Icon'a ;-)

procedure main()
tab:=list(25)
every tab[1 to *tab]:=?50
tab:=sort(tab)
every tab[k:=1 to *tab/2]:=:tab[*tab-k+1]
every write(tab[1 to *tab])
end

[user0001]

Phi, też mi problem w pythonie wyglądało by to tak:

import random
tbl = [random.randint(1,20) for i in range(20)]
print "unsorted: ", tbl
tbl.sort(lambda x,y: -cmp(x,y))
print "sorted: ", tbl

Ale to chyba nie pomoże pytającej ;-)

[tswiercz]

Właśnie chodzi, oto, że Icon jest bardzo podobny do Pascala.
Funkcje sortującą już ma. Więc tylko rozsądnie poprzekopiować pare rzeczy i gotowy program ma.

[tswiercz]

Robię wszystko żeby nie uczyć się na egzamin.
A więc i niech w Lispie będzie:

(defun program()
(SETQ LISTA NIL)
(dotimes (i 19)
(SETQ LISTA (APPEND LISTA (LIST (random 50))))
)
(sort LISTA #'>)
)

[user0001]

Ułatwię Tobie zadanie:
www.google.pl/search?&q=qsort.pas&lr=lang_pl
Znajdziesz tam jakiś program do sortowania. Popatrz na metodę wstępnego
wypełniania tablicy. Użyj funkcji Random() (opis w helpie turbo pascala).
Program sortujący znajdziesz też w katalogu z przykładami do TP.

Masz ustawić liczby w kolejności malejącej, typowe procedury sortujące ustawiają
liczby w kolejności rosnącej, popatrz na operatory porównania (<, >, <=, =>) w
tych procedurach, zamień je;
bardziej łopatologiczną metodą jest odwrócenie już posortowanej tablicy:
for i := 1 to ROZM_TABL div 2 do
begin
tmp := tab[i];
tab[i] := tab[ROZM_TABL + 1 - i];
tab[ROZM_TABL + 1 - i] := tmp;
end;

[Gość: kamil]

a nie lepiej je posortwoać bąbelkowo tylko uzyć downto ? Masz tutaj sortowanie
bąbelkowe, tylko musisz zmienić sobie zmienne :) (wszystko w procedurach):

procedure swap(p,q : integer);
var
x : integer;
begin
if p<>q then
begin
x := dane[p];
dane[p] := dane[q];
dane[q] := x;
end;
end;

procedure sort;
var
i, j : integer;
begin
for i := 2 to n do
for j := n downto i do
if dane[j-1] > dane[j] then
swap(j-1,j);

Ale jeżeli nie potrafisz tak prostego zadanai to pewno nawet nie poradzisz sobie
z pisaniem w tablice 20 dowolnych liczb (random). Porada: ZACZNIJ SIĘ UCZYĆ< BO
TO JEDNO Z BANALNIEJSZYCH ZADAŃ W TWOJEJ SZKOLE !!!!

[Gość: Izabella]

OK. Dzieki WIELKIE.To jest dla mnie czarna magia.Obiecuje ze nad tym przysiąde
ale czy mógł by mi ktoś napisać jak to ma w całości wyglądać? Bo naprawde nie
dam sobie z tym rady. Prosze.

[Gość: Izabella]

ludzie pomocy pomocy pomocy jestem na sraju załamania nerwowego:(