Strona 2 z 2 PierwszyPierwszy 12
Pokaż wyniki 11 do 19 z 19

Temat: turbo pascal-zadanie

  1. #11
    Zarejestrowany
    Mar 2008
    Postów
    94

    Domyślnie

    hedVB - na naturalnym białku servatkowym ciężko mieć 50cm w łapie: )

  2. Domyślnie

    No niby tak - ale tego co się nasłuchałem o metanabolu itp to strach w prawdzie kumpel doszedł naturalnie do 90 na klate dopiero wtedy zaczął brać mete i jakoś trochę otępiał, dawniej był bystrzejszy więc wolę nie ryzykować

    /I nie przesadzaj że masz 50cm w łapie

    Ale offtop
    Ostatnio edytowane przez hedVB : 04-01-2008 - 15:11

  3. #13
    Zarejestrowany
    Mar 2008
    Postów
    94

    Domyślnie

    hedVB - no jeszcze nie ale to tylko kwestia czasu i kwestia środków; te 6 cm zrobię w 2 lata tak mysle;
    Na razie kupuiłem nowe pro-hormony. Też jest po nich power - ale w polsce są nielegalne i ewentualnie można je dostać z ekspozycji sklepowych po znajomości..

    PS: co do offtopa to chuj z tym - i tak nikt już nic nie wniesie do tego tematu
    co to znaczy do 90kg naturalnie na klatę ? na 1 raz ?

  4. Domyślnie

    To znaczy że nie brał żadnych sterydów, wszystko naturalnie - położył się na ławeczce i dawaj 90 kg, niestety stanął na tym poziomie dopóki nie zaczął brać metanabolu - teraz wyciska grubo ponad setke ale nie wiem dokładnie ile A ja szukałem sposobu na szybki przyrost masy więc zakupiłem 2,5 kg białka serwatkowego i teraz tego zjeść nie moge

  5. #15
    Zarejestrowany
    Mar 2008
    Postów
    94

    Domyślnie

    hedVB - no wiesz...białko nie jest suplementem na jak sie wyraziłeś szybki przyrost masy no ale jest budulcem i coś do przodu pójdzie; Jedz ok 3gr na 1kg masy ciała i do tego min. 4gr węglowodanów na 1kg masy ciała to coś Ci pójdzie;
    A metanabol to lajt jak dla mnie to po 400-500 tab w cylku trzeba wziąć żeby coś szarpneło

    PS: a wynik nie jest imponujący te 90kg nawet jak na sucho; no ale lepiej ćwiczyć niż nic nie robic

  6. Domyślnie

    Cytat Napisał SARS Zobacz post
    A metanabol to lajt jak dla mnie to po 400-500 tab w cylku trzeba wziąć żeby coś szarpneło
    Jakie chcesz zielsko na grób?

    90KG na klate bez wspomagaczy to wydaje mi się bardzo dobry wynik, niektórzy odrazu zaczynają od anabolików takim tylko współczuć

    Jedz ok 3gr na 1kg masy ciała i do tego min. 4gr węglowodanów na 1kg masy ciała to coś Ci pójdzie;
    To znaczy 3 gramy białka * moja waga = jakbym tyle zjadł to bym miał cały tydzień wrażeń zapewniony

  7. #17
    Zarejestrowany
    Mar 2008
    Postów
    94

    Domyślnie

    hedVB - nie nie bój się tak tej dawki; Methandienone można zażywać w dawce do 40mg dziennie czyli 8 tab (po 5 mg)

    8tab*45dni = 365 tabletek - no faktycznie z tym 500 trochę przesadziłem
    bo nie można go stosować dłużej niż 6tyg ze względu na wysokoą hepatotoksyczność (grupa 17AA) - szkodliwa dla wątroby;

    Jesli chodzi o to białko to niestety - jak chcesz mieć wyniki to min 2gr na 1kg masy ciała a kulturyści zawodowi jedzą po 3...

  8. Domyślnie

    Dobra kończmy bo jeszcze nam się oberwie

    Wiem jak wygląda cykle mety a co do białka to po takiej dawce masz dni nie wychodne - próbowałem zwiększyć dawkę teraz żałuje to zdecydowanie za dużo

    EOT

  9. #19

    Domyślnie

    Dobra, sorry, że odkopuje ale szukam właśnie na necie wszystkich kłopotów z zadaniami i rozwiązuje, żeby poćwiczyć.

    Oto Moja wersja rozwiązania tego problemu:
    Kod:
    {Napisz program ktory bedzie wyliczal spostod "N" podnaych liczb,
    ilo˜† liczb parzystych oraz nieparzystych podajĄc ich sum© oras ˜redniĄ}
       Uses CRT;
    var
     c:word;
     n:Char;
     a,znak,b,kl:integer;
     super,super2,x,y,z:extended;
     liczba:array[1..30000] of integer;
    
     PROCEDURE wprowadz;
    
       begin
      writeln('wprowadz liczbe nr: ',a,'z 30000;');
           readln(liczba[a]);
      writeln('wprowadziles na pozycji ',a,'z 30000 liczbe: ',liczba[a]);
      writeln('Jesli chcesz zanoäczy† wprowadzanie wcisnij [ESC]');
      repeat until keypressed;
        n:=readkey;
         c:=Ord(n);
       end;
    
     PROCEDURE parzyste;
    
      begin
           a:=0; b:=0; super:=0;
                                         repeat
       a:=a+1;
       x:=liczba[a]/2; y:=round(x);
       if x=y then
       begin
       b:=b+1;
       super:=super+liczba[a];
       end;
                                        until a=kl;
      super2:=super/b;
        clrscr;
        writeln('Suma l.parzystych wynosi: ',super); writeln('ich srenia natomiast: ',super2);
        readln;
       end;
    
      PROCEDURE nieparzyste;
    
       begin
       a:=0; b:=0; super:=0;
                                      repeat
       a:=a+1;
       x:=liczba[a]/2; y:=round(x);
       if x<>y then
          begin
       b:=b+1; super:=super+liczba[a];
          end;
                                     until a=kl;
      super2:=super/b;
        clrscr;
        writeln('Suma l.nieparzystych wynosi: ',super); writeln('ich srenia natomiast: ',super2);
        readln;
      end;
    
    BEGIN
    
      clrscr;
      writeln('Wprowadz liczby, a gdy skoäczysz wcisnij [ESC]');
                a:=0;
      repeat a:=a+1;
    wprowadz;
      until c=27; kl:=a;
    
        repeat
       clrscr; 
      writeln('[1] suma oraz srednia liczb parzystych');
      writeln('[2] suma oraz srednia liczb nieparzystych');
      writeln('[3] exit');
          readln(znak);
      if znak=1 then parzyste; if znak=2 then nieparzyste;
       until znak=3;
    
    END.
    Ostatnio edytowane przez matzo : 07-26-2009 - 17:47

Strona 2 z 2 PierwszyPierwszy 12

Podobne wątki

  1. Free Pascal - poczatki...
    By lokid in forum Delphi/Pascal/Lisp
    Odpowiedzi: 7
    Autor: 02-16-2010, 09:38
  2. Odpowiedzi: 4
    Autor: 11-20-2007, 10:52
  3. turbo pascal kody zrodlowe
    By faD in forum Delphi/Pascal/Lisp
    Odpowiedzi: 11
    Autor: 05-30-2007, 20:47
  4. zadnia z informatyki --> pascal
    By slawek14 in forum Delphi/Pascal/Lisp
    Odpowiedzi: 6
    Autor: 04-13-2007, 19:13
  5. Pascal prostokąt
    By kosiarz in forum Delphi/Pascal/Lisp
    Odpowiedzi: 3
    Autor: 03-04-2007, 02:30

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj