minimum i maksimum w tablicy jednowymiarowej PASCAL

czarnys69
Użytkownik
Użytkownik
Posty: 35
Rejestracja: 18 lis 2008, o 21:45
Płeć: Mężczyzna
Lokalizacja: net
Podziękował: 12 razy

minimum i maksimum w tablicy jednowymiarowej PASCAL

Post autor: czarnys69 »

Witam;) Mam do napisania program w Pascalu:
Ma on wczytać tablicę 10-elementową i bez porządkowania tablicy ma znaleźć 2 najmniejsze liczby!
Proszę o pomoc bo jestem trochę zielony w tym temacie! z góry serdecznie dziękuje;))
Ostatnio zmieniony 1 gru 2008, o 20:31 przez czarnys69, łącznie zmieniany 1 raz.
loocash
Użytkownik
Użytkownik
Posty: 22
Rejestracja: 21 paź 2008, o 16:18
Płeć: Mężczyzna
Lokalizacja: znikad
Podziękował: 5 razy

minimum i maksimum w tablicy jednowymiarowej PASCAL

Post autor: loocash »

Musi być w pascalu?
Moraxus
Użytkownik
Użytkownik
Posty: 223
Rejestracja: 23 lis 2008, o 18:10
Płeć: Mężczyzna
Podziękował: 3 razy
Pomógł: 79 razy

minimum i maksimum w tablicy jednowymiarowej PASCAL

Post autor: Moraxus »

Z czym dokładnie masz problem?
1. Wczytujesz tą tablicę
2. Tworzysz 2 zmienne: a - w której będzie najmniejsza liczba z tablicy b - w której będzie druga najmniejsza liczba.
3. Porównujesz pierwszy i drugi element tablicy.
Jeżeli pierwszy jest mniejszy od drugiego, to wrzucasz go do a, a drugi wrzucasz do b.
W przeciwnym wypadku wrzucasz pierwszy do b a drugi do a.
4. Teraz tworzysz pętle, która przechodzi przez pozostałe elementy tablicy.
Sprawdzasz, czy element jest mniejszy od b, oraz czy jest mniejszy od a.
Jeżeli jest mniejszy od b, ale większy od a wrzucasz go do b.
Jeżeli jest mniejszy od obu liczb to wrzucasz a do b, a ten element do a.

Na końcu w a zostanie Ci najmniejsza liczba, a w b druga najmniejsza.
Jeżeli będziesz miał problem ze zrozumieniem tego, to moge napisać ten program za Ciebie w C++.
Nie powinieneś mieć problemów z "przetłumaczeniem" go na Pascala.
czarnys69
Użytkownik
Użytkownik
Posty: 35
Rejestracja: 18 lis 2008, o 21:45
Płeć: Mężczyzna
Lokalizacja: net
Podziękował: 12 razy

minimum i maksimum w tablicy jednowymiarowej PASCAL

Post autor: czarnys69 »

Tablicę już wczytałem. Teraz nie wiem jak zrobic aby znalazł dwie najjmniejsze liczby! Pomoże mi ktoś? i dopisze dalszy ciąg? z góry serdecznie dziekuje

program najmniejsze_liczby;

var a:array[1..10] of integer;
max:integer;
i: integer;
begin

writeln('Wprowadz kolejno 10 liczb');
for i:=1 to 10 do
read(a);


end.
smiechowiec
Użytkownik
Użytkownik
Posty: 374
Rejestracja: 21 cze 2007, o 11:28
Płeć: Mężczyzna
Lokalizacja: Łostowice
Pomógł: 146 razy

minimum i maksimum w tablicy jednowymiarowej PASCAL

Post autor: smiechowiec »

Kod: Zaznacz cały

program najmniejsze_liczby;

const IMAX = 10;
var
  a : array[1..10] of integer;
  min1, min2 : integer;
  i : integer;

begin
  writeln('Wprowadz kolejno ', IMAX, ' liczb calkowitych');
  for i := 1 to IMAX  do begin
    write('Podaj a[', i, '] ');
    readln( a[i] );
  end;

  if (a[1] < a[2]) then begin
    min1 := a[1];
    min2 := a[2];
  end
  else begin
    min1 := a[2];
    min2 := a[1];
  end;

  for i := 3 to IMAX do begin
    if (a[i] <= min1) then begin
      min2 := min1;
      min1 := a[i];
    end
    else if (a[i] <= min2) then
      min2 := a[i];
  end;
  WriteLn('Daw najmniejsze wyrazy podanego ciĄgu to ', min1, ', ', min2);

end.
ODPOWIEDZ