ENTER Napisano Grudzień 2, 2008 Zgłoś Share Napisano Grudzień 2, 2008 Witam!! Z "Turbo Pascalem" mam dopiero do czynienia i nawet dobrze sobie radzę xD. Ale mam pewien problem z zadaniem i nie moge go rozwiązać. Chodzi o zadanie takie. KOD Napisz program ktury pobiera n liczb(n-wpisuje uzytkownik) i wyświetla dwie liczby największe i dwie liczby najmniejsze Ja robiłem ale mi nie wychodzi zrobiłem tylko tak: KOD var n,a,max,min:integer; begin writeln('podaj ile liczb'); readln(n); writeln('podaj liczbe'); readln(a); min:=a; max:=a; l:=0; repeat writeln('podaj liczbe'); readln(a); if max<a then max:=a else if min>a then min:=a; inc(l); until(l=n-1); writeln('największą liczbą jest',max,'a najmniejszą',min); readln; end. To jest tylko na wypisanie jednej liczby największej i najmniejszej. Myślę że może trzeba jeszcze jedną zmienną ,b' zadeklarować max2 i min2. ale nie wiem jak to zrobić może trzeba zagnieżdzić pętlę. Proszę pomuszcie mi to zadanie na 5. Niechcem dostać gotowca ale żeby ktoś mnie nakierował. Z góry bardzo dziękuję ENTER ;p Link do komentarza Udostępnij na innych stronach More sharing options...
lewymati Napisano Grudzień 2, 2008 Zgłoś Share Napisano Grudzień 2, 2008 możesz zawsze wszystko wczytać do tablicy, posortować i brać pierwsze dwie liczby oraz ostatnie dwie liczby Piszę proste programy i stronki internetowe na zlecenie, zaliczenie... Delphi, Pascal, C++, (X)HTML, CSS, trochę PHP, Javascript i MySQL Kontakt: gg:1477872 e-mail: lewymati@wp.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Jason Napisano Grudzień 2, 2008 Zgłoś Share Napisano Grudzień 2, 2008 Na Twoje potrzeby powinno wystarczyć takie sortowanie http://www.jason.unit1.pl/?strona=1&podstrona=15 Link do komentarza Udostępnij na innych stronach More sharing options...
Force Napisano Grudzień 2, 2008 Zgłoś Share Napisano Grudzień 2, 2008 Ale wy mu dajecie rady, Twój program prawie to robi co trzeba, rózb tak, gdy a>max to max2:=max;max:=a; a gdy (a max2) to max2:=a. Dla mina, zrób symetrycznie operatory porównania. A nie jakieś tam sortowania robić. MAx2=drugi największy,min2=drugi najmniejszy Baza tysięcy lotnisk: http://airportsbase.com Link do komentarza Udostępnij na innych stronach More sharing options...
lewymati Napisano Grudzień 3, 2008 Zgłoś Share Napisano Grudzień 3, 2008 @Jason: przeciez napisal wyraznie ze w turbo pascalu... chcesz sie pochwalic ze "jestes lepszy" i w C piszesz? rózb tak, gdy a>max to max2:=max;max:=a; a gdy (a max2) to max2:=a te nierówności(niektore) powinny być chyba nieostre, w sumie to zalezy co rozumiemy przez pojecie "druga najwieksza liczba" np dla liczb: 1,4,5,8,8 czy ta druga największa liczba wynosi 5 czy 8 no i faktycznie, sposob forca bedzie dzialac szybciej niz sortowanie i nawet pamieci nie zezre na tablicę Piszę proste programy i stronki internetowe na zlecenie, zaliczenie... Delphi, Pascal, C++, (X)HTML, CSS, trochę PHP, Javascript i MySQL Kontakt: gg:1477872 e-mail: lewymati@wp.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Jason Napisano Grudzień 3, 2008 Zgłoś Share Napisano Grudzień 3, 2008 Wybacz, ale przy takich prostych rozważaniach nie widzę różnicy... Co to za problem przerobić Link do komentarza Udostępnij na innych stronach More sharing options...
lewymati Napisano Grudzień 4, 2008 Zgłoś Share Napisano Grudzień 4, 2008 CYTAT(ENTER @ wto, 02 gru 2008 - 16:19) Witam!! Z "Turbo Pascalem" mam dopiero do czynienia Co to za problem przerobić Wysuń właściwe wnioski Poza tym twoje sortowanie jest do dupy, bo dla danych np: 1 3 100000000 4 8 bedzie liczyyyyylo bardzo dlugo Piszę proste programy i stronki internetowe na zlecenie, zaliczenie... Delphi, Pascal, C++, (X)HTML, CSS, trochę PHP, Javascript i MySQL Kontakt: gg:1477872 e-mail: lewymati@wp.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Jason Napisano Grudzień 4, 2008 Zgłoś Share Napisano Grudzień 4, 2008 Ale dla małej rozbieżności danych jest bardzo szybki :] Dlatego zależy co się chce napisać. A jego program nie musi być przewidziany na większe liczby. Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.