Komentarus bei atsiliepimus gali palikti tik registruoti vartotojai Registruokis dabar!

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

Re:Duomenų nuskaitymas

Sveiki,
Dėl detalių rašykite elektroninu paštu. Jums dar reikėtų naudoti ReadLn(fd); komandą išėjus iš vidinio ciklo. Taip pat reikėtų pagalvoti apie masyvų įvedimą nuskaitant kauliukus. Nėra gerai, kad naudojate tą patį i kintamąjį tiek vidiniame, tiek išoriniame cikle nuskaitant duomenis.


Komentavo alauraitis 2013-07-02

Re:Dėl ciklo for

Sveiki,
Tai tipiniai trasavimo uždaviniai. Jie atliekami raštu, o pasitikrinama kompiuteriu. Jums reiktų susidaryti lentelę kintamųjų, kuriuos reikia stebėti ir vis pakeisti jų reikšmes kiekvienos ciklo iteracijos metu. Galutinė likusi reikšmė ir bus rezultatas. Dėl detalių rašykite elektroninu paštu.


Komentavo alauraitis 2013-07-02



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 Kitas >>