Rhymond

Tempk kodą čia ;)

o tai jei iš naujo vedi kito gal prašys

Sveikas, sėkmės darbuose ;)

Kaip tik nesenai sprendžiau

program Gimtadienis;

Const   Cduom = 'U1.txt';
       Crez  = 'U1rez.txt';


Var     yy,
       mm,
       dd,
       klaida    : integer;
       data      : string;
       Kelemieji : boolean;
       F, B      : text;
{------------------------Funkcijos ir procedûros------------------------------}
Procedure nuliukas(var strc : string; x : integer);
Begin
   if x >= 10 then str(x, strc)
              else
                begin
                 str(x, strc);
                 strc := '0' + strc;
                end;
End;

Procedure Rasyti(a, b : integer);
Var stra, strb : string;
Begin
   nuliukas(stra, a);
   nuliukas(strb, b);
   WriteLn(F, yy,'-',stra,'-',strb);
End;

procedure tikrinti(a, b : integer);
Var tinkaa, tinkab : boolean;
   maxb           : integer;
Begin
maxb := 0;
tinkaa := false;
tinkab := false;
   if a <= 12                     then
   begin
    tinkaa := true;
    if (a = 1)  or (a = 3)  or
       (a = 5)  or (a = 7)  or
       (a = 8)  or (a = 10) or
       (a = 12)                      then maxb := 31
                                    else
    begin
    if (a = 2)                       then
    if kelemieji = true              then maxb := 29
                                     else maxb := 28;
                                          maxb := 30;
    end
   end
                                  else tinkaa := false;
   if b <= maxb                   then tinkab := true
                                  else tinkab := false;
   if (tinkaa = true) and (tinkab = true) then Rasyti(a, b)
                                          else
                                          begin
                                           klaida := klaida + 1;
                                           if klaida = 2 then
                                           WriteLn(F, 'NETEISINGA');
                                          end;
End;

Procedure mmdd(var x, y : integer);
Var str : string;
   er  : integer;
Begin
  str := copy(data,1,2);
  val(str, x, er);
  str := copy(data,4,2);
  val(str, y, er);
End;

Function arkelemi : boolean;
Begin
   If yy mod 4 = 0 then arkelemi := true
                   else arkelemi := false;
End;

Procedure spresti;
var m, me, d : string[2];
   er : integer;
Begin

   m := copy(data,7,2);
   val(m, yy, er);
   if yy <= 6 then yy := 2000 + yy
              else yy := 1900 + yy;
   kelemieji := arkelemi;

   Assign(F, Crez); ReWrite(F);
   mmdd(mm,dd);
   tikrinti(mm,dd);
   mmdd(dd,mm);
   tikrinti(mm,dd);

   Close(F);
End;


Procedure Duomenys;
Begin
klaida := 0;
Assign(B, Cduom); Reset(B);
   ReadLn(B, data);
Close(B);
End;

{--------------------------Pagrindinë programa--------------------------------}

begin
 Duomenys;
 spresti;
end.

Pasinagrinėk

Tikrai galėjau optimalesnį variantą daryt, bet nebesprendžiau antrą kart. Bet dar turiu minčių kaip trumpint kodą

Man nieko tvarkyk savo naršyklę ;)

atsisiūsk video tutorialų, ar šiaip kokią e-book ar paprastą knygą išjunk intiką ir spręsk uždavinius nagrinėk ;) bet būk ne namuose aš manau. Ten kur mažiau gali surast kokios kitos veiklos. Ir išvis nemanau kad tau programavimas patinka jei negali susikoncentruoti į jį ,nebent esi labai nemokantis į vieną dalyką koncentruotis ( o tai nėra gerai ). Sakau svarbiausia mano manymu atsiriboti nuo interneto ir kitų veiklų ir sutelkt visą dėmesį į programavimą.

nuskaitai masyvą paskuj algoritmas

min := M[1];

For i := 2 to 6 do

if M < min then min := M;

Prašom ;)

Program Raimondas;
Var zodis : string;
   kiek, k, i, x : integer;
Begin

WriteLn('iveskite zodi: ');
ReadLn(zodis);
   kiek := length(zodis);
   k := kiek;
   x := 0;
       For i := 1 to kiek do
       begin
           if zodis[i] <> zodis[k] then x := x + 1;
           k := k - 1;
       end;
   if x > 0 then WriteLn('Zodis nepolidnromas')
            else WriteLn('Zodis polindromas');
   readln;
end.

Prašom ;)

zippyshare, soundcloud, youtube(bet kokybė nekokia)

Parašykite programą, kuri duotojo tekstinio failo visus žodžius, kurie

sutampa su atbulai parašytais žodžiais (pvz., "ala" "salas" ), įrašo

į kitą nurodytą tekstinį failą.

ir parašyk kodą, nes man kažkas ten nesgauna :D

parodyk kiek tu padaręs ;)

Tai tiesiog padaryk atsikirus failus.

žmogus įeina į pagrindinį puslapį (index.php). ten mato 5 ar kiek tau reikia pasirinkimų. Spaudžia jį nuveda į tą puslapį kokio jis norėjo ir mato nuotraukas kokių jis nori.

beardymanas pats pats geriausias ;)

jei nori kad rodytų pačiame faile lietuviškas raides tai daryk utf-8 without BOM encoding

Jei kad atvaizduotų tinklapį kaip rašė gedux

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

šiaip stilius yra čia :)

style="border: medium none; overflow: hidden; height: 20px;

Bet labai generaliai tu jo nepakeisi ;)

aš tiek pagaunu kad taškas M(0;0) tinka :D ir dar man šviečia kad bus apskritimas :D

tai kiek supratau - įmanoma. Dėkui už atsakymus.

Štai source kode radau :)

h1 a {

text-decoration: none;

color: #666;

position: absolute;

-webkit-mask-image: -webkit-gradient(linear, left top, left bottom, from(rgba(0,0,0,1)), color-stop(50%, rgba(0,0,0,.5)), to(rgba(0,0,0,1)));

}

Sveiki dar kartą visi,

 

Taigi... neturiu ką dabar nuveikt su programavimu, nes neturiu įdėjų, su kuriomis galėčiau išmėginti ir tobulinti savo sugebėjimus, tai vat man reikėtų jūsų pagalbos, gal kas patartumėt su PHP programavimu, ką galėčiau gero, įdomaus padaryt? Nes įdėjų kaip ir nebeliko pas mane.

atsiprašau už double ;/

TVS

Galėčiau padėti ;)

ai nedaskaičiau kad mažiau nei 10 :) jo tada gerai :) 10LT :)

bloga salyga :)

na tai su ifu gi :) nežinau kaip ant c++ bet ant pascalio IF v = 24 then v = 0;

tai kam parduodi jei pelnas 300/men?

Man ir toks klausimas pasistojo ;D

Vajėzus :) TOTAL KOŠMAR

taip tikiu ;)