Praca domowa z programowania.

[Gość: Majka]

Błagam. Niech ktoś mi pomoże. mam pracę domową z programowania a że w
kwestii informatyki jestem przysłowiowa blondynką to nie mogę z żadnej
strony tego ruszyć. Na jutro muszę zrobić dwa zadania w DELPHI lub tylko w
PASCALU. Proszę pomóżcie.
Zadania są następujące
1) dany jest ciąg liczb o długości nង. Ułożyć algorytm, który uporządkuje
oraz wypisze uporządkowane elementy tego ciągu metodą abelkową. ( w DELPHI)

2) Opracować program, który umożliwi nam wprowadzenie informacji o 20
studentach. Record ma zawierać: nr indeksu, nazwisko, imię, płeć, rok
studiów, uczelnię, wydział, kierunek studiów, status otrzymania stypendium
(tak lub nie) wysokość stypendium. (DELPHI)
Mój adres email to [e-mail]

[Gość: hymmm]

Ciekawe gdzie macie takie zadania domowe ??
Jezeli jesteś na studiach to chyba na informatyce, ale jeżeli te umiesz tego
nawet ruszyć to po co szłas na informe ?? A jeżeli jestes w średniej szkółce to
gratulacje dla profesora !!

Potrzebny ci jeszcze ten program ???

[Gość: Majka]

Oczywiście że potrzebny. Uczę się w Liceum Ogólnokształcącym i mam ambitnego
nauczyciela od informatyki.
W mojej klasie sa tacy którzy to rozwalają bez problemu. Niestety ja do nich
nie należę.
Proszę o pomoc.

[Gość: hymmm]

Sprawdź poczte... :)

[Gość: Beny]

Rozumiem, ze nie umiesz napisac banalnego programiku. Lenistwo albo nie widzisz
potrzeby, to podobnie jak ja nie widzialem potrzeby nauki o stulbi plaskatej.
Ale za moich czasow ogolniaka interentu niestety nie bylo i zadania domowe na
temat pozycia seksualnego tejze stulbi musialem przepisac z ksiazki, udajac sie
do biblioteki, sukajac odpowienich materialow itd, itp. Ty masz jak widze
internet. Szkoda ze nie umiesz sie nim posluzyc.

Pogooglaj piec sekund, wynik bedzie zdumiewajacy:

Program sortowanie_babelkowe_wektora;
Uses Crt;
var A,B:Array[1..20] of LongInt;
i,n:integer;
x: LongInt;
s : String;
kod : Integer;
t : Boolean; {zamieniono pary lub nie}
Begin
clrscr;
write('wprowadz wymiar wektora n(n<=20) n=');
Repeat
Begin
GotoXY(36,1);ClrEol;
readln(s);
Val(s,n,kod);
end;
until (n<=20) and (nɬ) and (kod=0);
For i:=1 to n do
Begin
Repeat
GotoXY(1,i+1);ClrEol;
write('wprowadz',i,'-ty element wektora A[',i,']=');
readln(s);
Val(s,A[i],kod);
until kod=0;
end;
B:=A; {przepisanie wartosci tablicy}
Repeat
t:=false; {nie bylo zamiany}
for i:=1 to n-1 do
Begin
if A[i]>A[i+1] then
Begin
x:=A[i];
A[i]:=A[i+1];
A[i+1]:=x;
t:=true; {dokonano zamiany}
end;
end;
until t=false; {nie bylo zamiany - calosc posortowana}
clrscr;
write('przed sortowaniem');
gotoxy (60,1);
writeln('po sortowaniu');
for i:=1 to n do
Begin
write(B[i]);
gotoxy(60,i+1);
writeln(A[i]);
end;
Repeat until KeyPressed;
end.

www.google.pl/search?hl=pl&ie=UTF-8&oe=UTF-8&q=sortowanie+babelkowe+delphi&lr=

www.republika.pl/pascal_delphi/kody.html

Pozdr.
B.