Zabawa!

To co lubimy najbardziej :D

Zabawa!

Postprzez raf Cz sie 10, 2006 8:29 pm

No więc z racji tego że jest nudno to się pobawimy.
Tak więc zapraszam wszystkich do wspólnej zabawy :D Chłopców i dzięwczęta :lol: (ROTFL).

Jedna osoba zarzuca zlecenie na program a nastepna je realizuje i zarzuca następne :D
(Ale żeby to był krótkie programy, takie jak na lekcji PS)

Umówmy się, że programista dobiera sobie język programowania, najlepiej żeby to był TP, C++ albo PHP. Basic też może być, najwyżej będe się musiał doedukować :D


To zaczynamy:

Napisz program, który pobierze ze standardowego wejścia ciąg znaków, zwanych dalej tekstem jawnym oraz wypisze na standardowe wyjście jego zaszyfrowany odpowiednik. Algorytm szyfrujący opiera się na różnicy symetrycznej. Każdy znak ciągu musi być poddany działaniu XOR z innym znakiem w KLUCZU. KLUCZ jest to stały ciąg znaków określony przez programiste. Jeżeli jest on krótszy od ciągu, to należy go powtórzyć. Ponieważ podczas tego działania można otrzymać znaki nie nadające się do wypisania na ekranie, należy użyć dwucyfrowych wartości szesnastkowych.

Przykładowo:

KLUCZ: ABC
ciąg: zskrlz

z XOR A = 3B
s XOR B = 31
k XOR C = 28
r XOR A = 33
l XOR B = 2E
z XOR C = 39

Działanie XOR przedstawia się następująco
p XOR q = PRAWDA <=> (p AND (NOT q)) OR ((NOT p) AND q)

przy czym działamy na każdym bicie z osobna

czyli
ASCII('A')= 01000001
ASCII('B')= 01000010

to wtedy 'A' XOR 'B' = 01000001 XOR 01000010 = 00000011

ponieważ
01000001
01000010
-----------
00000011

(w bajcie wynikowym bit ustawiony jest na pozycjach, na których występuje różnica w operandach.


Oczywiście większość języków programowania zna operator XOR lub ^ i nie trzeba tego liczyć na piechote :)


Ostatnio edytowano Pt sie 11, 2006 3:09 pm przez raf, łącznie edytowano 2 razy
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez Jogurt Cz sie 10, 2006 8:33 pm

w sumie można zrobić osobną kategorie odnośnie programowania...byłyby osobne działy do każdego z języków np html/php, c/c++ i tak dalej. Byś mógł zaprosić tutaj kumpli wkręconych w programowanie :>

co Ty na to, Raf dogg? :D
Avatar użytkownika
Jogurt
Extreme Coderz
 
Posty: 488
Dołączył: Pt cze 23, 2006 1:57 pm
Lokalizacja: KZG

Postprzez raf Cz sie 10, 2006 8:42 pm

Ja widziałem poprzednią odpowiedź którą na szybko usunąłeś! i tak cie znajde :D


// Poza klasą nie mam tu kogo wkręcić :P Sajan i benek mogli by sie wkrecic ale benek zacznie zapodawac gotowce z netu, bo taki program z pewnoscia da sie znalezc... A myslalem ze niektorzy chcą sie uczyc inf. to im sie spodoba :/


A kategorie zalozymy jak będzie tu więcej niż 5 tematów :-]
Obrazek
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez Jogurt Cz sie 10, 2006 8:49 pm

nie no, bo widzisz, znam paru ludzi którzy co prawda się nie znają na programowaniu, ale muszą w tym siedziec i mają częste problemy, co można by tutaj rozwiązywać :)
Avatar użytkownika
Jogurt
Extreme Coderz
 
Posty: 488
Dołączył: Pt cze 23, 2006 1:57 pm
Lokalizacja: KZG

Postprzez benethor Cz sie 17, 2006 10:00 am

Tey Fanatic ja nie jestem takim lamuchem jak heniu i jak są zadania to piszę sam, so get off mee, man. A zadanko napiszę jeszce dzisiaj i jutro ci coś ciekawszego wyszukam lame...
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Postprzez benethor Cz sie 17, 2006 10:01 am

Aha właśnie na ThemBcu to mam kilku qmpli co by ich można w to wkręcić.
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Postprzez raf Cz sie 17, 2006 1:56 pm

Okey. Ale to zadanie masz sam wymyślić a nie wyszukiwac z hardcoreowych portali bo nie o to chodzi :P I żeby krótkie było :P
Obrazek
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez benethor Cz sie 17, 2006 4:47 pm

Wiem że chodzi o shortcoding a poza tym nie muszę szukać po necie żeby ci znaleźć zadanie którego nie będziesz w stanie zrobić... A wkręciłem na razie mojego młodszego on wkręci swoją siatkę, jeszcze pogadam z jednym gościem i będzie nas kilku...
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Postprzez benethor Cz sie 17, 2006 5:05 pm

raf napisał(a):A myslalem ze niektorzy chcą sie uczyc inf. to im sie spodoba :/


Tey a kto to taki w naszej klasie co "chce się uczyć inf. " a dokładnie kodzenia?

w działach publicznych opcja edycji swoich postów powinna działać. używajcie jej, jeden z drugim :P
//Jogurt


Dobra, Jogobella :P
Ostatnio edytowano Pt sie 18, 2006 12:37 pm przez benethor, łącznie edytowano 1 raz
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Postprzez Majer Cz sie 17, 2006 6:51 pm

Na czas wakacji zamykamy temat dla waszego dobra...
Avatar użytkownika
Majer
Extreme Coderz
 
Posty: 540
Dołączył: Cz sie 17, 2006 6:44 pm

Postprzez raf Cz sie 17, 2006 6:56 pm

Niestety :P Jogi i ja o tym decydujemy :P A ja zdecydowałem że trzeba więcej takich :twisted: :twisted: :twisted:

@Benek: dobrze że jestem adminem bo by nas na taczkach stąd wywieźli :D
Obrazek
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez benethor Pt sie 18, 2006 9:47 am

Raf: Mnie nie. Ja sobie umiem poradzić z takimi co za taczki biorą przy byle okazji(Ku Chwale Panów Budowlańców Co To Mi Gimnazjum Odnawiają :D )

Majer: Wakacje to tylko jeszcze niecałe dwa tygodnie. Pora się wziąć do chaty i wytrzeźwieć od świeżego powietrza, bo teraz trzeba będzie przejść na opary z klimy. Poza tym co miałeś z kodzenia na koniec roku? No właśnie. Myślisz, że się z tym utrzymasz?

Przy okazji mam już rozwiązanie zadania nr 1:
Kod: Zaznacz cały
program XCrypt;
uses crt;

function Char2Hex(ch:char):string;          {konwersja kodu znaku na zapis szesnastkowy}
const HexTable:string='0123456789ABCDEF';
var hnibble,lnibble:byte;
begin
  hnibble:=ord(ch) div 16;
  lnibble:=ord(ch) mod 16;
  Char2Hex:=HexTable[hnibble+1]+HexTable[lnibble+1];
end;

const klucz:string='Benethor';

var a,offs_w_kluczu:byte;
    tekst:string;

begin
clrscr;
write('Podaj tekst do zaszyfrowania: ');
readln(tekst);
offs_w_kluczu:=1;
for a:=1 to length(tekst) do               {petla szyfrujaca}
  begin
   tekst[a]:=chr(ord(tekst[a]) xor ord(klucz[offs_w_kluczu]));
   inc(offs_w_kluczu);
   if offs_w_kluczu > length(klucz) then offs_w_kluczu:=1;
  end;
writeln;
for a:=1 to length(tekst) do write(Char2Hex(tekst[a]));  {wyswietlanie}
writeln;
readln;
end.


A teraz pora na moje zadanie. Jako że miało być proste to odczytajcie mi z systemu jaki dzień tygodnia będzie pojutrze. Nie wolno używać danych z CMOS, Raf...
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Postprzez raf Pt sie 18, 2006 4:31 pm

Nie wiem czy o to ci chodziło. Skoro nie można sobie odczytać to obliczyłem korzystając z ogólnodostępnych wzorów :P

Kod: Zaznacz cały
program dni_tygodnia; {Rafaˆ Broll, 2H, program zwraca dzien tygodnia pojutrze}

uses dos;

const
dni:array[0..6] of string=('poniedzialek','wtorek','sroda','czwartek','piatek','sobota','niedziela');

var
rok,miesiac,dzien,dzientygodnia,godzina,minuta,sekunda,sekunda100:word;
a,y,m:real;
datajulianska:longint;


begin
getdate(rok,miesiac,dzien,dzientygodnia);
{tutaj moznaby skonczyc program ale zalozenia programu mowia by nie korzystac z CMOS}
gettime(godzina,minuta,sekunda,sekunda100);

a:= (14-miesiac) div 12;
y:= rok+4800 - a;
m:= miesiac + 12*a - 3;


datajulianska:= trunc(dzien + int((153*m+2) / 5) + 365*y  +  int(y / 4) - int(y / 100) + int(y / 400)  - 32045);


write('Pojutrze bedzie ',dni[(datajulianska+2) mod 7],' maaan!');
readln;



end.


Powiedz czy dobrze.. zadanie potem wymyśle :P
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez Piro So sie 19, 2006 10:52 am

Ludzie pogieło was, chyba :evil:

Sa wakacje i zgadzam sie z wypowiedzią Majera, Yogurcie Wielki zamknij ten temat bo oni w te wakacje wogóle z chaty nie wyjdą. :shock:
Obrazek
Obrazek
"Jak powiedział stary góral Polska będzie aż po Ural. Za Uralem będą Chiny, was nie będzie s********y"
Avatar użytkownika
Piro
Extreme Coderz
 
Posty: 256
Dołączył: Śr sie 02, 2006 3:23 pm
Lokalizacja: Poznań

Postprzez raf So sie 19, 2006 2:56 pm

Zamilcz! :twisted:
Obrazek
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez Piro So sie 19, 2006 5:46 pm

Zamilcz! :twisted:


buhaha[zwija sie ze smiechu] :twisted:

Nie no luz, ja juz nic nie mowie, tylko weź krem z filtrem 60 jak wyjdziesz po raz pierwszy z domu dnia 4 Września(najlepiej przesmaruj sobie też oczy), bo jeszcze sie roztopisz od upałów jakie mogą wtedy panować :P
Obrazek
Obrazek
"Jak powiedział stary góral Polska będzie aż po Ural. Za Uralem będą Chiny, was nie będzie s********y"
Avatar użytkownika
Piro
Extreme Coderz
 
Posty: 256
Dołączył: Śr sie 02, 2006 3:23 pm
Lokalizacja: Poznań

Postprzez raf So sie 19, 2006 6:10 pm

Okey... nie mam pomysłu więc będzie łatwe (może dzięki temu ktoś inny zrobi):

Napisz program który wczyta ze standardowego wejścia ciąg liczb całkowitych i zwróci na standardowym wyjściu ich największy wspólny dzielnik.
Obrazek
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez benethor Śr sie 23, 2006 7:03 pm

Raf: Tak, o to chodziło. A poza tym: Eeeeej, to było na lekcji...LAME wymyśl coś nowego.

Piro: MILCZ NIEPROGRAMISTO!!!
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Postprzez raf Śr sie 23, 2006 8:48 pm

Owszem było ale ktoś mi mówił że to pierwszy program który kapuje i że zrobi. Poza tym myślisz że każdy pamięta algorytm euklidesa? A tak zrobimy dobry uczynek, ludzie sobie poprzypominają co było na lekcjach i może nie będą mieli głupawek na początku roku :P A poza tym dlaczego ty masz wszystko tu pisać?

Ale ok, następnym razem bardziej się postaram :D

A teraz robić do jasnej ciasnej bo to jest robota na mąłą przerwę :P
Obrazek
Avatar użytkownika
raf
 
Posty: 672
Dołączył: Śr lip 05, 2006 7:13 pm
Lokalizacja: Poznań

Postprzez benethor Cz sie 24, 2006 4:10 pm

Dobra, ja stopuję z kodzeniem dla tego działu do czasu aż ktoś spoza TK_COOL@CZE_TEAM coś napisze.
GRSuperliga: Najlepsza w tym kraju liga GeneRally F1
http://grsuperliga.oinfo.eu

A windows tak jest brzydki... xD
Avatar użytkownika
benethor
 
Posty: 318
Dołączył: Cz sie 17, 2006 9:56 am
Lokalizacja: TheMbiec

Następna strona

Powrót do Programowanie

Kto przegląda forum

Użytkownicy przeglądający to forum: Brak zalogowanych użytkowników i 0 gości