Komentarus bei atsiliepimus gali palikti tik registruoti vartotojai Registruokis dabar!

Ciklas for

Sveiki, preita uzdavini jau supratau, taciau nesuprantu dar dvieju, jeigu nesunku gal galite paaiskint kaip juos reikia spresti?

1.

n :=17;

k :=0;

for i :=1 to n div 2 do

    if n mod i = 0

         then k := k + 1

Kokia kintamojo k reiksme atlikus sakiniu seka?

2.

s :=0; n := 206; m := 203;

for i := m to n do

begin

s1 :=0; j := i;

while j > 0 do

begin

s1 := s1 + 1;

j := j div 10

end;

s := s + s1

end.

Kokia kintamojo s reiksme atlikus saliniu seka?

 


Komentavo Grave 2013-07-01

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



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