Skocz do zawartości

NIe wiem jak zrobić ten programik pomorzecie???


ENTER

Polecane posty

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

możesz zawsze wszystko wczytać do tablicy, posortować i brać pierwsze dwie liczby oraz ostatnie dwie liczby :P

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

@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 :P

 

no i faktycznie, sposob forca bedzie dzialac szybciej niz sortowanie i nawet pamieci nie zezre na tablicę :P

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

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

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...