Srodne teme

17.05.2006. Delphi forum [ da ili ne ]
16.06.2001. Paskal apsolutno pocetnicko pitanje
11.12.2001. Paskal, nije mi jasno...
28.01.2016. Genijalan vic za sve koji poznaju fizičke velič..
06.05.2006. Pomoc oko zadatka. HITNO!!!
21.09.2006. pomoc oko resavanja zadatka
11.02.2008. Pomoc oko zadatka!
09.06.2008. Jedan zadatak - rjesiv ili ne?
10.03.2013. Pomoc oko zadatka u Pascal-u
31.01.2012. Aritmeticki nizovi

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoć oko zadatka u Paskal-u (nizovi) za školu

[es] :: Pascal / Delphi / Kylix :: Pomoć oko zadatka u Paskal-u (nizovi) za školu

Strane: 1 2

[ Pregleda: 4513 | Odgovora: 30 ] > FB > Twit

Autor

goranrst
Goran Maric

Član broj: 325791
Poruke: 49
31.223.144.*

+3 Profil

Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{05.12.2019. u 13:40 - pre 58 meseci}

Zadatak za školu u PASKAL-a glasi ovako:
Učitati članove niza. Sabrati članove niza sve dok je suma manja od 500. (Ako je moguće uraditi koristeći For petlju).

Ja znam samo izračunati "običnu" sumu za učitane članove niza,ali to nije to...Molim za pomoć. Hvala.

Odgovor na temu

goranrst
Goran Maric

Član broj: 325791
Poruke: 49
31.223.144.*

+3 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{05.12.2019. u 14:57 - pre 58 meseci}

Slučajno sam pokušavao i čini mi se da ovo radi:

Code:
PROGRAM Suma;
var
i,n,s:integer;
a: array[1..100] of integer;
begin
write('Broj clanova niza je: ');
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i])
end;
s:=0;
for i:=1 to n do
if (s+a[i] < 500) Then
s:=s+a[i];
WRITELN('Suma je : ', s);
END.

Jedino je ovde problem što mi ne daje uvek naj približniju sumu do 500, npr:

Broj članova niza je: 5
Članovi niza su:
150
150
150
49
2
Rezultat:
Suma je: 499

Ali ako im zamenim mesta (istim članovima), npr:

Broj članova niza je: 5
Članovi niza su:
2
49
150
150
150
Rezultat:
Suma je: 351

Moje pitanje je da li ovaj zadatak može da prođe kao tačan ovako kao u mom slučaju? Hvala.

Odgovor na temu

FranjoZG
Franjo Popović
Programer
Zagreb

Član broj: 328819
Poruke: 298
*.adsl.net.t-com.hr.

+4 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{05.12.2019. u 16:02 - pre 58 meseci}

Ako nije definiran broj članova koji se trebaju unijeti, onda je ok. Jedno što bih umjesto donje for petlje u kojoj zbrajaš upotrijebio until tako da petlja ne mora prolaziti sve članove niza kada je zbroj došao do maksimuma.

Ako ne želiš unostiti niz koji ti je "višak" u odnosu na zbroj, koristi until petlju na unosu pa kontroliraj da li je suma + novi broj > 500

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
31.223.145.*

+62 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 13:30 - pre 58 meseci}

u pitanju je pocetnik, treba malo pojasniti predlog.

Dakle, za for petlju vec znas, vrti se od prvog do zadnjeg index-a, moguce je izaci uz komandu break.

Sem pomenute, imas i dve slozenije petlje, koje imaju uslov za ulaz/izlaz u/iz bloka.
1) while petlja je petlja sa uslovom na pocetku bloka; zovemo je i 'petlja sa ulazom na pocetku'.
2) repeat-until petlja je sa uslovom na kraju bloka; ovo je 'petlja sa izlazom na kraju'.

Za obe petlje vazi da, ukoliko uslov vrati true, tok izvrsavanja ide dalje.
Sto znaci, u slucaju while petlje, ulazi se u blok petlje (iznova i iznova, dokle god uslov vraca true). Cim uslov vrati false, preskace se ceo blok petlje, i tok programa ide dalje.
Dok u slucaju repeat-until petlje, uslov je za izlaz iz petlje; dokle god je uslov false, tok se vraca na pocetak bloka (repeat).

Kad se izvezbas (sa uslovima), neverovatne stvari se mogu uraditi petljama.

Sad pogledah bolje, imas preporuku u zadatku za koriscenje for petlje; kraj price

.

Odgovor na temu

goranrst
Goran Maric

Član broj: 325791
Poruke: 49
31.223.144.*

+3 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 14:28 - pre 58 meseci}

Ok, hvala puno i Franju i Rajku, na objašnjenjima, naravno pokušati ću da uradim i sa while i repeat-until pteljom. Još jednom hvala.

Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.

+31 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 16:43 - pre 58 meseci}

Koja to škola još radi paskal?
Uglavnom svi prešli na Python.

Odgovor na temu

sneguljko
Sneguljko doo

Član broj: 341399
Poruke: 51
*.dynamic.vipmobile.rs.

Sajt: https://sneguljko.com

+6 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 17:09 - pre 58 meseci}

Ne zna nastavnik bolje. Kad je on išao u školu učio se paskal, to je beda našeg društva. Treba deca da uče popularne jezike koji su primenjivi u praksi a ne da se zamlaćuju sa ovim.

Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3510

Jabber: djoka_l

+1484 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 17:16 - pre 58 meseci}

Ma daj, ne pričaj gluposti. Paskal je jezik koji je upravo i napravljen za učenje programiranja.
Kao što sam milion puta napisao, treba učiti da se programira, a ne da se uči konkretan programski jezik.
Pogledaj malo Wikipediu, skoro svaki algoritam je napisan u nekom Paskaloidnom pseudo jeziku, pa onda možda i data implementacija u nekom stvarnom jeziku.

Recimo algoritam za Quicksort

algorithm quicksort(A, lo, hi) is

    if lo < hi then

        p := partition(A, lo, hi)

        quicksort(A, lo, p - 1)

        quicksort(A, p + 1, hi)



algorithm partition(A, lo, hi) is

    pivot := A[hi]

    i := lo

    for j := lo to hi do

        if A[j] < pivot then

            swap A with A[j]

            i := i + 1

    swap A with A[hi]

    return i

Odgovor na temu

sneguljko
Sneguljko doo

Član broj: 341399
Poruke: 51
*.dynamic.vipmobile.rs.

Sajt: https://sneguljko.com

+6 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 19:37 - pre 58 meseci}

Pa da posle mora na kurs programiranja da bi napravio neku tabelu u grafičkom okruženju, ili dodao logo na web sajtu.

Odgovor na temu

mjanjic
Šikagou

Član broj: 187539
Poruke: 2840

+724 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{06.12.2019. u 21:14 - pre 58 meseci}

Pascal je odličan jezik, naročito ko kasnije reši da radi C/AL - plate da ne pominjem kolike su, ako neka firma traži programera za tu poziciju.

A kasnije će biti lakše preći na Python nego sa nekog jezika koji sintakstu vuče od C-a.

Naravno, ko baš zna da će raditi nešto tipa Java, C# ili čak C++, ili neki jezik koji ima sličnu sintaksu, bolje je da krene sa C-om.
Ali, malo je i glupo cele generacije dece učiti jednu te istu stvar, slično kao da svi uče isti drugi strani jezik pored engleskog, ili da sve srednje škole imaju identičan program.

Međutim, malo je teže u osnovnoj školi napraviti sistem da se uče različiti jezici, ali tako da učenici mogu da biraju, pa da se tako formiraju gupe za časove informatike. Na kraju bi ispalo kao za drugi strani jezik, u osnovnoj školi uče italijanski, pa ko upiše gimnaziju, mora na privatne časove nemačkog da bi nadoknadio to što isti nije učio u osnovnoj školi.

Blessed are those who can laugh at themselves, for they shall never cease to be amused.

Odgovor na temu

Branimir Maksimovic

Član broj: 64947
Poruke: 5534
109.72.51.23

+1064 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 07:39 - pre 58 meseci}

"Pascal je odličan jezik,"

U svojoj osnovnoj inkarnaciji ne mozes nista da uradis sa njime. Medjutim kad se doda OOP i low level featuri tj turbo pascal, delphi
onda je itekako upotrebljiv.

Odgovor na temu

bojan_bozovic

Član broj: 29028
Poruke: 3292
87.116.179.*

Sajt: angelstudio.org

+392 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 08:03 - pre 58 meseci}

Pascal pati od nedovoljne standardizacije, ima vise dijalekata koji su medjusobno nekompatibilni, zato ga je bolje zaobici i koristiti bolje standardizovan jezik.
Njegova je prednost zato sto je vrlo citljiv, namenjen je bio prvobitno ucenju programiranja, sto je u stvari dobro jer olaksava odrzavanje koda, ali ima i drugih jezika koji poseduju tu osobinu.

Odgovor na temu

dejanet
Beograd

Član broj: 19240
Poruke: 1198

+842 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 08:03 - pre 58 meseci}

Branimir "U svojoj osnovnoj inkarnaciji ne mozes nista da uradis sa njime. "

Slicno kao sa ostalim jezicima pre 50+ godina.

Inace sve sto sam pravio u delphi-ju pre dvadesetak godina radi i danas, od cega je u produkciji i dalje 60% prakticno bez odrzavanja - neverovatno. Slozene win desktop i web preko intraweb-a, kompleksne app na manje od 10MB, ucitavaju se dok klick misa jos nije krenuo gore, opet neverovatno. Danas, pakujem aplikaciju u .NET-u, ispadne 300+MB, a tek potrosnja memorije...

Odgovor na temu

bojan_bozovic

Član broj: 29028
Poruke: 3292
87.116.179.*

Sajt: angelstudio.org

+392 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 08:11 - pre 58 meseci}

dejanet

Ne uporedjujes li native kod sa vm? Mnogo u tih koliko vec Mb je runtime library, ako ti bas treba mali footprint, pa je velicina bitna a ne vreme izvrsavanja, koristi se poseban runtime za to jer to je onda embedded aplikacija. To PC 486 pre 20 godina i PC danas, to je ko babe i zabe da se uporedjuju, jer je sam runtime kompaljiran ne za velicinu koda, vec za brzinu, i kompaljer ga je odgovarajuce i optimizovao.

Plus to je VM kod.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2741

+96 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 10:11 - pre 58 meseci}

> Pascal pati od nedovoljne standardizacije, ima vise dijalekata koji su medjusobno nekompatibilni,

95% tj. osnovni set funkcija kod svih tih varijanti je medjusobno kompatibilno tako da ako se drzis Delphi pascala, sve ce ti raditi koji god kompajler da koristis (za Win, za .NET ili za Web).

> zato ga je bolje zaobici i koristiti bolje standardizovan jezik.

Velika greska, Delphi i dan danas je najbolji/najlaksi/najbrzi za izradu desktop aplikacija za Windows. Dalje imas mogucnost da pravis Android/iOS, Web (JS ili WebAssembly), .NET aplikacije. Cak mozes da mesas C++, C#, Pascal, Javu, Swift kod u jednoj aplikaciji.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

dejanet
Beograd

Član broj: 19240
Poruke: 1198

+842 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 10:17 - pre 58 meseci}

@bojan_bozovic
Delimicno ili nista ne razumem sta si napisao.

NET: komajliran kod + dll lib depedencies = stotine megabajta, na to dodaj .NET framework, znaci, ladno self-contained app 1GB.
Tek od Net Core 3.0 je moguce debelo skratiti depedencies samo na one koje se koriste, racunajuci i NET Framework depedencies.
Ogromnoj velicini publikovane verzije doprinosi NET Nuget package sistem. Slicna situacija je i sa maven za Java, odnosno npm za js/web, odnosno NodeJS.

Delphi: depedencies su u mom slucaju bile mahom VCL komponenete, koje nisu libs, vec source kod koji se kompajlira u single exe. Rezultat su bile app exe + config files total = 10MB, 20MB u mom slucaju.

E sad, stos je sto te delphi apps regulrano rade i dan danas, tako da ih mozes uporedjivati sa modernim apps.

Odgovor na temu

bojan_bozovic

Član broj: 29028
Poruke: 3292
87.116.179.*

Sajt: angelstudio.org

+392 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 11:29 - pre 58 meseci}

dejanet

Pokusao si da uporedis NET i native kod za PC - a to ne moze.

Licno ne pada mi na pamet da branim NET - po meni samo proprietary VM i runtime i jezici poput C# specificno napravljeni za vendor lock-in i promociju Microsoft resenja.

Medjutim to nije poenta. Ako bi uporedjivali isti kompajler, isti runtime, razlicite optimizacije vec bi bilo mnogo razlike, a ovde imamo i to da je NET runtime ogroman u uporedjenju sa Delphi. Ti mozes da zakljucis da li NET radi posao za tebe, ali ne mozes da tvrdis time da je lose napisan ili da ne ispunjava zahteve koje njegovi korisnici i Microsoft imaju od njega.

Brzina ne moze recimo uopste da se uporedjuje, VM i native, nije fer prema VM. A da su Microsoft alati preglomazni, jesu, ja ih zato i ne koristim, medjutim trziste treba da odgovori na taj problem. Dzaba sto mi pricamo ovde ako ce drugi da koriste NET i pored njegovih nedstataka.

Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.

+31 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 12:19 - pre 58 meseci}

Glavna mana Delphija je cena. Jednostavno je nemoguće porediti popularnost nečega što ima paprenu cenu i nešto što je besplatno.
Ukoliko bi se poredile performanse net i delphi desktop aplikacija, delphi je za dve klase bolji.

Čak sam pravio za android istu aplikaciju u Delphiju i Android studiu. Neverovatno da delphi aplikacija radi brže.

Odgovor na temu

Zlatni_bg
Nikola S
Beograd

Član broj: 65708
Poruke: 4420
*.dynamic.sbb.rs.

+498 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 12:37 - pre 58 meseci}

Imas community verzije i Delphija, citavog RAD Studija, isto kao sto postoji i Visual Studio. Mislim da nisu nesto drasticno razlicite cene.

Pocetniku nece biti tesko da ono sto nauci u paskalu prebaci u C++. Poenta je da se dobije svest o programiranju, ne da se striktno zna sintaksa.

Kad sam ja koristio Delphi za android, a to je bilo tek kada je izasla podrska, brze jeste radila aplikacija ali je bila jedno 10-15x "teza" od nativne.

THE ONLY EASY DAY WAS YESTERDAY

Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.

+31 Profil

Re: Pomoć oko zadatka u Paskal-u (nizovi) za školu

^{07.12.2019. u 12:47 - pre 58 meseci}

Citat:

Zlatni_bgKad sam ja koristio Delphi za android, a to je bilo tek kada je izasla podrska, brze jeste radila aplikacija ali je bila jedno 10-15x "teza" od nativne.

Da, prve nekoliko verzije su bile potpuno neoptimizovane i pravile ogrome fajlove. Za prostor tadašnjih telefona preglomazne.
Danas aplikacija od par mb nije ništa strašno.

Jedino što mi kod Delphija nedostaje je PHP za Delphi. To je bila genijalna stvar. Šteta što su prestali da je dalje razvijaju.

Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoć oko zadatka u Paskal-u (nizovi) za školu

Strane: 1 2

[ Pregleda: 4513 | Odgovora: 30 ] > FB > Twit

Srodne teme

02.02.2011. Pomoc oko zadatka sa matricama
11.05.2011. pascal nizovi hitnoo
08.05.2011. Zbunjen oko zadatka..
22.09.2019. Pomoć oko zadatka: tangentna ravan
04.06.2012. Dvodimenzionalni nizovi, C#
10.05.2012. fizikika. zadatak. struja
14.02.2013. Paskal ucenje - preporuka
25.02.2013. zvuk. pomoc oko zadatka. fizika
13.05.2014. Pomoc oko zadatka

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.