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

Pascal [pomoc za ispit]

[es] :: Pascal / Delphi / Kylix :: Pascal [pomoc za ispit]

[ Pregleda: 3853 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sky1981
beograd

Član broj: 916
Poruke: 5
*.verat.net

ICQ: 32370900
Sajt: crazyandroid.tripod.com


Profil

icon Pascal [pomoc za ispit]14.09.2001. u 00:30 - pre 247 meseci
Da li neko zna da uradi ove zadatake?
1)
Napisati program u Paskalu za izracunavanje otpornosti i tolerancije otpornosti na bazi unetih boja na telu otpornika. U slucaju progresnog unosa naziva boje, predvideti mogucnost ponavljanja unosta do korektnog.

Boja Cifra FaktorMnozenja Tolerancija
------------------------------------------------------------------------------
CRNA 0 1 (10 na 0) Srebrna 10%
BRAON 1 10 (10 na 1) Zlatna 5%
CRVENA 2 100 (10 na 2) Braon 1%
NARANDZA 3 1000(10 na 3)
ZUTA 4 10 na 4
ZELENA 5 10 na 5
PLAVA 6 10 na 6
LJUBICASTA 7 10 na 7
SIVA 8 10 na 8
BELA 9 10 na 9

Unose se cetiri boje(toliko ih ima na otporniku).
Primer: crvena,naradza,zlatna=25*1000 Ohm Tolerancija 5%

2) Napisati program u Paskalu kojim se niz medjusobno razlicitih elemenata a[1],a[2],....a[n] uredjuje na sledeci nacin:
a[1]<a[2]>a[3]<a[4]>... Za ucitavanje,stampanje, i sortiranje koristiti procedure. Mene konkretno interesuje samo procedura sortiranja.
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
*.mol.com.mk

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Pascal [pomoc za ispit]14.09.2001. u 00:59 - pre 247 meseci
Covece ***ote ovakve zadatke radi moj burazer ...
btw on je 7-mi razred ...
:)

evo to najsporiji linearni sort koji postoji ( u rastecem redosledu )

for i:=1 to MAX do
for j:=2 to MAX do
if (niz>niz[j]) then swap(niz,i,j);

uzgred ... swap izgleda ovako

procedure swap(var niz:arraytype;i,j:integer);
var
temp:integer;
begin
temp:=niz;
niz:=niz[j];
niz[j]:=temp;
end;

[Ovu poruku je menjao PSx-9ne dana 09-14-2001 u 12:24 AM GMT]
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

sky1981
beograd

Član broj: 916
Poruke: 5
*.verat.net

ICQ: 32370900
Sajt: crazyandroid.tripod.com


Profil

icon Re: Pascal [pomoc za ispit]14.09.2001. u 12:32 - pre 247 meseci
Pozdravi burazer, prvo meni netreba linerani sort u rastucem poretuku a[1]>a[2]>a[3]>a[4].... nego se trazi a[1]<a[2]>a[3]<a[4]>a[5]<......a[n]...
Tvoj program neradi ni jedno ni drugo.
ako si zeleo linearni sort ides
for i:=1 to n-1 do for j:=I+1 to n do if a[j]>a then begin

temp:=a;
a:=a[j];
a[j]:=temp;
end;
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+163 Profil

icon Re: Pascal [pomoc za ispit]14.09.2001. u 13:26 - pre 247 meseci
Ljudi, shvatate li kad stavite [ i ] u kod ali spojeno i sa dve te zagrade, on to pretvara u kod za ITALIC font style, a to onda onemogucava koriscenje tog koda..

Dakle, nemojte koristiti [ i ], [ b ]...
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
*.dialup-maxtnt.on.net.mk

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Pascal [pomoc za ispit]16.09.2001. u 05:23 - pre 247 meseci
.. izvini nisam video da se ne trazi sort ( too much alcohol at the moment ) ok evo ti code koji radi
btw ... pozdravlja te burazer (negov je code)

for k:=1 to max-1 do
for j:=k+1 to max do
if lista[k]>lista[j] then
begin
swap(lista,k,j);
end;

k:=2;
while k<max-1 do
begin
swap(lista,k,k+2);
k:=k+2;
swap(lista,max-1,max);
end;

zamenio sam i sa k ... radi ovoj italic s***** ..
A ako hoces i prvi problem da bude resen .. onda daj malo preformuliraj te tabele .. posto ne mogu da svarim sta se trazi

pozdrav


[Ovu poruku je menjao PSx-9ne dana 09-16-2001 u 04:25 AM GMT]
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

sky1981
beograd

Član broj: 916
Poruke: 5
*.verat.net

ICQ: 32370900
Sajt: crazyandroid.tripod.com


Profil

icon Re: Pascal [pomoc za ispit]16.09.2001. u 21:21 - pre 247 meseci
+Too sta bi mi bez maldih narastaja ! sredicu prvi ...
 
Odgovor na temu

sky1981
beograd

Član broj: 916
Poruke: 5
*.verat.net

ICQ: 32370900
Sajt: crazyandroid.tripod.com


Profil

icon Re: Pascal [pomoc za ispit]16.09.2001. u 23:41 - pre 247 meseci
)
Napisati program u Paskalu za izracunavanje otpornosti i tolerancije otpornosti na bazi unetih boja na telu otpornika. U slucaju progresnog unosa naziva boje, predvideti mogucnost ponavljanja unosta do korektnog.

Boja CRNA,prva i druga cifra 0,faktor mnozenja 10 na 0 ( 1 ), tolerancija 0%.
Boja BRAON, prva i druga cifra 1, faktor mnozenja 10 na 1(10),tolerancija 1%
Boja CRVENA, prva i druga cifra 2, fak, mnozenja 10 na 2(100), tolerancija 0 %
i tako redom....
Naranza (3) (10 na 3), tol 0%;
Zuta, (4) (10 na 4), tol 0%;
Zelena (5) (10 na 5), tol 0 %;
Plava (6) (10 na 6), tol 0%;
Ljubicasta (7) (10 na 7), tol 0%;
Siva (8) (10 na 8), tol 0%;
Bela (9) (10 na 9), tol 0%;
Srebrna ima samo toleranciju 10%
Zlatna ima samo toleranciju 5%;

Unose se cetiri boje(toliko ih ima na otporniku).
Primer: crvena,zelena,naradza,zlatna=25*1000 Ohm Tolerancija 5%

[e kad bi mogo ovo do srede, posto imam isit u cetvrtak ]
[ali nije strasno, i onako nece da ponovi zadatke]
[pomoc: mogle bi boje da se ucitaju u niz tipa string]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pascal [pomoc za ispit]

[ Pregleda: 3853 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

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