Skocz do zawartości


Zdjęcie

niewiem jak zrobić ten program


  • Zaloguj się, aby dodać odpowiedź
3 odpowiedzi w tym temacie

#1 trophy250

trophy250
  • Użytkownicy
  • 1 postów

Napisano 02 grudzień 2008 - 20:31

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ć:oops:. Chodzi o zadanie takie.
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:


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 ps. nie znam jeszcze tablic
  • 0


#2 michzimny

michzimny
  • Użytkownicy
  • 16 postów

Napisano 06 grudzień 2008 - 11:31

najłatwiej to chyba wczytać wszystkie liczby do tablicy, posortować ją, wyświetlić 2 pierwsze i 2 ostatnie :/
  • 0

#3 Mateusz

Mateusz

    Redaktor naczelny

  • Administratorzy
  • 1541 postów

Napisano 06 grudzień 2008 - 15:30

michzimny, jak zwykle dobrze gada :/
Siema Zimny :D
  • 0
Dołącz PCFoster.pl na Facebooku: http://www.facebook.com/pcfosterpl :) Zapraszamy!

#4 jarex_67

jarex_67
  • Użytkownicy
  • 151 postów

Napisano 29 sierpień 2017 - 18:10

Spróbuj tutaj http://geek-on.pl :)


  • 0


Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych