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ść
Siwy
Wysłany: Wto 12:46, 04 Mar 2008
Temat postu:
a ma ktos te zadania o rekordach ?
stramik
Wysłany: Nie 12:15, 24 Lut 2008
Temat postu: lab1 - trawka
Kod:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
StrUtils;
var
i,p,k:integer;
s:string;
begin
writeln('Wprowadz zdanie');
readln(s);
p:=0;
k:=0;
for i:=1 to length(s)+1 do
begin
if p=0 then
begin
if s[i] in ['a'..'z','A'..'Z'] then
begin
p:=i;
end;
end;
if (k=0) and (p>0) then
begin
if not(s[i] in ['a'..'z','A'..'Z']) then
begin
k:=i-1;
end;
end;
if (p>0) and (k>0) then
begin
writeln(midstr(s,p,k-p+1));
p:=0;
k:=0;
end;
end;
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