Basia WSKIZ 12:02:21
1.) Zaprojektować klasę o nazwie TTablica,której wystąpienia umożliwiają zapamiętanie 10 parzystych liczb naturalnych i ich odczytywanie. Elementy są indeksowane argumentami o wartościach 1..10. Tablica jest bezpieczna,uniemożliwia dostęp do nieistniejących elementów, tzn.do elementów o indeksie z dopuszczalnego przedziału. Jeśli jest zły indeks to komunikat o błędzie. Uniemożliwia wpisanie elementu który nie jest parzystą liczbą naturalną. Klasa implementuje 3 metody :
a) Constructor inicjujacy elementy nowego wystąpienia 10 jedynkami
B) metodę proceduralną PISZ z dwoma argumentami (liczba,indeks) do zapisu liczby pod element indeks.
c) metodę funkcyjną CZYTAJ z pojedynczym argumentem (indeks) typu integer do odczytu
elementu o
indeksie (indeks).

TTablica=class
FTablica: array[1..10] of integer;
constructor Create;
procedure Pisz(liczba, index: Integer);
function Czytaj(index: Integer): Integer;
end;

constructor TTablica.Create;
var i: Integer;
begin
for i := 1 to 10 do
FTablica[i] := 1;
end;

procedure TTablica.Pisz(liczba, index: Integer);
begin
if not (index in [1..10]) then ShowMessage('poza zakresem') else
if liczba mod 2 <> 0 then ShowMessage('nieparzysa') else
FTablica[index] := liczba
end;

function TTablica.Czytaj(index: INteger):Integer;
begin
if not (index in [1..10]) then ShowMessage('poza zakresem') else
result := FTablica[index]
end
Basia WSKIZ 12:02:31
pierwsza klasa
Basia WSKIZ 12:02:49
druga

Basia WSKIZ 12:02:51
1.) Zaprojektowac klase o nazwie TTablica,której wystapienia umozliiaja zapamietanie 10 nieparzystych liczb naturalnych i ich odczytywanie. Elementy sa indeksowane argumentami o wartosciach "A".."J". Tablica jest bezpieczna,uniemozliwia dostep do nieistniejących elementów, tzn.do elementów o indeksie z dopuszczalnego przedzialu. Jeoli jest zly indeks to komunikat o bledzie. Uniemozliwia wpisanie elementu który nie jest nieparzysta liczba naturalna. Klasa implementuje 3 metody :
a) Constructor inicjujacy elementy nowego wystapienia 10-cioma dwójkami
b ) metode proceduralna PISZ z dwoma argumentami (liczba,indeks) do zapisu liczby pod element indeks.
c) metode funkcyjna CZYTAJ z pojedynczym argumentem (indeks) typu integer do odczytu elementu o indeksie (indeks).

TTablica=class
FTablica: array['A'..'J'] of integer;
constructor Create;
procedure Pisz(liczba : integer; index: char);
function Czytaj(index: char): Integer;
end;

constructor TTablica.Create;
var i: Integer;
begin
for i := ord('A') to ord('J') do
FTablica[chr(i)] := 2;
end;

procedure TTablica.Pisz(liczba : integer; index: char);
begin
if not (index in ['A'..'J']) then ShowMessage('poza zakresem') else
if liczba mod 2 <> 1 then ShowMessage('zla liczba') else
FTablica[index] := liczba
end;

function TTablica.Czytaj(index: char):Integer;
begin
if not (index in ['A'..'J']) then ShowMessage('poza zakresem') else
result := FTablica[index]
end





klasa czs





TCzas=class
private
FNr_rejsu: String;
FGodzina: Integer;
FMinuta: Integer;
public
constructor Create(nr_rejsu: String; godzina, minuta: Integer);
procedure podaj_info_o_locie;
procedure natepna_minuta;
function minuta_doby: Integer;
end;

constructor TCzas.Create(nr_rejsu: String; godzina, minuta: Integer);
begin
if (not (godzina in [0..23])) and (not (minuta in [0..59]))
then begin ShowMessage('Nieprawidlowe dane'); exit; end;
FNr_rejsu := nr_rejsu;
FGodzina := godzina;
FMinuta := minuta;
end;

procedure TCzas.podaj_info_o_locie;
begin
ShowMessage(Format('%s %d:%d', [FNr_rejsu, FGodzina, FMinuta]));
end;

procedure TCzas.nastepna_minuta;
begin
inc(FMinuta);
if FMinuta >= 60 then
begin
FMinuta := 0;
inc(FGodzina);
end;
if FGodzina >= 24 then
FGodzina := 0;
end;

function TCzas.minuta_doby: Integer;
begin
result := FGodzina*60+FMinuta-1
end;