Mat-Inf 2e w Kołłątaju

Też główkowałem ale ni huhu... Może na przerwie się coś uda zdobyć bo dzisiaj to już nikłe szanse ;/

ja też próbowałem...nawet poduczyłem się pascala w necie...ale ni huja nie umiem...dołączam się do prośby

Zadanie 3/67

  Podaj algorytm wyszukiwania najmniejszej liczby wśród n liczb całkowitych wczytanych jako dane w kolejnych przebiegach pętli. n=4, zbór liczb: {-3, 6, -4, 0}.

Na podstawie tego algorytmu napisać program w pascalu.

Ostatnio edytowany przez kamiprok (2007-12-16 19:59:27)

Dobra... dokłądnie teraz nie pamiętam, ale załapcie pomysł i przeróbcie by działało
program cos
var a,b,n: longint
Begin
Writeln('jakies głupoty i podaj n');
readln(n);
Writeln ('wprowadz pierwsza pierwsza liczbe');
readln (a); //wczytujemy liczbe pierwsza z dajmy na to 4
n:=n-1; //teraz już 3
While a>0 do
begin
Writeln('wprowadz b');
readln(b); //druga liczba
n:=n-1; //teraz juz 2
if a>b then a:=b;  //warunek sprawdzajacy dzieki czemu będą porownywane tylko najmniejsze wartosci
end; // koniec petli while
Writeln('najniejsza warotść to')
read(a)
end.


Pewno dużo jest błędów z przecinkami itd. itd... ale robiłem to na szybko z głowy nie mam teraz czasu na takie duperele... Mam nadzieje że wam to pomoże

Ostatnio edytowany przez War_Kurt (2007-12-16 21:49:11)