Vein [ Sannin ]
kto napisalby prosty progarmik losujący..
ehh jakoże pozapominalem wiele z programowania w delphi i TP, to prosze was tutaj o napisanie programiku który losowałby daną liczbe cyfr ( 0 albo 1) (dana lcizba, czyli liczba podana przed rozpoczeciem loswania) i podawał statystyke (liczbe wylosowanych zer i jedynek), najlepiej by robił losowanie w jak najwiekrzej liczbie kroków... wiem że można było by to zrobić petla for ale niestety kompletnie zapomnialem jak zmusic komputer do losowania liczb...
Trzepiskor [ SETH ]
wygodniś
MOD [ Generaďż˝ ]
Poszukaj w helpie funkcji rand ,randomize ,random lub cos podobnego.
Fett [ Avatar ]
poszukaj na stronach o grach fabularnych programu imitujacego kostke. Ustawiasz zakres liczb więc chyba może być
Vein [ Sannin ]
trzepiskor - moze i wygodniś, ale internet jesr bardzo duży... tak smamo jest bardzo gruba ksiazka o programowaniu w pascalu
mod - poszukam, zawezilo mi to obszzar poszukiwań w znacznym stopniu :]
MOD [ Generaďż˝ ]
Internet duzy i szeroki i po to ludzie wymyslili wyszukiwarki:)Ostatnio widze pelno problemow na forum ktore wystarczy rozwiazac wejsciem na www.gogle.pl .Juz wiecej za innych szukac nie bede:).
Vein [ Sannin ]
eee chyba mam skopany kompilator, napisalem cos takiego:
var
x:=0;
begin
readln(x);
Randomize;
while x>0 do
begin
x:=x-1;
writeln("aaaaaa ");
end;
end.
a on mi wywala przy
x:=0;
" : expected"
Vein [ Sannin ]
sorki nie o to chodzilo :P z tamtym sobie poradzilem, blad w ksiazce byl :P tak samo poprawilem juz cudzyslowia :] narazie sprawdzalem czy wypisywanie zadziala (petla), teraz musze wymyslic jak zorbic by liczyl ile zer i ile jedynek mi to wygeneruje, ale chyba mam pomysl, dodac jedno "if" i chyba rozwiaze mi t osprawe :P
Kijano [ Konsul ]
Masz ten program chyba powinien dzialac :)
program los;
uses crt;
var
i,x,y:integer;
begin
clrscr;
write('Podaj liczbe : ');
read(x);
randomize;
for i:=1 to x do
begin
y:=random(2);
writeln(y);
x:=x-1;
end;
repeat until keypressed;
end.
Kijano [ Konsul ]
a jesli chcesz liczyc jedynki i zera to tam do petli dodaj if y=1 then j:=j+1; i dodaj jeszcze if y=0 then z:=z+1;
oczywiscie daj najpierw zmienne do var :)
Vein [ Sannin ]
dzieki ! udalo mi sie to zorbic i wyszedl zgrabny programik :P jeszcze tlyko zapisywanie do pliku i bedzie finito :]]
var
x : integer;
y : integer;
z : integer;
w : integer;
begin
z:=0;
w:=0;
writeln('podaj liczbe powtozen losowania');
readln(x);
Randomize;
while x>0 do
begin
x:=x-1;
y:=(random(2));
if y=1 then
z:=z+1
else
w:=w+1;
end;
writeln('liczba jedynek wynosi',z);
writeln('liczba zer wynosi ',w);
end.
Vein [ Sannin ]
eee cos podobne te nasze programy, ale moj jest w 90% napisany przezemnie :P
Kijano [ Konsul ]
Zapisywanie do pliku tekstowego to banal :)
w var dajesz pl:text;
pozniej
w prgramie po losowaniu takie cos
assign(pl,'los.txt');
rewrite(pl);
writeln('LIczba jedynek to ...');itd;
close(pl);
i w katalogu .../tp/bin masz plik los.txt ktory otworzysz za pomoca notatnika :)
Kijano [ Konsul ]
Vein soryy moj jest w 100% napisany przezemnie za duzo juz siedze w tp zeby tak prostych rzeczy nie wiedziec :P
Kijano [ Konsul ]
tam jest blad bo zamiast writeln('liczba cos') powinno byc writeln(pl,z);
z --> jest przykładem :)
Cap'n Pimp [ Generaďż˝ ]
wow, podziwiam Was :)) jak patrze na to to mysle "o, fajny ciąg wyrazów" :D a to program jeno jest ;D ile się uczyliście tego, tak aby opanować ot chociażby podstawy ?
Vein [ Sannin ]
kijano - przeciez nie neguje tego ze ty t osam napisales, tlyko powiedzialem ze nie kopiowalem twojego tekstu :] i dzieki za pomoc :]
Vein [ Sannin ]
cap'n pimp - ja to napisalem po czesci z glowy ( to co umiem to sie nauczylem czytajac kody zrodlowe prostych programow) a po czesc i z materialow z internetu... ogolnie t oesjt proste, wszyskto jest logiczne, ale czasami mozna sie zaplatac :P
Kijano [ Konsul ]
Cap'n Pimp --> Tp jest bardzo prosty wystarczy znac troche angielskiego :)
Vein --> a to wybacz widocznie źle odczytale twoje intencje :)
Vein [ Sannin ]
ehh ja ide sie uczyc, a tutaj daje moj prbolemo.. a mianowicie ...
dobra niby napisalem program ale niewiem jak zamienic integer na string, nie dziala inttostr .... niewiem jak jest w turbopascalu 7... moze wy wiecie ?
x : integer;
y : integer;
z : integer;
w : integer;
a : string;
b : string;
wiersz : string[40];
pl : text;
begin
z:=0;
w:=0;
writeln('podaj liczbe powtozen losowania');
readln(x);
Randomize;
while x>0 do
begin
x:=x-1;
y:=(random(2));
if y=1 then
z:=z+1
else
w:=w+1;
end;
writeln('liczba jedynek wynosi',z);
writeln('liczba zer wynosi ',w);
a:=z;
b:=w;
wiersz:='liczba jedynek'+a+' liczba zer'+b;
assign(pl,'los.txt');
rewrite(pl);
writeln(pl,wiersz);
close(pl);
end.
Rendar [ Senator ]
Off Topic: Vein - > Jak tam poszedł konkursik z informatyki o sieciach?
Vein [ Sannin ]
rendar - prawdoe mowiac to nei byl konkursik tlyko test z sieci dla amojej klasy, lduze chcieli mnie zamordować, za trudne bylo dla nich mimo ze bylo wedlug mateiralow ktore mieli w zasieku reki.... oczywiscie niezle mi sie dostalo... no nic... wiecej nie przyjme tego typu roboty, a wszyskitemu byl winny nauczyciel ktory powiedzial i mze ot ja robilem...
Rendar [ Senator ]
Vain---> Trzeba było zwalić na mnie !
Vein [ Sannin ]
taaa na ciebie, heh, dobrze by bylo, i tak dalem mu 17 pytań a gosciu przerobil niektore tak ze wychozdily glupoty i zwalal na mnie, jak specjalnie pomiajlem literki albo je przestawialem to mowil by je dopisywać...
Rendar [ Senator ]
To niezły lolek z tego kolesia. Pewnie sam nie miał pojęcia o co chodzi.
Filevandrel [ Dyżurny Filet Kraju ]
z doświadczenia wiem ze najlepszym prgramem losujacym jest kostka:P
Vein [ Sannin ]
filevandrel - sorry ale ja nie widziałem kostki tlyko z 2 ściankami, a rzucać kostką po 400-1000 razy i zapisywać wyniki to ty sam sobie możesz.... (a późlniej policzyć wyniki...)
Vein [ Sannin ]
hmm i co, podpowie mi ktos w koncu ? jak zrobic by zapisywal dwa wyniki w jednym lpiku ?