Pascal uzduotele

Užduotis: Įvesti sveikų skaičių seką, kurios pabaiga žymima skaičiumi 0. Išvesti narių, kurie yra sveikų skaičių kvadratai, skaičių.

Pagal mano logika, tai iš įvesto skaičiaus traukiam šaknį, tada tą skaičių dalinam iš mod, kad sužinotume ar liekana = 0 ir jei liekana yra 0, tą skaičių išvedam į ekraną, jei ne, tikrinam toliau, kol baigiasi seka. Esmė ta, kad šaknį trauktį galima tik iš real skaičių, o mod daryti tik su integer. Gal kas kokių idėjų turi?

EDIT:

Išsprendžiau taip, turėtų būti viskas ok.

Su until ciklu

Su while ciklu

Matosi, kad gavai užduoti univere, aš ją irgi buvau gavęs. Aš lyginau iš skaičiaus ištrauktą šaknį su suapvalinta šaknimi naudojant trunc funkcija.

while (sk<>0) and (sk>=0) do
       begin
         if sqrt(sk)=trunc(sqrt(sk))
           then count:=count+1;
         readln(sk);
       end;

Matosi, kad gavai užduoti univere, aš ją irgi buvau gavęs. Aš lyginau iš skaičiaus ištrauktą šaknį su suapvalinta šaknimi naudojant trunc funkcija.

while (sk<>0) and (sk>=0) do
       begin
         if sqrt(sk)=trunc(sqrt(sk))
           then count:=count+1;
         readln(sk);
       end;

Dėkui už atsakymą.

Asmeniškai padariau su round funkciją

sk1:= round(sqrt(sk))

sk2:= sk1 * sk1

if sk2 = sk1 then ...

bet tavo variantas tikrai optimalesnis.

Užduotis: Sudaryti vienpusį sąrašą. Parašyti procedūrą, kuri sąrašą perrašo atviekščia tvarka.

Man nereikia, kad parašytumėt programą, man reikia, kad užvestumėt ant kelio.

kodėl univere vis dar pascal mokina?

kodėl univere vis dar pascal mokina?

Mano manymu, jei pirmam kurse pradėtų mokinti java, PHP per daug žmonių ją "mokėtų" ir taip smuktų paslaugų kainos

Užduotis: Sudaryti vienpusį sąrašą. Parašyti procedūrą, kuri sąrašą perrašo atviekščia tvarka.

Man nereikia, kad parašytumėt programą, man reikia, kad užvestumėt ant kelio.

Kuri naują elementą, jis rodo į listo galvą, darai head = head->next. Kuri kitą elementą, jis rodo į naujai sukurtą. Ir taip, kol head->next == NULL.

Tai vistiek vėliau išmokins neibent kas iškris bet jei jau iškrito tai turbūt ir javos nemokėtų :D ir šiaip užtektų tiesiog C ar C++

Mano manymu, jei pirmam kurse pradėtų mokinti java, PHP per daug žmonių ją "mokėtų" ir taip smuktų paslaugų kainos

Pervertini šių laikų studentus.. Studentavimas laimi prieš studijavima, nemaža dalis suinteresuota tiesiog eiti lengvu keliu (nusirašinėti, ar kitaip 'slysti'). Taip liaudis gauna diplomus, dėja tik diplomus, bet ne žinių bagaža. O kalbat apie mokymasis, tai su pačia java programavimo kalba galima pradėti programuoti kad ir paskutinam kurse, jei nemali š.. pirmuosuose triejuose tai turėtum suprasti kas yra programavime objektas ir bazinius programavimo kalbos veikimo principus bei kaip dirbti su duomenų bazėm. To pakanka pradėti.

Pervertini šių laikų studentus.. Studentavimas laimi prieš studijavima, nemaža dalis suinteresuota tiesiog eiti lengvu keliu (nusirašinėti, ar kitaip 'slysti'). Taip liaudis gauna diplomus, dėja tik diplomus, bet ne žinių bagaža. O kalbat apie mokymasis, tai su pačia java programavimo kalba galima pradėti programuoti kad ir paskutinam kurse, jei nemali š.. pirmuosuose triejuose tai turėtum suprasti kas yra programavime objektas ir bazinius programavimo kalbos veikimo principus bei kaip dirbti su duomenų bazėm. To pakanka pradėti.

Atrodo žmonės nekvaili, bent jau mokytis moka ir jei mokykloj nepasiekei normalesnių rezultatų (60-70+ iš visų egzų), tai nelabai būtum čia papuolęs ir iš karto atitrūkęs nuo tėvų pradedi studentauti > studijuoti

Atrodo žmonės nekvaili, bent jau mokytis moka ir jei mokykloj nepasiekei normalesnių rezultatų (60-70+ iš visų egzų), tai nelabai būtum čia papuolęs ir iš karto atitrūkęs nuo tėvų pradedi studentauti > studijuoti

Kur tas čia? Leisk atspėsiu, VU PS? :-) Iš matkės turėjau 52. :-)