www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.ispwsznysa.fora.pl Strona Główna
->
Algorytmy i struktury danych
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie CET (Europa)
Skocz do:
Wybierz forum
Semestr VI (letni) 2010/2011
----------------
Ogólne
SW = Systemy wbudowane
SSO = Sieciowe systemy operacyjne
SRRP = Systemy rozproszonego i równoległego przetwarzania
KRSI = KRSI - kierunki rozwoju systemów inf
BSSK = Bezpieczeństwo sieci i systemów komputerowych
Semestr V (zimowy) 2009/2010
----------------
Podstawy sztucznej inteligencji
Zarządzanie przedsięwzięciami programistycznymi
Hurtownie danych
Komputerowe systemy sterowania
Programowanie w językach skryptowych
Zaawansowane zagadnienia sieci komputerowych
Angielski
OFF TOPIC
Semestr IV (letni) 2008/2009
----------------
Język angielski
Programowanie w Javie
Nowoczesne Systemy Baz Danych
Podstawy Inżynierii Oprogramowania
Podstawy Symulacji Systemów
Systemy Grafiki Komputerowej
Systemy Informatyczne
Archiwum
----------------
Programowania I
Podstawy systemów komputerowych PSK
Algebra liniowa z geometrią
Fizyka
Zarządzanie
Marketing
Problemy społeczne
Programowanie II (C)
Analiza matematyczna
Algorytmy i struktury danych
Logika dla informatyków
Podstawy elektroniki i miernictwa
Systemy operacyjne I
Teoria układów logicznych i cyfrowych
Architektura komputerów
Podstawy metod probabilistycznych
Podstawy baz danych
Podstawy sieci
Podstawy podejmowania decyzji
Systemy operacyjne II
Zarządzanie danymi informacyjnymi
Przegląd tematu
Autor
Wiadomość
roy
Wysłany: Wto 16:13, 11 Mar 2008
Temat postu: lista 2
zadanie 1
Kod:
program zadanie_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
type
intwsk=^integer;
realwsk=^real;
b=^string;
tab=array [1..n] of integer;
ptab=^tab;
ptosoba=^tosoba;
tosoba=record
nazwisko:string[20];
r,m,d:integer;
id:integer;
end;
var
aa:intwsk;
bb:b;
ii:realwsk;
tabltab;
toosobatosoba;
x:byte;
begin
randomize;
New(aa);
aa^:=random(100)+1;
New(ii);
ii^:=random(15)/(random+1);
New(tabl);
for x:=1 to n do
tabl^[x]:=random(100);
New(toosoba);
with toosoba^ do
begin
write('Nazwisko: ');
readln(nazwisko);
write('Podaj rok: ');
readln(r);
write('Podaj miesiac: ');
readln(m);
write('Podaj dzien: ');
readln(d);
write('Id: ');
readln(id);
end;
New(bb);
bb^:=toosoba^.nazwisko;
writeln(' Wskazniki zawieraja adresy elementow: ');
writeln(' aa:',aa^,' ii:',ii^:0:2,' bb:',bb^);
write(' Tablica zawiera:');
for x:=1 to n do write(tabl^[x],', ');
writeln;
writeln(' Rekord zawiera:', toosoba^.nazwisko,', ',toosoba^.r,'.',toosoba^.m,'.',toosoba^.d,' ',toosoba^.id);
readln;
dispose(aa);
dispose(bb);
dispose(ii);
dispose(tabl);
dispose(toosoba);
writeln('>>> Pamiec wyczyszczono <<<');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin