www.ispwsznysa.fora.pl

Mardok

Programowanie: Informatyka I

Lista10

Zadanie 1.
Napisz program, w którym zapisujemy do pliku tekstowego liczbę typu Byte wprowadzoną z klawiatury. Program ma następnie odczytać i wyprowadzić na ekran zawartość tego pliku.

Zadanie 2.
Napisz program, w którym zapisujemy do pliku tekstowego elementy wcześniej wypełnionej tablicy jednowymiarowej 10-elementowej typu integer. Liczby mają być zapisane w następującej postaci:

Przykład:
Liczba1
*
Liczba2
*
Liczba3
*
itd

Zadanie 3.
Napisz program odczytujący pierwszą linię wybranego pliku tekstowego a następnie zliczający ilość znaków "A" w tej linii.

Zadanie 4.
Napisz program zapisujący do pliku zdefiniowanego (binarnego) wcześniej wygenerowany rekord składający się co najmniej z 5 elementów. Program ma także umożliwić odczyt rekordu z pliku oraz wyświetlenie jego elementów na ekran.

Zadanie 5 (dla chętnych).
Napisz program odczytujący liczby z pliku o strukturze takiej jak zadaniu 2. Program ma posortować te liczby a następnie zapisać do innego pliku tekstowego (struktura zapisu dowolna).

Mardok

program Halik_L10Z1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x : text;
b : byte;
s : string;

begin
b:=1;

assign(x,'l.txt');
rewrite(x);
writeln(x,b);
close(x);

assign(x,'l.txt');
reset(x);
readln(x,s);
close(x);

writeln(s);

readln;
end.

Mardok

program Halik_L10Z2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x : text;
i : integer;
t : array[1..10] of integer = (1,2,3,4,5,6,7,8,9,0);

begin

assign(x,'l.txt');
rewrite(x);
for i:=1 to 10 do
begin
writeln(x,'Liczba',i);
writeln(x,t[i]);
end;
close(x);

end.

Mardok

program Halik_L10Z3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x : text;
i,l : integer;
s,n : string;

begin

write('Podaj Nazwe : ');
readln(n);
l:=0;
assign(x,n);
reset(x);
readln(x,s);
for i:=1 to Length(s) do
if s[i] = 'A' then Inc(l);
close(x);

writeln('Ilosc "A" w pliku [',n,'] : ',l);

readln;
end.

Mardok

program Halik_L10Z4;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TData = record
nazwa : string[30];
gatunek : string[20];
rok : word;
roz : string[7];
iloscCD : byte;
end;
var
rec : TData;
f : file of TData;

begin
rec.nazwa:='Shrek III';
rec.gatunek:='Komedia';
rec.rok:=2007;
rec.roz:='620x256';
rec.iloscCD:=1;

assign(f,'data.dat');
rewrite(f);
write(f,rec);
close(f);

rec.nazwa:='';
rec.gatunek:='';
rec.rok:=0;
rec.roz:='';
rec.iloscCD:=0;

assign(f,'data.dat');
reset(f);
read(f,rec);
close(f);

writeln('Zawartosc zapisanego rekordu : ');
writeln;
writeln('Nazwa : ',rec.nazwa);
writeln('Gatunek : ',rec.gatunek);
writeln('Rok : ',rec.rok);
writeln('Rozdzielczosc : ',rec.roz);
writeln('Ilosc CD : ',rec.iloscCD,' CD');
readln;
end.

Mardok

program Halik_L10Z5;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x : text;
s : string;
i,j,tmp : integer;
t : array[1..10] of integer;

begin

i:=0;
assign(x,'l.txt');
reset(x);
while not eof(x) do
begin
readln(x,s);
if s[1] <> 'L' then
begin
inc(i);
t[i]:=StrToInt(s);
end;
end;
close(x);

for j:=1 to 9 do
for i:=1 to 9 do
if t[i] < t[i+1] then
begin
tmp:=t[i];
t[i]:=t[i+1];
t[i+1]:=tmp;
end;

assign(x,'wynik.txt');
rewrite(x);
for i:=1 to 10 do writeln(x,t[i]);
close(x);

end.