x-kom hosting

[PASCAL] Podstawy, liczby losowe+liczby w zapisie binarnym

JoGr1954
utworzono
utworzono (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
komentarz

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.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.