Pereiti prie turinio

Reikalingas pascal programuotojas!


Rekomenduojami pranešimai

  • po 1 mėnesio...
gal kas zinot kaip su paskaliu is bet kokio skaiciaus istraukt bet kokia sakni?
sqrt(betkoks_skaičius);

:D

Na bet iš neigiamų skaičių šaknies netraukia.

 

Taisymas: Tau reikia kad galėtų tarkim ir 1.45 laipsnio šaknį traukti? Tada tikrai nežinau. Neteko girdėti apie tokią funkciją.

Redagavo T-Mix
Nuoroda į pranešimą
Dalintis kituose puslapiuose

gal kas zinot kaip su paskaliu is bet kokio skaiciaus istraukt bet kokia sakni?

ne kvadratine, o bet kokia sakni :D racionaliu saknu nereikia. tik naturalieji skaiciai. :D ta prasme penkto laipsnio saknis, sesto laipsnio ir t.t. o ten pvz: 2.5-ojo laipsnio saknis - nereikia :D

Redagavo tdk
Nuoroda į pranešimą
Dalintis kituose puslapiuose
ne kvadratine, o bet kokia sakni :D racionaliu saknu nereikia. tik naturalieji skaiciai. :D ta prasme penkto laipsnio saknis, sesto laipsnio ir t.t. o ten pvz: 2.5-ojo laipsnio saknis - nereikia :D
Vėliau supratau ir išsitaisiau.

Tiesioginės funkcijos, kaip suprantu, nėra, bet galima taip daryti:

Čia pradinis_skaicius - pradinis skaičius (:D)

O saknies_rodikis - šaknies rodiklis. Gali būti ir realusis skaičius.

Turėtų veikti.

Taisymas: Hmm. Neveikia kažkodėl... Jei pakelia teisingai laipsniu, bet su šaknim nesusitvarko. Na dar pagalvosiu.

 

Na va, dabar jau radau:

rezultatas := power(pradinis_skaicius, 1/saknis_rodiklis);

Tikrai veikia :P

Redagavo T-Mix
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Vėliau supratau ir išsitaisiau.

Tiesioginės funkcijos, kaip suprantu, nėra, bet galima taip daryti:

Čia pradinis_skaicius - pradinis skaičius (:D)

O saknies_rodikis - šaknies rodiklis. Gali būti ir realusis skaičius.

Turėtų veikti.

Taisymas: Hmm. Neveikia kažkodėl... Jei pakelia teisingai laipsniu, bet su šaknim nesusitvarko. Na dar pagalvosiu.

 

Na va, dabar jau radau:

rezultatas := power(pradinis_skaicius, 1/saknis_rodiklis);

Tikrai veikia :D

dekui labai :D jau buvau prarades vilti kazka surast :D lieku skolingas :P

Nuoroda į pranešimą
Dalintis kituose puslapiuose

turiu dar viena klausima. yra skaiciais uzpildytas masyvas mas1[1] = 1; mas1[2] = 5; mas1[3] = 4; ir t.t. masyve yra tarkim 100 elementu.

yra kitas masyvas taip pat uzpildytas skaiciais mas2[1] = 3; mas2[2] = 3; mas2[3] = 5; ir t.t.

i siuos masyvus reikia ziuret kaip i skaicius. ta prasme: mas1 yra 154...., o mas2 = 335.....

kaip man juos sudaugint(cia yra du dideli skaiciai)? zinau, kad reikia daugint taip, lyg daugintume stulpeliu, bet realiai nelabai isivaizuodju kaip tai padaryt. ;) gal kas padesit?

Nuoroda į pranešimą
Dalintis kituose puslapiuose
turiu dar viena klausima. yra skaiciais uzpildytas masyvas mas1[1] = 1; mas1[2] = 5; mas1[3] = 4; ir t.t. masyve yra tarkim 100 elementu.

yra kitas masyvas taip pat uzpildytas skaiciais mas2[1] = 3; mas2[2] = 3; mas2[3] = 5; ir t.t.

i siuos masyvus reikia ziuret kaip i skaicius. ta prasme: mas1 yra 154...., o mas2 = 335.....

kaip man juos sudaugint(cia yra du dideli skaiciai)? zinau, kad reikia daugint taip, lyg daugintume stulpeliu, bet realiai nelabai isivaizuodju kaip tai padaryt. ;) gal kas padesit?

Kaip supratau, iš masyvo reikšmių tau reikia sudaryt skaičių. Turėtų būti kažkas panašaus:

 

var skaicius : longint;
skaicius := 0;
for i := 1 to N do skaicius := skaicius * 10 + mas[i];

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kaip supratau, iš masyvo reikšmių tau reikia sudaryt skaičių. Turėtų būti kažkas panašaus:

 

var skaicius : longint;
skaicius := 0;
for i := 1 to N do skaicius := skaicius * 10 + mas[i];

ne, tame ir beda, kad skaiciai netelpa i jokius longint ir t.t. remus. todel juos sukeliau i masyva ir dabar reikia sudaugint juos. superdidelis skaicius padaugintas is superdidelio skaiciaus ir tie skaiciai yra masyvuose. kiekvienas skaitmuo yra atskiras masyvo elementas. ;)

Redagavo tdk
Nuoroda į pranešimą
Dalintis kituose puslapiuose

masyve:

 

i :=1;

sandauga :=1;

while mas1<>0 do

begin

sandauga :Sandauga * mas1;

i :=i+1;

end;

netinka taip. juk kai daugini stulpeliu pvz.:

123

*123

+169

+246

+123

15129

 

kaip man tai padaryt su paskaliu? sudaugint dar sugebeciau, bet man reikia kelt laipsniu. tarkim 123 pakelta 123 laipsniu. as isisvaizduoju, kad visu pirma reikia 123 sudaugint su 123 ir visa sita sumest i cikla ir kartot. tik va kaip tai padaryt su pascaliu.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Gal kas galit padet? Situacija tokia. Turiu masyva: m[1]:=1; m[2]:=3; m[3]:=5;. i ji reikia ziuret kaip i skaiciu: 135. ir man reikia nuo 135 iki 0 ateiti. ta prasme, kad atspausdintu 135,134,133,132...2,1,0 ir sustoja tada. Kaip tai padaryt? Gal kas turit minciu?

Nuoroda į pranešimą
Dalintis kituose puslapiuose

nu bent pagal šitą tai

naujas := m[1] * 100 + m[2] * 10 + m[3];

o atspausdint tai:

 

while naujas >= 0 do

begin

writeln(naujas);

naujas := naujas - 1;

end;

 

<_< prašom :lol:

beje šiand buvau olimp programavimo pascaliu tai tuo dar gyvenu :lol: :)

 

pps. aš pirmas :)

Redagavo skorpion15
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Gal kas galit padet? Situacija tokia. Turiu masyva: m[1]:=1; m[2]:=3; m[3]:=5;. i ji reikia ziuret kaip i skaiciu: 135. ir man reikia nuo 135 iki 0 ateiti. ta prasme, kad atspausdintu 135,134,133,132...2,1,0 ir sustoja tada. Kaip tai padaryt? Gal kas turit minciu?

program programa;
type masyvas = array[1..3] of integer;
var m : masyvas;
suma, i : integer;
begin
m[1]:=1;
m[2]:=3;
m[3]:=5;
suma:=(m[1]*100)+(m[2]*10)+m[3];
for i:=suma downto 0 do 
begin
writeln(i);
end;
end.

 

turetu veikt bet zinoma norint kad galetu buti kitokio ilgio skaiciai tai reiks keist, bet to tu nepaminejai <_<

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program programa;
type masyvas = array[1..3] of integer;
var m : masyvas;
suma, i : integer;
begin
m[1]:=1;
m[2]:=3;
m[3]:=5;
suma:=(m[1]*100)+(m[2]*10)+m[3];
for i:=suma downto 0 do 
begin
writeln(i);
end;
end.

 

turetu veikt bet zinoma norint kad galetu buti kitokio ilgio skaiciai tai reiks keist, bet to tu nepaminejai <_<

netinka, nes as nezinau koks bus skaicius. gali buti ir 1 gali buti ir milijardas milijardu :lol:

Nuoroda į pranešimą
Dalintis kituose puslapiuose

netinka, nes as nezinau koks bus skaicius. gali buti ir 1 gali buti ir milijardas milijardu <_<

program prgrama;
type masyvas = array[1..100] of integer;
var m : masyvas;
suma, i, k, s, z : integer;
begin
k:=1;
writeln('Koks skaiciaus ilgis?');
readln(s);
for i:=1 to s do
begin
writeln('Koks m[', i, ']?');
readln(m[i]);
end;
for i:=s downto 1 do
begin
suma:=suma+(m[k]*power(10, i-1));
k:=k+1;
end;
for i:=suma downto 0 do
begin
write(i, ' ');
end;
readln();
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
program prgrama;
type masyvas = array[1..100] of integer;
var m : masyvas;
suma, i, k, s, z : integer;
begin
k:=1;
writeln('Koks skaiciaus ilgis?');
readln(s);
for i:=1 to s do
begin
writeln('Koks m[', i, ']?');
readln(m[i]);
end;
for i:=s downto 1 do
begin
suma:=suma+(m[k]*power(10, i-1));
k:=k+1;
end;
for i:=suma downto 0 do
begin
write(i, ' ');
end;
readln();
end.

Kiek suprantu, tai esmė ir yra tame, kad reikia mažinti patį masyvą, o ne masyvą versti skaičiu ir tada mažinti skaičių. Juk jei bus, kaip jis sakė, milijardas milijardų, tai longint jau to skaičiaus nebepaveš, o iš tokio real'o po vieną atiminėdamas nieko nepasieksi. <_<

Ir, spėju, milijardas milijardų dar ne riba.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program prgrama;
type masyvas = array[1..100] of integer;
var m : masyvas;
suma, i, k, s, z : integer;
begin
k:=1;
writeln('Koks skaiciaus ilgis?');
readln(s);
for i:=1 to s do
begin
writeln('Koks m[', i, ']?');
readln(m[i]);
end;
for i:=s downto 1 do
begin
suma:=suma+(m[k]*power(10, i-1));
k:=k+1;
end;
for i:=suma downto 0 do
begin
write(i, ' ');
end;
readln();
end.

dekui labai, kad padedi, bet netinka. as nezinau kiek skaiciu bus. gali buti ir 1 gali buti ir milijonas. man reikia universalaus algoritmo. pradzioje yra skaicius tarkim su 10 000 skaitmenu(skaicius netelpa nei i integer nei i longinteger tipa). Kiekvienas skaitmuo sukeliamas i masyva kaip atskiras masyvo elementas. Tada kazkaip reikia atspausdint juos nuo paskutinio iki nulio. <_< tai va, gal kam kils kokiu minciu?

Nuoroda į pranešimą
Dalintis kituose puslapiuose
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...