GRY-Online.pl --> Archiwum Forum

pomocy mam teraz sprawdzian napiszcie mi program w t>pascalu

04.01.2005
10:10
[1]

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 !!!!

04.01.2005
10:34
[2]

MAROLL [ Legend ]

Człowieku skąd ty piszesz z kibla czy jestes jeszcze w domu??

04.01.2005
10:39
[3]

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.

04.01.2005
10:43
smile
[4]

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]

04.01.2005
10:44
smile
[5]

pinkowski [ Pretorianin ]

Marrol a ty informatyke masz w kiblu ??? u mnie np sala komputerowa jest w budynku w którym sie ucze...

04.01.2005
17:00
smile
[6]

barteczeczek [ Chorąży ]

Wilekie dzieki KISS dostałem 5 ! Wielkie Piwo dla ciebie. Moze tez będe mogł ci kiesy pomóc :) THX

04.01.2005
17:01
smile
[7]

tygrysek [ behemot ]

stawiasz wszystkim browarka :)
no dalej !!

04.01.2005
17:04
[8]

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 :)

04.01.2005
17:05
[9]

tygrysek [ behemot ]

hehe

nie ważne kto, ważne że zadowolony :)

© 2000-2021 GRY-OnLine S.A.