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;))
minimum i maksimum w tablicy jednowymiarowej PASCAL
-
- 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
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.
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.
-
- 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
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.
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.
-
- 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
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.