JoGr1954 utworzono 15 lutego 2010 utworzono 15 lutego 2010 (edytowane) Witam. Otóż wymyśliłem sobie program który ma utworzyć plik 100liczb losowych (przedział 0-1000) a następnie plik tekstowy zawierający te same liczby w zapisie binarnym. Czyli zaczynamy: [code]program binarne; var liczby,a,x:integer; przedzial:text; begin assign (plik, 'h:/przedzial.dat'); randomize; for a:=1 to 100 do begin x:=random(1000);[/code] I tu mam schodki, nie wiem co dalej zapisać, ponieważ dopiero zaczynam się z tym "oswajać" prosił bym o pomoc. Byłbym bardzo wdzięczny. P.S nie wiem czy ta część programu jest dobrze zaczęta, aczkolwiek zapewne fachowca będzie wiedział, i prosiłbym w tedy jeśli coś jest nie tak o poprawienie.
rafalluz komentarz 15 lutego 2010 komentarz 15 lutego 2010 Nie określiłeś trybu, w jakim po pliku będzie pisano, użyj funkcji rewrite albo append, zależnie, co chcesz osiągnąć. Każde x zapisuj do pliku poleceniem write/writeln.
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.