C_Linas

Na man atrodo reikai sukti ciklą ir jame dar vieną.Pagrindiniame žiūrėti kiekviena simbolį,jeigu jis yra vienas iš '{ [ ( ' tada sukti vidui kitą ciklą nuo sekančio simbolio ir ieškoti tokio pat skliausto,jeigu randa - ok,neranda - reiškias nekorektiškai.Taip pat tas vietas kur buvo patikrinti skliaustai reiktų išsisaugoti,masyve turbūt ir kiekvieną kart žiūrėti ar jau tas skliaustas nepatikrintas.

Čia ant greičio kiek pažiūrėjus kilo minčių,gal išmastysi :)

Tokių ir nedėjau.Užteko vieną kartą 8 uždėti.:) Jokių gidų man nereikia,nes laiko per daugiausiai nėra,kai turėsiu laiko taip ir užsuksiu.Kaip taip pasikėliau kažkas klausė? Nežinau ir per daug nesigilinau :) Reitingus dėjau taip kaip man atrodė,atsiliepimus rašiau normalius ir savaime išėjo.Čia paslaptis kažkur reitinguose yra,spėju dėti reikia nei per didelius,nei per mažus (Bet čia jau tik mano spėjimai),pirkit gidą ir žinosit tiksliau :D

Po 10 dainų turėjau jau antrą žvaigždę.Tačiau po 15 berods vieno labai neatspėjau ir taiklumas krito gan žymiai - krito ir žvaigždė.

Tos kurios norėjau radau. http://www.youtube.com/watch?v=uEjiT43Gi7o

Užtenka paprasto masyvo,sukti ciklą while iki failo pabaigos,viduj šito ciklo sukti ciklą while iki eilutės pabaigos.(Ant paskalio taip eina,dabar c++ senai benaudojęs tai neatsimenu,bet turėtų būt:) ).Skaitai po simbolį ir tikrini ar jis nėra '*', jei ne šitas simbolis tuomet incrysini kokį kintamajį 'i' ir priskiri reikšmę masyvui.

Aš taip pat užsinoėrėjau vienos dainos,deja nežinau kaip vadinasi.Pasibaigus "Dar pažiūrėsim" ant galo grojo tą dainą,dainuoja vyras.Žodžių nelabai daug žinau,nes ne viską girdėjau,bet buvo atrodo tokie : Oh baby...Oh baby... kažkas ir teleport,berods. Mažu kas ir girdėjo ir žino tai būtų malonu gauti dainos pavadinimą :(

Tris cigaretes atidedam į šalį, ant svarstyklių dedam po dvi, jei rodo lygiai, imam tas tris, vieną atidedam, kitas dvi dedam ant svarstyklių.....

Tu žinojai.. :)

Aš ir turiu vieną uždavinį jum ;D

tarkim yra svarstyklės,bet tos kur tik rodo pusiausvyrą (Tokios -> http://urbokida.private.lt/files/2009/02/libra1.jpg ) ir turit 7 lazdeles (Kad geriau įsivaizduoti galit manyti,kad cigaretės ) iš pažiūros jos visos vienodos,bet viena iš jų yra biškį sunkesnė (tarkim prikišta daugiau tabako(Jei cigaretė)).Turit du svėrimus kaip surasit sunkesne?

O kodėl šokoladukus atimti? Ten jug irgi 2 Litai, kuriuos tu esi pasiskolinęs,bet tu juos išleidai,reiškias vis tiek skoloj 2 Litai?

Tiksliai,teisingai :) Dar kartą dėkoju.

1. Rūšys - Hadronai ir Barionai(According to Wikipedia). Vandenilis turi vieną nukleoną(protoną), o Aliuminis - 27(13 protonų ir 14 neutronų).

 

2. Grandininė cheminė reakcija. Grandininė todėl, nes dėl cheminės reakcijos išskirtos šilumos yra aktyvuojama reakcija kitam gabalėliui popieriaus. Cheminė, nes degimas - tai bet kokio elemento, šiuo atveju daugiausiai anglies jungimasis su deguonimi.

Dėkui tau.Pagal ką nustatyti nukleono rūšį? Bei kodėl vandenilis turi tik vieną nukleoną,jug yra ir 1 neutronas? :)

Dėl tos reakcijos taip gaunasi,kad teisingi abu variantai - Grandininė ir cheminė? :)

Nenorėdamas kurti temos ieškau žmogus,kuris gal būt galės atsakyti į kelis realiai nesunkius klausimus.:)

1.Kokios yra nukleonų rūšys? (Tai dalis kurios nežinau kaip atsakyti,pats nukleonas kiek supratau tai yra neutronai+protonai,bet manęs klausia taip: Kiek ir kokių nukleonų yra šiuose branduoliuose H(1 viršui, 1 apačioj) ir Al (27 viršui, 13 apačioj).

2.Sudega popieriaus skiautelė.Ar jos degimas yra grandininė reakcija? Gal cheminė ar branduolinė? Kodėl?

Fizika man niekad labai nesisekė ir nelabai aš jos mėgstu,bet man reikia atsakymų į šiuos kelis klausimus.Kadangi klausimus atsakinėjam klasėj,tai knygų nieko su savim neturiu.Žinoma reikės bandyti ieškoti dar atsakymo ir ten,bet būčiau labai dėkingas žmogui kuris pagelbėtų.:)

Berods 3 ar 4 kart skirtingai perrašiau,tačiau esmė vis tiek ta pati,rasti kainą kiek kainuotų normaliai po 4 Lt ir kiek kainuotų jei jis būtų pirkęs pakuotę,jei normalia kaina yra didesnė už tą kainą kuri būtų pirkus pakuotę atminisuot ir gauni kiek jis būtų sutaupęs,na,bet yra kaip yra , nepergyvenu :)

Kažkur žiauriai aš susivėliau,kad neišsprendžiau užduoties su limonadu,kuri buvo pati lengviausia.Atrodo kodą ir visa kitą užrašiau teisingia,turi veikt,bet surenka tik 24 taškus,taip ir išėjau nesupratęs ką praleidau...

Nežinau,nepasakyčiau,kad tie darbai labai žemo lygio,na pirmas tik nepatiko,o trečias net labai patiko :) Aišku aš su web programavimu nelabai ką išmanau,o jūs gal ten įžvelgiat kažką daugiau,bet man bendras vaizdas patinka.Kuo toliau tuo labiau tobulės,jeigu neapsileis.

Parrašiau viską atrodo ką reikia.Siūlau pačiam daryt ir nežiūrėt,nebent jau visai nesigautų.

P.S Dariau be masyvų,nes pasirodė,kad autorius dar nemoka jų.

program Skaitmenys;
 var a:integer;
//----------------------------------------------------------------------
// Kiekvieno skaiciaus skaitmenu suma
//----------------------------------------------------------------------
Procedure SkaiciuSuma(sk:integer);
 var Suma:integer;
Begin
suma:=0;
While sk<>0 do
 Begin
   if sk<10 then
   Begin
     suma:=suma+sk;
     writeln(Suma);
     Sk:=0;
   end else
   Begin
     Suma:=Suma+sk mod 10;
     sk:=sk div 10;
   end;
 end;
end;
//----------------------------------------------------------------------
// Isvedimas nelyginio skaiciaus skaitmenu sumos kvadratai
//----------------------------------------------------------------------
Procedure NelyginiuSkaiciuSkaitmenuKvadratai(Sk:integer);
 var pap,Suma:integer;
Begin
suma:=0;
While sk<>0 do
 Begin
   if sk<10 then
   Begin
     suma:=suma+sk*sk;
     write(Suma);
     sk:=0;
   end else
   Begin
     pap:=sk mod 10;
     suma:=suma+pap*pap;
     sk:=sk div 10;
   end;
 end;
end;
//----------------------------------------------------------------------
// Procedura isvedanti lyginio skaiciaus skaitmenys
//----------------------------------------------------------------------
Procedure TikLyginiaiSkaitmenys(Sk:integer);
 var pap:integer;
     Tenkina:boolean;
Begin
Tenkina:=True;
While Tenkina do
 Begin
   if sk<10 then
   Begin
     if sk mod 2 = 1 then Tenkina:=False else
     break;
   end else
   Begin
     pap:=sk mod 10;
     if pap mod 2 = 1 then Tenkina:=False;
     sk:=sk div 10;
   end;
 end;
 If tenkina then Writeln('Kadangi skaiciaus skaitmenys yra lyginiai - spausdiname ji : ',a);
end;
//----------------------------------------------------------------------
// Randama ar skaiciaus kuris nors skaitmuo yra didesnis uz
// visu skaitmenu suma be to didziausio
//----------------------------------------------------------------------
Procedure SkaitmuoDidesnisUzSkaitmenuSuma(sk:integer);
 var pap,max,suma,sk2:integer;
Begin
max:=0; suma:=0; sk2:=sk;
While sk<>0 do
 Begin
   if sk<10 then
   Begin
     if sk>max then max:=sk;
     sk:=0;
   end else
   Begin
     pap:=sk mod 10;
     if pap>max then max:=pap;
     sk:=sk div 10;
   end;
 end;

 While sk2<>0 do
 Begin
   if sk2<10 then
   Begin
     suma:=suma+sk2;
     sk2:=0;
   end else
   Begin
     pap:=sk2 mod 10;
     suma:=suma+pap;
     sk2:=sk2 div 10;
   end;
 end;
 if max>abs(suma-max) then
 Begin
   Writeln('Kadangi didz.skaicius yra didesnis uz skaitmenu suma be jo-isvedame : ',a);
 end;
end;
//----------------------------------------------------------------------
// Skaicius perrasomas atvirksciai
//----------------------------------------------------------------------
Procedure SkaiciusPerrasytasAtvirksciai(sk:integer);
 var Pap,atvirkscias:integer;
Begin
Atvirkscias:=0;
While sk<>0 do
 Begin
   if sk<10 then
   Begin
     Atvirkscias:=Atvirkscias*10+sk;
     Sk:=0;
   end else
   Begin
     Pap:=sk mod 10;
     Atvirkscias:=Atvirkscias*10+pap;
     sk:=sk div 10;
   end;
 end;
 writeln('Skaicius perrasytas atvirksciai : ',atvirkscias);
end;
//----------------------------------------------------------------------
// Pagrindine programa
//----------------------------------------------------------------------
begin
a:=1;
While a<>0 do
Begin
  readln(a);
  Write('Skaiciaus ',a,' skaitmenu suma lygi : '); SkaiciuSuma(a);
  if a mod 2 = 1 then Begin Write('Nelyginio skaiciaus ',a,' skaitmenu kvadratu suma lygi : '); NelyginiuSkaiciuSkaitmenuKvadratai(a); writeln; end;
  TikLyginiaiSkaitmenys(a);
  SkaitmuoDidesnisUzSkaitmenuSuma(a);
  SkaiciusPerrasytasAtvirksciai(a);
end;
 readln;
end.

Nors dabar iškilo klausimas ar autorius moka ir procedūras :) Bet manau viską galima parašyti į bendrą :)

 

Sąlyga: Programos pagalba kompiuteris išrenka tik tuos keturženklius skaičius kurių pirmųjų

dviejų ir paskutiniūjų dviejų skaitmenų sumos yra lygios ir apskaiciuoja kiek tokių skaičių yra.

 

Padariau mini pavyzdį pagal sąlygą,tik pesidarysi pats kaip jau tau reikia,iš kur skaičius trauksi ir panašiai.

Esmę turėtum suprast.

program Noname66;
 var P1,P2,K1,K2,i,j,n,k:integer;
     mas:array[1..100] of integer;
begin
 Mas[1]:=1221;
 Mas[2]:=5464;
 Mas[3]:=9295;
 Mas[4]:=3003;
 k:=0;
 For i:=1 to 4 do
 Begin
   p1:=mas[i] div 1000;   // P1 - pirmas skaicius
   p2:=mas[i] div 100 mod 10; // P2 - antras
   K1:=mas[i] div 10 mod 10;  // K1 - nuo galo antras
   K2:=mas[i] mod 10;  // K2 - paskutinis
   if p1+p2=k1+k2 then
   Begin
    Writeln(mas[i],'- Tinka,nes ',p1,'+',p2,'=',k1,'+',k2);
     inc(k);  //Kaupiama kiek tokiu skaiciu yra, kurie tenkina salyga
   end; 
 end;
 Writeln(' Is viso tokiu skaiciu yra : ', k);
 readln;
end.

Padariau - veikia visos tavo procedūros ir funkcijos,tik tiek,kad reikėjo pakeist truputį.Gali vienas dalykas gal būt blogai,kad kai išmeta skaičius vietoj jo būna 0, tačiau kiekvienoj procedūroj tam yra tikrinimo sąlyga,gal būt tiks.

Sau masyvą užsipildžiau šiaip,pasidarysi jau gal su nuskaitymu jeigu reikia ar įvedimu iš klaviatūros.

program Bevarde8;
type masA = array [1..100] of real ;
    masB = array [1..100] of integer ;
 var n, i : integer;
            m : masA;
          sum,vid : real;

//------------pradzia. funkcija: vidurkis --------
function vidurkis(n:integer) : real;
 var i : integer;
begin
 for i:=1 to n do
 if m[i]<> 0 then
 sum := sum+m[i];
 vidurkis  := sum/n;
end;

// -----------------------------------------
//-------procedura didinanti,mazinanti---------
procedure didmaz(s:real);
begin
 For i:=1 to n do
 if m[i]<>0 then
 Begin
   if m[i]<s then m[i]:=m[i]*2 else
   m[i]:=m[i] / 2;
 end;
end;
//--------------------------------------------
//---------procedura salinanti vienodus sk--------
procedure salina;
 var j,r,l,x :integer; // patikrinti ar skaie`ius yra masB ir,jei ne"ra, a'ra?yti a' masB
     Kur:Masb;
     pag:masa;

begin
 Pag:=m;
 for i:=1 to n do
 begin
   x:=0; l:=0;
   if m[i]<>0 then
   Begin
     For j:=1 to n do
     Begin
       if m[i] = pag[j] then
       Begin
         inc(x);
         if x>1 then
         Begin
           m[j]:=0;
           dec(x);
         end;
       end;
     end;
   end;
end;

end;
//------------------proceduuros pabaiga------------------------------


begin
n:=10; sum:=0; vid:=0;
m[1]:=5; m[2]:=3; m[3]:=1; m[4]:=6; m[5]:=8; m[6]:=8; m[7]:=5; m[8]:=7; m[9]:=6;  m[10]:=7;

{vid:=vidurkis(n);         // vidurkio funkcija su isvedimu
writeln(vid:0:2);  }

{Salina;
For i:=1 to n do          // Salinimo procedura su isvedimu
Begin
 writeln(m[i]);
end;  }

{didmaz(vid);
writeln(vid:0:2);         // Padidinti,pamazinti procedura su isvedimu
For i:=1 to n do
writeln(m[i]:0:2); }

Readln;
end.

Asmeniškai tai man reiktų pačio uždavinio sąlygos.:)

Kas dėl programos tai kol kas matau kelis dalykus:

Tu perduodi 'n' 'sum ' ir 'vid' į funkciją,tačiau kam tau perduot sum jeigu tu jį vistiek funkcijos pradžioj nunulini? O vidurkio ir perdavinėt nereikia manau.

TOliau,tu kaupi sumą pridėdama skaičius iš 'M Masyvo

sum := sum+m[i];

Tačiau dalykas toks,kad tas masyvas tai gi tuščias,tad logiška,kad gauni ir atsakymą 0.

Gal būt ir tokios klaidos,čia tik tiek,kiek permečiau :)

Edit: Dar vienas dalykas,išmok įdėti savo kodą tarp tagų,kad eitų normaliai skaityt,nes taip tai dažniausiai iš kart atkrenta noras kažką žiūrėt,programą dėti tarp šių tagų [kode] kodas [/kode] (vietoj K - C (code)

Ne visada prekė atitinka savo kaina,tad tas pasakymas vertė didesnė nei 100 Lt dar suabejočiau.Aišku negali sakyt nepamatęs ar nepanaudojęs.:)

Mažu gerai.

program Noname64;
 var a,b,x,i,j:integer;
begin
readln(a,b);
 i:=1;
 x:=a div b*b;
 While x<>a do
 Begin
   if x+i=a then
   Begin
     writeln(a,' = ',a div b,'*',b,'+',i);
     x:=x+i;
   end else
   inc(i);
 end;
 readln;
end.