Komentarus bei atsiliepimus gali palikti tik registruoti vartotojai Registruokis dabar!

Programavimo Video Pamokos Facebook socialiniame tinkle!

Sveiki,
Nuo šiol savo mintimis apie Programavimo Video Pamokas galite pasidalinti Facebook puslapyje. Kviečiame prisijungti!


Komentavo alauraitis 2014-04-08

Naujas C++ pamokų kursas!

Dėmesio,
Įkeltas C++ vaizdinių pamokų kursas. Pamokas rasite Čia. Kursas apima:

  • Code::Blocks įrankio konfigūravimą ir naudojimą;
  • Tiesinio, šakoto, ciklinio algoritmų taikymą;
  • C++ funkcijas ir failus;
  • String eilutes;
  • Vienmatį ir struktūrų masyvus.

Dėl detalių ir pilnų pamokų rašykite elektroninu paštu!


Komentavo alauraitis 2014-04-07

Dėl pamokos apie procedūras

Sveiki, gal galėtumėte padėti yra uždavinys apie Vampyro skaičius:

program VampyroSkaiciai;

var sk,a, b ,c ,d : integer;

begin

  WriteLn('Vampyro Skaičiai:');

  for sk := 1000 to 9999 do

   begin

         a := sk div 1000;

         b := (sk div 100) mod 10;

         c :=(sk div 10) mod 10;

         d := sk mod 10;

         if sk = (a * 10 + b) * (c * 10 + d)

            then Writeln(sk, ' = ', a, b, ' * ', c, d);

         if sk = (b * 10 + a) * (c * 10 + d)

            then Writeln(sk, ' = ', b, a, ' * ', c, d);

         if sk = (a * 10 + b) * (d * 10 + c)

            then Writeln(sk, ' = ', a, b, ' * ', d, c);

         if sk = (b * 10 + a) * (d * 10 + c)

            then Writeln(sk, ' = ', b, a,' * ', d, c);

         if sk = (a * 10 + c) * (b * 10 + d)

            then Writeln(sk, ' = ', a, c, ' * ', b, d);

         if sk = (c * 10 + a) * (b * 10 + d)

            then Writeln(sk, ' = ', c, a, ' * ', b, d);

         if sk = (a * 10 + c) * (d * 10 + b)

            then Writeln(sk, ' = ', a, c, ' * ', d, b);

         if sk = (c * 10 + a) * (d * 10 + b)

            then Writeln(sk, ' = ', c, a, ' * ', d, b);

         if sk = (d * 10 + a) * (b * 10 + c)

            then Writeln(sk, ' = ', a, d, ' * ', b, c);

         if sk = (d * 10 + a) * (b * 10 + c)

            then Writeln(sk, ' = ', d, a, ' * ', b, c);

         if sk = (a * 10 + d) * (c * 10 + b)

            then Writeln(sk, ' = ', a, d, ' * ', c, b);

         if sk = (d * 10 + a) * (c * 10 + b)

            then Writeln(sk, ' = ', d, a, ' * ', c, b);

            end;

            ReadLn;

   end.

Kiekvieną if sakinį reikia pakeisti prcedūra Vampyras. Procedūra turi penkis parametrus sk, a, b, c, d.


Komentavo aav 2013-11-20



Puslapiai: << Atgal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Kitas >>