NIUSY

« 1 2 3 4 5 ... 57 58 59 60 61 62 63 64 65 66 67 ... 69 70 71 72 73 »
Nick:°jabol° Dodano:2003-02-21 02:42:02 Wpis:ido krowy z babilonu... i hajlese nacje na motorowerze.. jednym jedzimey pociagiem do nikad...
Nick:mieki Dodano:2003-02-21 00:37:37 Url:jw bez mieki@ Wpis:http://www.latke.net/mahnamahna/mahnamahna.mpeg
Nick:gruxlix Dodano:2003-02-20 23:31:38 Wpis:http://www.bordergatewayprotocol.net/~jon/media/because/
komentarz jest... wydaje mi sie... zbedny
Nick:mieki Dodano:2003-02-20 21:52:11 Url:www.lorenc.to.pala.prv.pl Wpis:[...] lassan tovább állnak - mondta a miniszterelnök, aki szerint ez természetes folyamat. Esebeszernok.

Zgadzam sie z przedmowca, przejdzmy od slow do czynow.
Nick:k. Dodano:2003-02-20 17:38:58 Wpis:ciekawe.. stala Planca nie jest stala
Nick:Mictlantecuhtli Dodano:2003-02-20 17:26:22 Url:www.mat-pi.prv.pl Wpis:Tak się tam wpisuje, bo nie mam co robić :)
Nick:f Dodano:2003-02-20 17:03:19 Wpis:Felszólalásában hangsúlyozta, hogy a kormánynak több célt, így a gazdasági növekedést, az egyensúlyt, az infláció csökkentését és a foglakoztatás növelését kell szem előtt tartani, köztük a harmóniát megteremteni. A kormány gazdaságpolitikai váltást akar végrehajtani a magasabb hozzáadott érték elérése érdekében. Az alacsony bérekből származó előny ugyanis csak időleges, így akik emiatt fektetettek be tőkét magyarországon, lassan tovább állnak - mondta a miniszterelnök, aki szerint ez természetes folyamat. Esebeszernok.
Nick:°jabol° Dodano:2003-02-19 01:19:00 Wpis:pozwole sobie zacytować pewnego pana Żula ze Zwierzyńca który kiedyś powitał nas strudzonych podróżnych w swoim mieście:" Świat należy do nas!"
o!
jedziemy do fafki 15.27 lub 17.27 z lublina cipongiem. albo ciapongiem.. zalezy co przyjezie.
Nick:B.Marley - Car Dodano:2003-02-18 22:30:36 Wpis:http://www.leoslyrics.com/listlyrics.php?sid=%09%7B%BF%9E%B7%AE%40%18
Nick:marjan Dodano:2003-02-18 19:08:14 Wpis:nie wiem czy zwróciłeś uwagę ale niewiele widać mózgu u kobiety to chyba jakaś blondynka ;]
Nick:mieki Dodano:2003-02-18 18:08:15 Wpis:nowe logo swiecia - http://www.rotfl.prv.pl/rtg.jpg
Nick:mieki Dodano:2003-02-18 12:38:28 Wpis:Kochana opium w walentynki to ja bylem w kfc i mi te udka z czegos tam zaszkodzily.o!
Nick:jezus Dodano:2003-02-18 12:37:53 Wpis:nazwana prawda jest przeklamana to bestia jest znana imie szatana ma...
Nick:opium Dodano:2003-02-18 12:37:02 Wpis:wam sie wszytkim na musk zucilo i to powaznie
to wszysstko przez te Walentynkiiiiii
Nick:°jabol° Dodano:2003-02-18 00:37:13 Wpis:jak to kto? mysta magista socent Ząbek vel Zombi Światomir.. to on pisze programy.
Nick:c Dodano:2003-02-17 18:46:41 Wpis:to topry chłopak był i mało pił
Nick:ż Dodano:2003-02-17 17:50:46 Wpis:ja *****ole.. kto tak pisze programy ;->
Nick:program Dodano:2003-02-17 17:22:41 Wpis:uses sysutils;
type real=double;

procedure wczytajPkt(var x1,y1,x2,y2,x3,y3:real);
{procedura wczytuje wspolrzedne trzech punktow roznych od siebie }

procedure Wczytaj(intencja:string; var x,y:real);
begin
writeln(intencja);
readln(x,y);
end;

function Sprawdz(x1,y1,x2,y2:real):boolean;
begin
sprawdz:=(x1=x2) and (y1=y2);
end;

begin
Wczytaj('Wspolrzedne piwerwszego wierzcholka ',x1,y1);
wczytaj('Wspolrzedne drugiego wierzcholka ',x2,y2);
while Sprawdz(x1,y1,x2,y2) {punkty maja te same wspolrzedne}
do wczytaj('Podany punkt jest rowny poprzeniemu podaj ponownie ',x2,y2);
{punkty pierwszy i drugi maja rozne wpsolrzedne}
wczytaj('Wspolrzedne trzeciego wierzcholka ',x3,y3);
while Sprawdz(x3,y3,x2,y2) or Sprawdz(x1,y1,x3,y3)
do wczytaj('Podany punkt jest rowny poprzeniemu podaj ponownie ',x3,y3);
end;{wczytajpkt}

procedure pole(a,b,c:real; var p:real);
{podpisywac komentarze ;-)}

begin
p:=(a+b+c)/2;
p:=sqrt(p*(p-a)*(p-b)*(p-c));
end; {pole}
PROCEDURE SpytajCzyChce(Intencja:STRING; VAR Zamiar: Boolean);
{procedura podstawia pod Zamiar warto¶ć True gdy człowiek na pytanie
"Czy chcesz ?(T/N)" odpowie napisem rozpoczynaj±cym się od
'T' albo 't', warto¶ć False gdy odpowie 'N' albo 'n'. Inne
odpowiedzi s± ignorowane}
VAR Respons: Char;
BEGIN
WriteLn; Write('Czy chcesz ':20,Intencja,'?(T/N)'); ReadLn(Respons);
WHILE {odpowiedĽ niedopuszczalna}
NOT((Respons='T') OR (Respons='t') OR (Respons='N') OR
(Respons='n'))
DO
BEGIN
WriteLn; WriteLn('Nie rozumiem...!');
Write('Czy chcesz ':20,Intencja,'?(T/N)'); ReadLn(Respons)
END {Petli zaporowej};
{teraz już odpowiedĽ brzmi T,t,N lub n}
Zamiar:= (Respons='T') OR (Respons='t')
END {SpytajCzyChce};
var onchce:boolean;
x1,y1,x2,y2,x3,y3,p:real;
begin
onchce:=true;
while onchce do
begin
wczytajPkt(x1,y1,x2,y2,x3,y3);

pole(sqrt(sqr(x2-x1)+sqr(y2-y1)),sqrt(sqr(x3-x1)+sqr(y3-y1)),sqrt(sqr(x3-x2)+sqr
(y3-y2)),p);
writeln('pole tego trojkata wynosi: ',p:0:4);
SpytajCzyChce('czy chcesz podac kolejny zestaw danych;',onchce);
end;
end.
Nick:ó Dodano:2003-02-17 15:09:08 Wpis:ja jeszcze nie bylem, ale kolega mowil ze faktycznie fajnie
Nick:°jabol° Dodano:2003-02-16 23:00:04 Wpis:byłem w teatrze na Romeo i Julii.. kuźwa.. julia to swoje kąsa. tak uszczypliwa jest. ale no.. nie głupi gust ma romeo. no i fogle dużo fok w teatrze.
« 1 2 3 4 5 ... 57 58 59 60 61 62 63 64 65 66 67 ... 69 70 71 72 73 »