barteczeczek [ Chor��y ]
pomocy mam teraz sprawdzian napiszcie mi program w t>pascalu
NAPISZ, program ktory policzy ile w ciagu liczb zakonczonych zerem bylo liczb ujemnych!
POMOCY !!!!
MAROLL [ Legend ]
Człowieku skąd ty piszesz z kibla czy jestes jeszcze w domu??
Kiss [ Konsul ]
var
liczba:real;
ilosc:integer;
begin
ilosc:=0;
repeat
writeln('Podaj liczbe');
readln(liczba);
if liczba<0 then
ilosc:=ilosc+1;
until liczba=0;
writeln('Ilosc liczb mniejszych od zera =',ilosc);
readln;
end.
captain_nemo [ Generaďż˝ ]
A moze bys tak samemu cos napisal ?
Z reszta dales troche malo danych, np ten ciag to skad w pascalu ma sie pojawic ? jest zapisany w pliku, czy wprowadzamy go ? :/
...no mniejsza o to najprostrzy algorytm na to zadanko to chyba tak.... wrzuc caly ciag do tablicy i sprawdzaj kazdy element tablicy po kolei. gdy jest mniejszy od zera to do wczesniej zadeklarowanej zmiennej dodawaj 1 [oczywiscie na poczatku nadaj jej wartosc zero]
pinkowski [ Pretorianin ]
Marrol a ty informatyke masz w kiblu ??? u mnie np sala komputerowa jest w budynku w którym sie ucze...
barteczeczek [ Chor��y ]
Wilekie dzieki KISS dostałem 5 ! Wielkie Piwo dla ciebie. Moze tez będe mogł ci kiesy pomóc :) THX
tygrysek [ behemot ]
stawiasz wszystkim browarka :)
no dalej !!
barteczeczek [ Chor��y ]
Tygrysek no no.. Nie bądz sepem na brawarki, to Kiss mi pomógł, ale jak tak bardzo chcesz to Piwo dla Tygryska :)
tygrysek [ behemot ]
hehe
nie ważne kto, ważne że zadowolony :)