 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2025 01 24, 16:02. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Elektronika žaliems » pagalba del pascal
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
 |
pagalba del pascal |
 Parašytas: 2014 01 29, 21:44 |
  |
|
|
|
Sveiki, reikalinga pagalba su pascal, reikia parašyti programą.
Užduotis:
Knyga turi n puslapių (n pradinis duomuo, natūralusis skaičius).
Parašykite programą nustatyti, kiek skaitmenų reikėtų visiems šios knygos puslapiams sunumeruoti.
Kadangi esu 12kl-eje ir tik nuo šiu metų pasirinkau programavimą, tai kol kas sunkiai sekasi. Gal atsirastų žmogus, kuris galėtų pagelbėti??
Pagarbiai, loliker |
|
Paskutinį kartą redagavo loliker, 2014 01 29, 22:21. Redaguota 1 kartą |
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 29, 22:00 |
|
|
|
|
| routtle rašo: |
| tai kad ne čia pataikei man rodos. |
Argumentuok. !!!!!! Nori pasakyt, kad programavimas prie elektronikos nepriklauso ? |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 29, 22:02 |
|
|
|
|
| routtle rašo: |
| tai kad ne čia pataikei man rodos. |
Su rimviu pilnai sutinku. Nuo kada programavimas yra ne elektronikos dalis? |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 29, 22:27 |
|
|
|
|
| loliker rašo: |
| routtle rašo: |
| tai kad ne čia pataikei man rodos. |
Su rimviu pilnai sutinku. Nuo kada programavimas yra ne elektronikos dalis? |
Visada buvo beveik neatsiejama  90% elektronikos šiandien turi MCU... |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 29, 22:30 |
|
|
|
|
O kurioje čia mokymo įstaigoje nemokinus teorijos iš karto duoda programavimo užduotis?
Ps. šiaip nuo algoritmo sudarymo reikia pradėti, viskas paprasta, bet ilgai rašyti, tai nepadėsiu nes ilgai telefoną maigyti. |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 29, 22:53 |
|
|
|
|
| teorija mokino, bet sunku issisavinti taip greit, galima sakyt per kelias dienas reikejo nemazai ismokt tai viskas galvoje dar nesusistoveje ant tiek, kad programiskai[ar algoritmiskai] dar yra labai sunku galvot. Kitaip sakant pagaut kampa |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 29, 23:02 |
|
|
|
|
| Kampas tas kad puslapiai nuo vieno iki devynių turės vieną skaičių, tai pradedi skaičiuoti nuo vieno iki devynių, dedi +1 prie skaitmenų skaičiaus, ir tikrini ar nepasiekė n, tada skaičiuoji nuo 10 iki 99, prie puslapių skaičiaus pridedi po du, prie šimtų po tris ir tt. |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 30, 09:25 |
|
|
|
|
| na algoritmas nesunkus, bet galima spręsti keliais būdais pats papraščiausias buptu ptasukti nuo 1 iki n sikliuką ir sudeti skaitmenų kiekį. Tačiau toks algoritmas neoptimalus. Ir geriausiai būtų naudoti dalyba ir sveiko bei liekanos dydžiais. O įgyvendinti si reikalą galima ciklu arba vykdant procedurą su rekursiją. |
|
_________________
Do not argue with an idiot. He will drag you down to his level and beat you with experience.
mane rasite: mano profilyje |
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 01 30, 11:23 |
|
|
|
|
| Kodas: |
skaicius = xxxxxx;
skaitmenys[10] = {0,0,0,0,0,0,0,0,0,0};
daugiklis = 1;
vykdyti
{
for (t = 0; t <= skaicius % 10; t++)
skaitmenys[t] += daugiklis;
daugiklis *= 10;
skaicius /= 10;
}
kol (skaicius <= 0);
for (t = 0; t <= 9; t++)
isvesti(skaitmenys[t]);
|
|
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 02 02, 16:42 |
|
|
|
|
Tai kad norint čia išspręst, užtenka labai lengvą programą parašyt. Čia užtenka šiek tiek suprasti matematikoje (ir truputį mokėti programuoti, žinoma). Per kelias minutes parašiau su paprasta if komanda, ją kartodamas kelis kartus (rašyti su ciklu ir taikyti kokį nors algoritmą nėra prasmės, puslapių nebus daugiau nei 10000  ).
program suma;
var n, m : integer;
begin
WriteLn('Įveskite n');
ReadLn(n);
if n < 10
then m := n
else if n < 100
then m := 9 + (n - 9) * 2
else if n < 1000
then m := 189 + (n - 99) * 3
else if n < 10000
then m := 2889 + (n - 99) * 4;
WriteLn('Puslapių skaitmenų suma yra ', m);
Readln;
end. |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 02 02, 17:12 |
|
|
|
|
amperai, o skaitei salyga _IDEMIAI_ ?
reikia ne skaitmenu sumos, o kiek kokiu skaitmenu prireiks. |
|
|
|
|
|
|
Re: pagalba del pascal |
| Parašytas: 2014 02 02, 17:18 |
|
|
|
|
| loliker rašo: |
Sveiki, reikalinga pagalba su pascal, reikia parašyti programą.
Užduotis:
Knyga turi n puslapių (n pradinis duomuo, natūralusis skaičius).
Parašykite programą nustatyti, kiek skaitmenų reikėtų visiems šios knygos puslapiams sunumeruoti.
Kadangi esu 12kl-eje ir tik nuo šiu metų pasirinkau programavimą, tai kol kas sunkiai sekasi. Gal atsirastų žmogus, kuris galėtų pagelbėti??
Pagarbiai, loliker |
Man vis dėlto atrodo, kad klausė kiek iš viso reik skaitmenų, pataisykit, jei klystu |
|
|
|
|
|
|
pagalba del pascal |
| Parašytas: 2014 02 03, 13:01 |
|
|
|
|
| AlgisL rašo: |
amperai, o skaitei salyga _IDEMIAI_ ?
reikia ne skaitmenu sumos, o kiek kokiu skaitmenu prireiks. |
Man irgi pasidodė kad tik kiekio reikia bendrai skaitmenų |
|
_________________
Do not argue with an idiot. He will drag you down to his level and beat you with experience.
mane rasite: mano profilyje |
|
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
LEGO
Mänguköök,
mudelautod,
nukuvanker |
|
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope |
|
FS25 Mods
FS25 Harvesters,
FS25 Tractors Mods,
FS25 Maps Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
GTA 6 Weapons
GTA 6 Characters,
GTA 6 Map,
GTA 6 Vehicles |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
ATS Trailers
American Truck Simulator Mods,
ATS Trucks,
ATS Maps |
|
|
 |
