Dotyczy ono szukania minimum i brzmi:
1. Nalezy stworzyc tablice o 10 losowych elementach i wyswietlic ja na ekranie
2. Nalezy wyswietlic zawartosc tablicy
3. Nalezy znalezc najmiejsza liczbe i ja wyswietlic
z góry dzięki
[pascal]jak napisać następujące zadanie z pascala?
Rozpoczęty przez
MARCIN ADEPT
, 30 12 2007 03:37
1 odpowiedź w tym temacie
#1
Napisano 30 12 2007 - 03:37
#2
Napisano 28 02 2008 - 23:04
Może coś takiego ?
Program tablica;uses crt;var i:byte; tab:array[0..9]of integer; procedure wypelnij_tablice; begin for i:=0 to 9 do tab[i]:=random(maxint); end; procedure show_tab; begin writeln('Zawartosc tablicy'); for i:=0 to 9 do writeln('Element : ',i,' = ',tab[i]); writeln('Koniec Tablicy'); writeln; writeln; end; procedure min_tab; var pozycja:byte; cyfra:integer; begin cyfra:=tab[0]; pozycja:=0; for i:=1 to 9 do if cyfra<tab[i] then begin pozycja:=i; cyfra:=tab[i]; end; writeln('Najmniejsza wartosc tablicy to: '); writeln('Element : ',pozycja,' = ',cyfra); end; begin clrscr; randomize; wypelnij_tablice; show_tab; min_tab; writeln('Koniec nacisnij enter'); readln; end.
Użytkownicy przeglądający ten temat: 0
0 użytkowników, 0 gości, 0 anonimowych