sklopotnica
Zainteresovan član
- Poruka
- 173
HVALA , NEK TI BOG PODARI SVE STO POZELIS !
-
- Popularno:
- Kako voditi ljubav sa devojkom a ne...
- Podstanar
- Šta je temu com sajt?
- О каквом жигу геноцидности баронишу?
- Šta poslednja cifra godine vašeg...
- Srpska politika pred svršenim činom!...
- Srpska vraća svoju vojsku i pravosuđe:...
- Andrew Tate predviđa propast i...
- Pomreće milioni, žele da antihrista...
- Sa čime odčepiti odvod?
PASCAL MOLIM VAS ZA POMOC
- Začetnik teme sklopotnica
- Datum pokretanja
- Poruka
- 6.514
I to sve treba da "zgruvas" za ujutro?
Najlakse i najbrze resenje ce ti biti da ubijes profesora....
Salim se naravno, ali verovatno si trebala/o ranije vise raditi (ako jemoguce, jer premnogi profesori ni sami nista ne znaju, a kamoli to malo sto znaju da preneu ucenicima)
A sami zadaci su stvarno egzemplari idiotizma.
Mozda se neko nadje da ti pomogne, zelim ti srecu sutra
Najlakse i najbrze resenje ce ti biti da ubijes profesora....
Salim se naravno, ali verovatno si trebala/o ranije vise raditi (ako jemoguce, jer premnogi profesori ni sami nista ne znaju, a kamoli to malo sto znaju da preneu ucenicima)
A sami zadaci su stvarno egzemplari idiotizma.
Mozda se neko nadje da ti pomogne, zelim ti srecu sutra
Peruzzi
Domaćin
- Poruka
- 4.066
sad cu ih cas uradim. nije tesko. samo da pogledam nesto.
bice tu do ponoci sva 4
bice tu do ponoci sva 4
Peruzzi
Domaćin
- Poruka
- 4.066
2.
var niz:array [20] of integer;
i, a, b:integer;
min:integer;
function manji(a, b:integer);
begin if a<b then manji:=a else manji:=b end;
begin
for i:= 1 to 20 do read(niz);
min:=niz[1];
for i:= 1 to 19 do begin
if min>manji (niz, niz[i+1]) then min:=manji(niz,niz[i+1]) end;
write(min);
end.
nije bas elegantno ali moze da prodje
kasnije cu i ostale
malo su duzi...
var niz:array [20] of integer;
i, a, b:integer;
min:integer;
function manji(a, b:integer);
begin if a<b then manji:=a else manji:=b end;
begin
for i:= 1 to 20 do read(niz);
min:=niz[1];
for i:= 1 to 19 do begin
if min>manji (niz, niz[i+1]) then min:=manji(niz,niz[i+1]) end;
write(min);
end.
nije bas elegantno ali moze da prodje
kasnije cu i ostale
malo su duzi...
Peruzzi
Domaćin
- Poruka
- 4.066
function jednaki(a,b:integer):boolean;
begin if a=b then jednaki:=true else jednaki:=false end;
program zad01;
const n:=nesto ovde definises koliko ti je n. mora da bude neki broj
var i, j, res1, res2:integer;
function jednaki......
begin
niz:array[n] of integer;
for i:= 1 to n
for j:= i+1 to n
begin if jednaki(abs(niz), abs(niz[j]))=true then res1:=i;
res2:=j end;
writeln (i, j);
end.
program zad3;
const n:= nesto;
var
A:array[1..n] of integer;
B:array[1..n-1] of integer;
C:array[1..n-2] of integer;
procedure formiraj(i:integer);
begin
B:=A[i+1]-A;
C:=max(A,A[i+1].A[i+2]);
end;
function max(a, b, c:integer):integer;
begin
if a>b then if a>c then max:=a else max:=c;
if a<b then if b<c then max:=c else max:=b;
end;
begin
for i:= 1 to n do read(A);
for i:=1 to n do formiraj(i);
writeln('Niz A':10, 'Niz B':10, 'Niz C':10);
for i:= 1 to n do begin {ovde moze da bude greska, posto b i c
imaju manji broj clanova. u tom slucaju stavi 1 to n-2, pa posle dodaj
dva reda: writeln(A[i+1]:10, B[i+1]:10); writeln(A[i+2]:10,
B[i+2]:10);}
writeln(A:10, B:10, C:10) end;
end.
program zad4;
const n:= nesto;
var
A:array[1..n] of integer;
B:array[1..n] of integer;
C:array[1..n] of integer;
i, j:integer;
procedure uredi;
var c:integer;
begin
for i:= 1 to n-1 do
for j:= 1 to n-1 do begin
if B>B[i+1] then begin c:=B; B:=B[i+1]; B[i+1]:=c end;
if C<C[i+1] then begin c:=C; C:=C[i+1]; C[i+1]:=c end;
end;
end;
begin
for i:= 1 to n do begin read(A); B:=A; C:=A end;
uredi;
writeln('Niz A':10, 'Niz B':10, 'Niz C':10); (ista sema kao u
trecem)
for i:= 1 to n do begin
writeln(A:10, B:10, C:10);
end;
end.
ovo bi trebalo da odradi stvar, mada nisam proverio
ako nesto nije jasno zovi pa pitaj
begin if a=b then jednaki:=true else jednaki:=false end;
program zad01;
const n:=nesto ovde definises koliko ti je n. mora da bude neki broj
var i, j, res1, res2:integer;
function jednaki......
begin
niz:array[n] of integer;
for i:= 1 to n
for j:= i+1 to n
begin if jednaki(abs(niz), abs(niz[j]))=true then res1:=i;
res2:=j end;
writeln (i, j);
end.
program zad3;
const n:= nesto;
var
A:array[1..n] of integer;
B:array[1..n-1] of integer;
C:array[1..n-2] of integer;
procedure formiraj(i:integer);
begin
B:=A[i+1]-A;
C:=max(A,A[i+1].A[i+2]);
end;
function max(a, b, c:integer):integer;
begin
if a>b then if a>c then max:=a else max:=c;
if a<b then if b<c then max:=c else max:=b;
end;
begin
for i:= 1 to n do read(A);
for i:=1 to n do formiraj(i);
writeln('Niz A':10, 'Niz B':10, 'Niz C':10);
for i:= 1 to n do begin {ovde moze da bude greska, posto b i c
imaju manji broj clanova. u tom slucaju stavi 1 to n-2, pa posle dodaj
dva reda: writeln(A[i+1]:10, B[i+1]:10); writeln(A[i+2]:10,
B[i+2]:10);}
writeln(A:10, B:10, C:10) end;
end.
program zad4;
const n:= nesto;
var
A:array[1..n] of integer;
B:array[1..n] of integer;
C:array[1..n] of integer;
i, j:integer;
procedure uredi;
var c:integer;
begin
for i:= 1 to n-1 do
for j:= 1 to n-1 do begin
if B>B[i+1] then begin c:=B; B:=B[i+1]; B[i+1]:=c end;
if C<C[i+1] then begin c:=C; C:=C[i+1]; C[i+1]:=c end;
end;
end;
begin
for i:= 1 to n do begin read(A); B:=A; C:=A end;
uredi;
writeln('Niz A':10, 'Niz B':10, 'Niz C':10); (ista sema kao u
trecem)
for i:= 1 to n do begin
writeln(A:10, B:10, C:10);
end;
end.
ovo bi trebalo da odradi stvar, mada nisam proverio
ako nesto nije jasno zovi pa pitaj
- Poruka
- 6.514
Svaka cast Peruzzi!
Ovo se zove drugarstvo!
cestitam iz sveg srca
Ovo se zove drugarstvo!
cestitam iz sveg srca
Garwor
Poznat
- Poruka
- 7.173
Peruzzi, zasluzio si titulu Wizarda ( nesto kao ruzicasti grand prix) za ovu nedelju
sklopotnica
Zainteresovan član
- Poruka
- 173
HVALA NEK TI BOG PODARI SVE STO POZELIS !
i ja sam nekad davno ucio pascal u skoli, a sad mi izgleda tako debilno.
krajnje je vreme da ga zamene bar sa c.
krajnje je vreme da ga zamene bar sa c.
Peruzzi
Domaćin
- Poruka
- 4.066
Fala fala...
Opi, brate, jeste debilan ali ipak najzgodniji da se utuvi u glavu djacima. Nije c za pocetnike...
E sad, treba meni pomoc.
Pazi kod
program zad01;
var
tekst, novi:string;
i:integer;
pozicija:integer;
f:text;
begin
readln(tekst);
pozicija:=length(tekst);
for i:= length(tekst) downto 1 do begin
if tekst=' ' then novi:=novi+copy(tekst, i+1, pozicija - i);
pozicija:=i end;
assign(f, 'izlaz.txt'); rewrite(f);
writeln(f, novi);
close(f);
end.
program treba da ucitanu recenicu upise ali da okrene raspored reci naopako, tj. ako je ulaz 'jedan dva tri' da izlaz bude 'tri dva jedan'
test ulaz je 'pera jedan dva'
stavio sam namerno izlaz u fajl da bih video sta sve izlazi (zbog space i new line) i dobio ovo
-----
dj
-----
([d][j][nov red])
meni nije jasno zasto ne radi.
objasnjene postupka:
uzima se string i ide se unazad do prvog razmaka, onda se taj deo do kraja iskopira u nov string (zadnja rec) i ostavi marker na tom spaceu, zatim se dalje ide unazad do sledeceg space-a i ponovi isto, ali do markera (druga rec) itd do pocetka stringa
Opi, brate, jeste debilan ali ipak najzgodniji da se utuvi u glavu djacima. Nije c za pocetnike...
E sad, treba meni pomoc.
Pazi kod
program zad01;
var
tekst, novi:string;
i:integer;
pozicija:integer;
f:text;
begin
readln(tekst);
pozicija:=length(tekst);
for i:= length(tekst) downto 1 do begin
if tekst=' ' then novi:=novi+copy(tekst, i+1, pozicija - i);
pozicija:=i end;
assign(f, 'izlaz.txt'); rewrite(f);
writeln(f, novi);
close(f);
end.
program treba da ucitanu recenicu upise ali da okrene raspored reci naopako, tj. ako je ulaz 'jedan dva tri' da izlaz bude 'tri dva jedan'
test ulaz je 'pera jedan dva'
stavio sam namerno izlaz u fajl da bih video sta sve izlazi (zbog space i new line) i dobio ovo
-----
dj
-----
([d][j][nov red])
meni nije jasno zasto ne radi.
objasnjene postupka:
uzima se string i ide se unazad do prvog razmaka, onda se taj deo do kraja iskopira u nov string (zadnja rec) i ostavi marker na tom spaceu, zatim se dalje ide unazad do sledeceg space-a i ponovi isto, ali do markera (druga rec) itd do pocetka stringa
Garwor
Poznat
- Poruka
- 7.173
Peruzzi:
red
pozicija:=i
ti se nepotrebno izvrsava u svakoj iteraciji, treba samo kad apendujes na novi
ovako je pozicija - i uvek 1 kad radis copy
Peruzzi
Domaćin
- Poruka
- 4.066
pu MAJKU MU fali mi begin i end.
to pozicija:=i treba da bude u sklopu if naredbe...
to pozicija:=i treba da bude u sklopu if naredbe...
Garwor
Poznat
- Poruka
- 7.173
eto, a da si na pocetku nacrtao dijagram toka, ne bi pogresio 
pih... meni je bolji VB 6
Peruzzi
Domaćin
- Poruka
- 4.066
hehe...kvarezu mali...
nego, jel zna neko sta je sa adresom z-trening.com?
nije valjda da su je skinuli? a ja se tek logovao...
nego, jel zna neko sta je sa adresom z-trening.com?
nije valjda da su je skinuli? a ja se tek logovao...
