Įvairūs > Pascal programavimas

Q&A

(1/4) > >>

Edmundas Ciucko:
Neveikia programa? Nežinai kur klaida? O gal reikia pamokos?

- Jei taip, rašyk čia, būtinai padėsiu  ;)

Donatas:
Sveiki, reikia didelės pagalbos kuriant programą kuri užpildo masyvą nuo 0 iki 1 ir sudaro kaip labirintą 10 x, 3 y matmenyse, skaičius 0 reiškia kelią (galima praeiti tik į dešinę, į viršų arba į apačią), o skaičius 1 reiškia sieną. Gal galėtumėt padėt?  :)
Iš anksto ačiū!  :)

Lukas:
tai spekim bus ne siaip masyvas bet 3matis masyvas :) siulyciau pasipaisyti bent dali galimo labirinto atn popieriaus ir paziureti kokios galimos reiksmes gali buti. poto pasidaryti formule pagal tai, kokio nori labirinto, atkreipiant demesi i tai, kad nebutu akligatvio ;) o kai turesi formule, tai jau liks lengviausia dalis - sukurti cikla, kuris uzpildo masyva su random reiksmemis :)

Vygantas Pauliukonis:
Padėkit rasti klaidą: Pvz: 153, tai a= 351

program nat;
var n,atb:integer;
begin
readln(n);
while n>0 do
begin
    atb:=atb+n mod 10;
    n:= n div 10
    end;
    writeln(atb);
    readln;
end.

Edmundas Ciucko:
kas 153?

Navigacija

[0] Žinučių sąrašas

[#] Sekantis puslapis

Eiti į pilną versiją