pascal skaiciu atskirimas

Sveiki, darydamas užduotėlę susidūriau su galvos skausmu :| Yra skaičiai nuo 170849 iki 189965 ir reikia suskaičiuoti kiek kartų pirmųjų trijų skaitmenų trejetas sutampa su paskutinių trijų skaitmenų trejetu ( pavyzdžiui 125125 yra 1 kartas). Reiktu padaryti be masyvų, tad kaip reik prasukti ciklą, kad juos raščiau? :)

Tai suki ciklą, susikuri 6 kintamuosius, tarkim x1,x2,x3 pirmiem trim skaičiam ir x4,x5,x6 kitiems. Tada tam cikle paimi skaičių ir susiskaldai jį su DIV ir MOD, kad x1 būtų pirmasis 6ženklio skaičiaus skaičius, x2 būtų antrasis ir taip toliau. Na, ir galiausiai tikrini ar x1=x4 ir x2=x5 ir x3=x6 ir jeigu lygu prie nulinio kintamojo pridėk vienetą. Bent jau aš taip daryčiau.

Tai suki ciklą, susikuri 6 kintamuosius, tarkim x1,x2,x3 pirmiem trim skaičiam ir x4,x5,x6 kitiems. Tada tam cikle paimi skaičių ir susiskaldai jį su DIV ir MOD, kad x1 būtų pirmasis 6ženklio skaičiaus skaičius, x2 būtų antrasis ir taip toliau. Na, ir galiausiai tikrini ar x1=x4 ir x2=x5 ir x3=x6 ir jeigu lygu prie nulinio kintamojo pridėk vienetą. Bent jau aš taip daryčiau.

Dėkuj, visai pamiršau apie tai :) tereikėjo paimti ciklo mod ir div iš 1000 ir juos prilyginti, dėkingas :)

Dar vienas uždavinys neleidžia man užmigti:

Architektas suprojektavo salę kurioje bus n eilių, Pirmoje eilėje bus k kėdžių, o kiekvienoje kitoje 2 kėdėmis daugiau, negu prieš tai buvusioje, Parašykite programą kuri apskaičiuotų kiek iš viso s kėdžių reikia užsakyti. Kai n = 3, k = 8, turi buti spausdinama s = 30 kedziu.

Visaip eksperimentavau, bet nesigauna gauti papildomų kėdžių skaičiaus :|

k1 = k;
for i:=1 to (n-1)
DO
Begin
k := k+2;
End;
Println k1+k;

rodos taip bus.... reikėtu dar patikrinti dėl viso pikto/ (Paskalio jau turbūt 10 metų neteko naudoti)

Jaučiu jog galima gražia formulę parašyti šitam skaičiavimui, bet nesugalvojau dar kaip

Gali naudoti aritmetinės progresijos sumos formulę, tavo atveju galutinė išraiška: S = (k+(n-1))*n

k1 = k;
for i:=1 to (n-1)
DO
Begin
k := k+2;
End;
Println k1+k;

 

rodos taip bus.... reikėtu dar patikrinti dėl viso pikto/ (Paskalio jau turbūt 10 metų neteko naudoti)

Jaučiu jog galima gražia formulę parašyti šitam skaičiavimui, bet nesugalvojau dar kaip

Išmes neteisingą atsakymą kodas, 20 berods, vietoj 30.

Keli variantai, rinkis patinkantį:

function Sum(k:integer; n:integer):integer;
begin
 Sum := k;
 for i := 1 to (n-1) do begin
   k := k + 2;
   Sum := Sum + k;
 end;
end;

function Sum2(k:integer; n:integer):integer;
begin
 Sum2 := k;
 if n > 1 then
   Sum2 := Sum2 + Sum2(k+2,n-1);
end;

arba tiesiog

s := k;
for i := 1 to (n-1) do begin
 k := k + 2;
 s := s + k;
end;

Dėkingas :)

Kodėl n-1 cikle? :?

Kodėl n-1 cikle? :?

n-1, todėl, kad pridėti po 2 reikia visoms eilėms išskyrus pirma.

Aišku :)