[pascal] obsługa plików - tablice

0

Witam Wszystkich

Mam problem i potrzebuje waszej pomocy [!!!]

Problem jest taki:
Mam do napisania (niby proste, lecze sprawiające mi sporo problemów) programiki i nie wiem jak się nawet za nie zabrać. Programy te mają być pisane w konsoli aplikacji DELPHI.

Oto te programy :

  1. powinien zapisać tablicę dziesięciu elementów typu całkowitego do pliku binarnego (zawartość tablicy generowana losowo).

  2. Napisz program bazujący na plikach tekstowych, który będzie działał dwuetapowo:
    Etap 1:
    Program tworzy plik tekstowy o zawartości odpowiadającej schematowi:

</ol>

1 1 1
2 4 8
... ... ...
10 100 1000

Etap 2:
Program odczytuje zawartość pliku tekstowego utworzonego na etapie 1 i tworzy w oparciu o dane z tego pliku nowy plik o zawartości :

Wartość Kwadrat Sześcian

 1           1           1
 2           4           8
...         ...           ...
10        100       1000

------------------------------------------

Te zadania są dla mnie bardzo ważne !!! dlatego prosze was o pomocz i możliwie szybką odpowiedź !!

z GÓRY DZIĘKUJE ZA POMOC

PS. Przy podawaniu kodu źródłowego (obok lini kodu) prosze (w miare możliwości) o wstawianie komentarzy, tak abym mógł załapać (co która linia kodu robi) :)

0

czemu ten temat ma 16748 wyswietlen :) ?

0

Ad. 1.

type TMyFile = File of SmallInt; //Deklaracja typu - smallint - liczba całkowita od -32768 do 32767 (16bit);
...
var
  MyFile: TMyFile; //Wskaźnik pliku
  RndVal: SmallInt; //Losowa wartość
  I: Integer; //Zmienna pomocnicza - indeks pętli
begin
  Randomize(); //Przygotowanie generatora liczb pseudo-losowych
  AssignFile(MyFile, 'wynik.dat'); //Przypisanie pliku
  Rewrite(MyFile); //Nadpisanie pliku
  For I:=1 to 10 do begin
    RndVal:=Random(2*32768)-32768; //Losowa wartość z zakresu SmallInt
    Write(MyFile, RndVal); //Dopisywanie do pliku
    end;
  CloseFile(MyFile); //Zapis i zamknięcie pliku
  end;

Dlaczego ja to piszę? Chyba za dobry jestem [diabel]

// cóż za skromność [green] - deti

//Zazwyczaj po prostu olewam takie posty, dziś mnie coś napadło. Przeziębiony jestem, może dlatego :P I co tu ma skromność do rzeczy? To "chyba za dobry jestem" raczej nie miało być jakimś "och, jaki ja jestem dobry", tylko ironią :P - A.P.

1 użytkowników online, w tym zalogowanych: 0, gości: 1