Komentarus bei atsiliepimus gali palikti tik registruoti vartotojai Registruokis dabar!

Ciklas for

Sveiki, kažkaip neišeina atlikti vienos užduoties su ciklu for, nes aš gaunu atsakyma x = 8, o kompiuteris meta x = 18, tai gal galit parodyti kaip gauti tą gerą atsakymą?

x :=0;

s :=5157;

n :=4;

  for i := 1 to n do

  begin

  x := x + s mod 10;

  s := s div 10

end

Kokia kintamojo x reiksmė atlikus šią sakinių seką?



Komentavo Grave 2013-06-26

Dėl duomenų nuskaitymo

Visų pirma ačiū už puikią svetainę, Tikrai daug padėjo.

 

Bandžiau viena programėlę rašyti ir iškart užstrigau ties duomenų nuskaitymu. Net juokinga, kad neišeina kažkas tokioje vietoje... Tai va, programa "Kauliukai" http://nec.lt/failai/2730_IT-1-2012.pdf. Duomenų failo duomenys:

2 3  (2 - dievų skaičius, 3 - tiek kartų metamas kauliukas)

Hermis     6 1 2

Hera       2 6 6

 

ir nepavyksta šių duomenų nuskaityti gražiai...

Štai mano prgoramos pradžia. Kai bandau išvesti duomenis į ekraną pasitikrinimui man išveda ne visus duomenis.

 

program Kauliukai;

const  CMax = 50;

       CDuom = 'duom.txt';

       CRez = 'rez.txt';

type   Dievai = record

       vardas : string[10];

       Kaul_Sk : integer;

       end;

mas = array[1..Cmax] of Dievai;

var    D:Mas;                         // Dievu ir ismestu kauliuku masyvas

 

Procedure skaityti;

var i, k, n : integer;

    fd : text;

begin

    assign(fd, CDuom); reset(fd);

    readln(fd, n, k);

    for i:=1 to n do with D[i] do

        begin

        read(fd, vardas);

            for i:=1 to k do with D[i] do

            read(fd, kaul_sk);

        end;

close(fd);

end;

 

begin

 skaityti;

 readln;

end.


Komentavo Armiiis 2013-06-17

Re:Šakotieji algoritmai

Sveiki,

Jums reikėtų pradžiai pabandyti sukompiliuoti ir paleisti elementarią programą su FPS aplinka. pvz."Labas pasauli" ir žiūrėti ar nestoja ties paskutine eilute. Jei ta pati klaida išlieka, išjunkite FPS ir atsijunkite (angl. log-off) nuo Windows ir bandykite dar kartą.


Komentavo alauraitis 2013-06-10



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