stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
 Wysłany: Pon 13:39, 14 Sty 2008 Temat postu: lista 6 zad 1 DUDEK |
|
|
To sa dwa programiki. Najpierw trzeba uzyc programu 1 i w nim podac nazwe pliku. Nastepnie uzyc programy 2 i wpisac te sama nazwe pliku bo inaczej sie wysypie wszystko.
program1
| Kod: |
program zad1_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
tab=array [1..10] of byte;
var
nazwa:string[80];
plik:file of tab;
i:byte;
x:tab;
begin
writeln('Podaj nazwe pliku do utworzenia');
readln(nazwa);
assignfile(plik,nazwa);
randomize;
for i:=1 to 10 do
x[i]:=random(251);
rewrite(plik);
write(plik,x);
close(plik);
writeln('PLIK UTWORZONY');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
program 2
| Kod: |
program zad1_2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
tab=array [1..10] of byte;
var
nazwa:string[80];
plik:file of tab;
i:byte;
x:tab;
begin
writeln('Podaj nazwe pliku do odczytu');
readln(nazwa);
assignfile(plik,nazwa);
reset(plik);
read(plik,x);
close(plik);
for i:=1 to 10 do
write(x[i]:4);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end. |
Ostatnio zmieniony przez stramik dnia Pon 13:40, 14 Sty 2008, w całości zmieniany 1 raz
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
