Pascal: školski zadaci

poruka: 546
|
čitano: 144.003
|
moderatori: Lazarus Long, XXX-Man, vincimus
+/- sve poruke
ravni prikaz
starije poruke gore
12 godina
moderator
offline
Re: Pascal: školski zadaci
DmL kaže...

Moram u priloženoj proceduri ograničiti učitavanje godišta učenika smao na brojeve - dakle, ako slučajno netko upiše slova, da se Pascal ne sruši, već da izbaci nešto tipa 'Krivi unos. Unesite broj, a ne slova.'

Dal' možeš to napravit' u proceduri koju sam priložio na prethodnoj stranici?

Što fali metodi opisanoj u onom linku koji sam dao? Zašto uvjet "U tome je problem, to treba BEZ korištenja stringa."? Je li ti jasno u čemu je problem?

 

  • Ako koristiš ReadLn i učitavaš Integer, program će ti se srušiti bez konstrukcija try..except (ovo konstrukcijom znaš kad je došlo do greške, jer se u slučaju greške izvodi blok except) i try..finally (ovo služi da se osiguraš da se program ne sruši kad dođe do greške).
  • Ako koristiš ReadLn i učitavaš String, program se neće srušiti i kod konverzije Stringa u Integer ćeš znati je li ispravno upisan broj ili ne.

 

Pa se ti sad dogovori sam sa sobom što ti zapravo hoćeš i koja metoda ti bolje odgovara.

11 godina
neaktivan
offline
Pascal: školski zadaci

Pokušat ću još jednom:

treba mi najjednostavnije rješenje ( vjerovatno korišteći ASCII tablicu ); uvijet BEZ STRINGA je valjda jer NE smijemo, ponavljam, NE smijemo koristiti string.

Valjda bi išao raditi sa njim da znam i da smijem.

 

Dakle, najjednostavnije rješenje, rekla je da nam treba ASCII tablica, repeat petlja i niz tipa char.

A ja ne znam to ukomponirati sve zajedno.

 

Nadam se da si sada razumio zadatak. {#}

 

I da, ne mogu ni taj try..except kad to nismo nikad radili.

Intel Core i7,Zotac GeForce GTX 295 ,6 GB of RAM,WD Caviar Black 1TB
Poruka je uređivana zadnji put pon 6.6.2011 21:55 (DmL).
Moj PC  
0 0 hvala 0
12 godina
moderator
offline
Re: Pascal: školski zadaci
DmL kaže...

Pokušat ću još jednom:

treba mi najjednostavnije rješenje ( vjerovatno korišteći ASCII tablicu ); uvijet BEZ STRINGA je valjda jer NE smijemo, ponavljam, NE smijemo koristiti string.

Valjda bi išao raditi sa njim da znam i da smijem.

 

Dakle, najjednostavnije rješenje, rekla je da nam treba ASCII tablica, repeat petlja i niz tipa char.

A ja ne znam to ukomponirati sve zajedno.

 

Nadam se da si sada razumio zadatak. {#}

Sad si prvi put napisao zadatak, tako da ga prije nisam ni mogao razumjeti jer nisam imao što razumjeti. {#}

 

Imaš funkciju ReadKey, koja ti vraća ASCII vrijednost pritisnute tipke, tj. char. Dakle, vrtiš petlju sve dok korisnik ne pritisne Enter (ASCII #13). Unutar petlje provjeravaš je li povratna vrijednost funkcije brojčana znamenka. I kako ćeš doći do finalnog broja? Vučeš za sobom množitelj - znači, kod unosa prve znamenke ništa s ničim ne množiš, kod unosa druge znamenke množiš trenutni rezultat (prvu znamenku) s 10 i pribrajaš upravo unesenu znamenku. Ako korisnik unese još jednu znamenku, opet rezultat množiš s 10 i pribrajaš upravo unesenu znamenku. Ako korisnik ne upiše znamenku, ignoriraš je (možeš recimo napraviti i beep ili nešto crvenim negdje na ekranu označiti ili štoveć).

11 godina
neaktivan
offline
Re: Pascal: školski zadaci
mbaksa kaže...
DmL kaže...

Sad si prvi put napisao zadatak, tako da ga prije nisam ni mogao razumjeti jer nisam imao što razumjeti. {#}

 

Imaš funkciju ReadKey, koja ti vraća ASCII vrijednost pritisnute tipke, tj. char. Dakle, vrtiš petlju sve dok korisnik ne pritisne Enter (ASCII #13). Unutar petlje provjeravaš je li povratna vrijednost funkcije brojčana znamenka. I kako ćeš doći do finalnog broja? Vučeš za sobom množitelj - znači, kod unosa prve znamenke ništa s ničim ne množiš, kod unosa druge znamenke množiš trenutni rezultat (prvu znamenku) s 10 i pribrajaš upravo unesenu znamenku. Ako korisnik unese još jednu znamenku, opet rezultat množiš s 10 i pribrajaš upravo unesenu znamenku. Ako korisnik ne upiše znamenku, ignoriraš je (možeš recimo napraviti i beep ili nešto crvenim negdje na ekranu označiti ili štoveć).

Ne znam kako to uopće napraviti. Objasnio mi jesi - svaka čast, ali ja to ne bih znao napraviti. Nemam još dovoljno znanja u Pascal-u.

 

Pa te lijepo molim, ako ti nije teško, ubaci par linija koda u proceduru i rješeno!

Ako napišeš, možda jop i skužim o čemu se radi, ali nema šanse da ja napišem takvo nešto.

 

Evo procedure da ne tražiš;

 

 

Procedure sedma ( var god : niz; zele:integer);

var i :integer; ch:char;

begin

writeln('Upišite godišta za ',zele,' učenika.');

for i := 1 to zele do begin

readln(god[i]);

end;

for i := 1 to zele do begin

write(i:2);

writeln(god[i]:5);

end;

readln;

end;

 

Intel Core i7,Zotac GeForce GTX 295 ,6 GB of RAM,WD Caviar Black 1TB
Poruka je uređivana zadnji put pon 6.6.2011 22:39 (DmL).
12 godina
moderator
offline
Re: Pascal: školski zadaci

Mislim da bi ti iz ovog sve trebalo biti jasno.

 

uses crt;

var
  Broj: LongInt;
  Znak: Char;
begin
  Write('Upiši broj: ');

  Znak := ReadKey();

  while Znak <> #13 do
  begin
    if (Znak >= '0') and (Znak <= '9') then
    begin
      Write(Znak);
      Broj := Broj * 10 + (Ord(znak) - 48);
    end;

    Znak := ReadKey();
  end;

 

Funkcija Ord vraća redni broj znaka u ASCII tablici (48 je redni broj znaka '0', tj. nule, u ASCII tablici).

 

Edit - dopisao sam liniju Write(Znak); - bez toga korisnik tipka, ali se ne vide brojke na ekranu.

 

Poruka je uređivana zadnji put pon 6.6.2011 23:03 (mbaksa).
9 godina
neaktivan
offline
Pascal: školski zadaci

ljudi pomagajte

imam zadatak owako

za swakog ucenika unosi se ime prezime uspeh iz prwe godine srednje(uspeh1),uspeh2,uspeh,3,uspeh4,bodowi sa prijemnoh,i rang(budzhet ili samofinansiranje).moram da naprawim procedure koje

1.unosi ime i prezime

2.unosi uspehe iz 4godine

3.dortira djake o uspehu na osnowu proseka uspeha prosek=((uspeh1+uspeh2+uspeh3+uspeh)*2);

4.unosi bodowe sa prijemnog

5.sortira ih ponowo ali owaj put konacni rezultat=bodowi sa prijemnog+prosek

i za prwih 20 upisuje da je rang budzhet a za sledecih 10 upisuje rang samofinansiranje

 
0 0 hvala 0
9 godina
offline
Re: Pascal: školski zadaci
kepito kaže...

ljudi pomagajte

imam zadatak owako

za swakog ucenika unosi se ime prezime uspeh iz prwe godine srednje(uspeh1),uspeh2,uspeh,3,uspeh4,bodowi sa prijemnoh,i rang(budzhet ili samofinansiranje).moram da naprawim procedure koje

1.unosi ime i prezime

2.unosi uspehe iz 4godine

3.dortira djake o uspehu na osnowu proseka uspeha prosek=((uspeh1+uspeh2+uspeh3+uspeh)*2);

4.unosi bodowe sa prijemnog

5.sortira ih ponowo ali owaj put konacni rezultat=bodowi sa prijemnog+prosek

i za prwih 20 upisuje da je rang budzhet a za sledecih 10 upisuje rang samofinansiranje

rado bih pomogao,reci u čemu je problem

 

P.s. toplo se nadam da ti 'v' ne radi na tipkovnici jer ako radi ovo je {#}

griješiti je ljudski al je osjećaj božanski
9 godina
neaktivan
offline
Re: Pascal: školski zadaci

program fax;
uses crt;
type
slog=record
sifra:integer;
ime:string[20];
prezime:string[20];
uspeh1:real;
uspeh2:real;
uspeh3:real;
uspeh4:real;
ukupno:real;
prijemni:real;
konacno:real;
rang:string[20];
end;
type
niz=array [1..40] of slog;
var
znak:char;
i:integer;
x:file of slog;
y:slog;
procedure unos;forward;
procedure konacna;forward;
procedure meni;forward;
procedure unos_uspeha;forward;
procedure rang_lista_uspeha;forward;
procedure uprijemni;forward;
procedure pretraga;forward;
procedure crta;forward;
procedure meni;
begin
repeat
clrscr;
gotoxy(33,4);write('Meni:');
gotoxy(27,8);write('1.Unos maticnih podataka:');
gotoxy(27,10);write('2.Unos uspeha:');
gotoxy(27,12);write('3.Rang lista uspeha:');
gotoxy(27,14);write('4.Unos bodova sa prijemnog ispita:');
gotoxy(27,18);write('5.Pretraga');
gotoxy(27,20);write('6.Ispis neuspelih');
gotoxy(27,22);write('7.KNr');
gotoxy(27,24);write('8.Kraj');
writeln;
writeln('-------------------------------------');
gotoxy(27,26);write('Unesi broj:');
repeat
readln(znak);
until znak in ['1','2','3','4','5','6','7','8'];
case znak of
'1':unos;
'2':unos_uspeha;
'3':rang_lista_uspeha;
'4':uprijemni;
'5':pretraga;
'6':crta;
'7':konacna;
'8':halt;
end;
until (znak='8');
end;
procedure unos;
var k:integer;
c:char;
begin
assign(x,'fax.dat');
rewrite(x);
k:=0;
repeat
with y do begin
writeln('Unesi ime:');
readln(ime);
writeln('Unesi prezime:');
readln(prezime);
sifra:=k;
end;
writeln('Da li zelis jos? (Y/N)');
readln(c);
c:=Upcase(c);
writeln('*******************************************************');
write(x,y);
k:=k+1;
until (c='N');
close(x);
readln;
meni;
end;
procedure unos_uspeha;
var
i,k:integer;
begin
assign(x,'fax.dat');
reset(x);
k:=filesize(x);
i:=0;
while not eof(x) do
begin
read(x,y);
{for i:=0 to k-1 do}
{begin}
with y do
begin
writeln('Unesi uspeh 1. godine: za',y.ime);
writeln(filepos(x));
readln(uspeh1);
seek(x,filepos(x)-1);
write(x,y);
writeln('Unesi uspeh 2. godine:');
readln(uspeh2);
seek(x,filepos(x)-1);
write(x,y);
writeln('Unesi uspeh 3. godine:');
readln(uspeh3);
seek(x,filepos(x)-1);
write(x,y);
writeln('Unesi uspeh 4. godine:');
readln(uspeh4);
seek(x,filepos(x)-1);
write(x,y);
ukupno:=(uspeh1+uspeh2+uspeh3+uspeh4)*2;
writeln('Uspeh: ',ukupno:10:2);
seek(x,filepos(x)-1);
write(x,y);
{end;}
end;
end;
close(x);
readln;
meni;
end;
procedure uprijemni;
var
k:integer;
q:real;
begin
assign(x,'fax.dat');
reset(x);
//read(x,y);
//repeat
//k:=y.sifra;
while not eof(x) do
begin

read(x,y);
//writeln(filepos(x),'==');
writeln('Unesi bodove sa prijemnog za: ',y.prezime);
readln(q);
//writeln(filepos(x),'==');
y.prijemni:=q;
seek(x,filepos(x)-1);
write(x,y);
end;
//until(k=filesize(x));
close(x);
readln;
meni;
end;
procedure rang_lista_uspeha;
var
a:niz;
b:file of slog;
i,j,m:integer;
kanta:slog;
begin
assign(x,'fax.dat');
reset(x);
assign(b,'sorta.dat');
rewrite(b);
i:=0;
while not eof(x) do
begin
read(x,y);
i:=i+1;
a[i]:=y;
end;
m:=i-1;
 for i:=1 to m-1 do
  for j:=i+1 to m do
  if a[i].ukupno<a[j].ukupno then
  begin
  kanta:=a[i];
  a[i]:=a[j];
  a[j]:=kanta;
  end;
  for i:=1 to m do
  write(b,a[i]);
  for i:=1 to m do
  begin
  writeln(i,'.',a[i].ime:10,a[i].prezime:12,a[i].ukupno:12:2);
  end;
  close(x);
  close(b);
  readln;
  meni;
end;
procedure konacna;
var
i,j,m:integer;
b:file of slog ;
a:array[1..40] of slog;
p:slog;
begin
assign(x,'fax.dat');
reset(x);
assign(b,'sorta.dat');
rewrite(b);
while not eof (x) do
begin
read(x,y);
y.konacno:=y.prijemni+y.ukupno;
seek(x,filepos(x)-1);
write(x,y);
end;
reset(x);
read(x,y);
i:=1;
a[i]:=y;
i:=i+1;
m:=y.sifra;
 for i:=1 to m-1 do
  for j:=i+1 to m do
  if a[i].konacno<a[j].konacno then
  begin
  p:=a[i];
  a[i]:=a[j];
  a[j]:=p;
  end;
  write(b,a[i]);
 for i:=1 to m do
writeln(i,'.',a[i].ime:10,a[i].konacno:12:2);
  close(x);
  close(b);
  readln;
  meni;
end;
procedure pretraga;
var
j:string;
begin
assign(x,'fax.dat');
reset(x);
writeln('Unesi ime za pretragu');
readln(j);
while not eof(x) do
begin
read(x,y);
with y do
begin
if ime=j then
begin
writeln(ime);
writeln(prezime);
end;
end;
end;
close(x);
readln;
meni;
end;
procedure crta;
var
z:text;
begin
assign(z,'crta.txt');
rewrite(z);
assign(x,'fax.dat');
reset(x);
while not eof(x) do
begin
read(x,y);
if (y.rang<>'budzet') and (y.rang<>'samofinansiranje') then
writeln(z,y.ime:10,y.prezime:10);
end;
close(x);
close(z);
readln;
meni;
end;
begin
meni;
end.

9 godina
neaktivan
offline
Re: Pascal: školski zadaci

hmmm sta kazes jel bi mogao da detektujes i popravis gresku

 

9 godina
offline
Re: Pascal: školski zadaci
kepito kaže...

hmmm sta kazes jel bi mogao da detektujes i popravis gresku

 

tesko mi je citat ovako sve jedno ispod drugog,pokusavam naći :/

griješiti je ljudski al je osjećaj božanski
9 godina
neaktivan
offline
Re: Pascal: školski zadaci

da ti pomognem treba mi pomo samo

kod konacne rang liste i procedure crte ovo sce ostalo je dobro samo broj 6 i 7 nisu skroz ok hvala ti puno

problem kod sedmice je u tome sto sortira sve i samo ispise najboljeg a ostale negde izostavi

 

11 godina
offline
Pascal: školski zadaci

Može pomoć?Zadatak je ovaj.

EDIT:Riješen problem.

 

Napiši program koji upisuje zapise oblika : ime,šrezime,prosjek i u datoteku proizvoljnog imena.Zatim se upiše neka ocjena od 1-5 te se iz datoteke trebaju pročitati i ispisati svi učenici koji su prošli s tom ocjenom.

 

Program prvi;type ucenik = record        ime,prezime:string[20];        prosjek:real;     end;var d:file of ucenik;    uc:ucenik;    broj,i,ocjena:integer;    ime_dat:string[15];beginwriteln('Upisi ime datoteke');readln(ime_dat);assign(d,ime_dat+'.dat');{$I-}reset(d);if IoResult <> 0 then rewrite(d);{$I+}write('Upisi broj ucenika');readln(broj);writeln('Upisi podatke o ucenicima');for i:= 1 to broj do   with uc do      begin         readln(ime);         readln(prezime);         readln(prosjek);         seek(d,i-1);         write(d,uc);      end;writeln('Upisi ocjenu');readln(ocjena);writeln('Ucenici s tom ocjenom su');for i:= 1 to filesize(d) do   with uc do      if round(prosjek) = ocjena then         begin            seek(d,i-1);            read(d,uc);            writeln(ime);            writeln(prezime);            writeln(prosjek);         end;readln;end.

HTC Desire Android
Poruka je uređivana zadnji put uto 13.9.2011 15:57 (emerik).
 
0 0 hvala 0
11 godina
neaktivan
offline
Pascal: školski zadaci

znaci radi se o 2D polju i treba rijesiti zadatak ali ne kuzim kaj se trazi u zadatku pa ako bi mi netko moga objasniti:ispisati rezultat prebrojavanja po zadanom kriteriju u cijelom polju

Tražim pozivnicu za yuwabits.net pa ko hoće poslati neka mi pošaljepm
 
0 0 hvala 0
12 godina
moderator
offline
Re: Pascal: školski zadaci
acmilan0083 kaže...

znaci radi se o 2D polju i treba rijesiti zadatak ali ne kuzim kaj se trazi u zadatku pa ako bi mi netko moga objasniti:ispisati rezultat prebrojavanja po zadanom kriteriju u cijelom polju

O kojem zadatku je riječ?

 

"rezultat prebrojavanja po zadanom kriteriju u cijelom polju" - kaj ti tu nije jasno? Ideš od elementa do elementa polja, gledaš da li element zadovoljava zadani kriterij (kriterj je valjda zadan u zadatku, zar ne?) i ako zadovoljva, uvećaš za 1 brojač (varijablu) koja ti služi za bilježenje broja elemenata koji zadovoljavaju zadani kriterij.

11 godina
neaktivan
offline
Re: Pascal: školski zadaci
mbaksa kaže...
acmilan0083 kaže...

znaci radi se o 2D polju i treba rijesiti zadatak ali ne kuzim kaj se trazi u zadatku pa ako bi mi netko moga objasniti:ispisati rezultat prebrojavanja po zadanom kriteriju u cijelom polju

O kojem zadatku je riječ?

 

"rezultat prebrojavanja po zadanom kriteriju u cijelom polju" - kaj ti tu nije jasno? Ideš od elementa do elementa polja, gledaš da li element zadovoljava zadani kriterij (kriterj je valjda zadan u zadatku, zar ne?) i ako zadovoljva, uvećaš za 1 brojač (varijablu) koja ti služi za bilježenje broja elemenata koji zadovoljavaju zadani kriterij.

aha hvala a onda cu zhati napraviti

Tražim pozivnicu za yuwabits.net pa ko hoće poslati neka mi pošaljepm
8 godina
odjavljen
offline
Pascal: školski zadaci

EDIT

nvm glup sam

http://revohd.com/
Poruka je uređivana zadnji put ned 27.11.2011 12:53 (chromadef).
Moj PC  
0 0 hvala 0
8 godina
neaktivan
offline
Pascal: školski zadaci

Napisati program koji ispisuje prosjek niza unijeti brojeva.. 

 
0 0 hvala 0
10 godina
neaktivan
offline
Re: Pascal: školski zadaci
Bojke kaže...

Napisati program koji ispisuje prosjek niza unijeti brojeva.. 

Gramatika? Daj popravi jer je neam pojma kaj ti hoćeš...

http://bux.ratovi.net/?r=plahy
11 godina
offline
Re: Pascal: školski zadaci
Bojke kaže...

Napisati program koji ispisuje prosjek niza unijeti brojeva.. 

Evo ti.

 

Program forum;
var x,n,suma,i:integer;
prosjek:real;
begin
writeln('Upisi n');
readln(n);
writeln('Upisi n brojeva');
suma:=0;
for i:=1 to n do
   begin
   readln(x);
   suma:=suma+x;
   end;
prosjek:=suma/n;
writeln('Prosjek upisanih brojeva je :',prosjek:6:2);
readln;
end.

F1 2011 Codemasters
8 godina
neaktivan
offline
Pascal: školski zadaci

Jel moze pomoc?

Napisati program kojim ce se unijeti niz od 50 brojeva, sortirati ti brojevi i ispisati sortirani brojevi!

Hvala 

 
0 0 hvala 0
8 godina
neaktivan
offline
Pascal: školski zadaci

Jel moze pomoc?

Napisati program kojim ce se unijeti niz od 50 brojeva, sortirati ti brojevi i ispisati sortirani brojevi!

Hvala 

 
0 0 hvala 0
11 godina
offline
Re: Pascal: školski zadaci

Evo,ali ovo su zbilja jednostavni zadaci.Razmislite malo prije nego što pitate.

 

Program forum;
var i,j,pom:integer;
x:array[1..50] of integer;
begin
writeln('Upisi 50 brojeva');
for i:=1 to 50 do
   readln(x[i]);
for i:=1 to 49 do
   for j:=i+1 to 50 do
      if x[i] > x[j] then
         begin
         pom:=x[i];
         x[i]:=x[j];
         x[j]:=pom;
         end;
writeln('Sortirani niz je :');
for i:=1 to 50 do
   write(x[i],'   ');
readln;
end.


F1 2011 Codemasters
10 godina
neaktivan
offline
Re: Pascal: školski zadaci
emerik kaže...

Evo,ali ovo su zbilja jednostavni zadaci.Razmislite malo prije nego što pitate.

 

Program forum;
var i,j,pom:integer;
x:array[1..50] of integer;
begin
writeln('Upisi 50 brojeva');
for i:=1 to 50 do
   readln(x[i]);
for i:=1 to 49 do
   for j:=i+1 to 50 do
      if x[i] > x[j] then
         begin
         pom:=x[i];
         x[i]:=x[j];
         x[j]:=pom;
         end;
writeln('Sortirani niz je :');
for i:=1 to 50 do
   write(x[i],'   ');
readln;
end.


Ti si isto tak pital prije godinu dana.... {#}

http://bux.ratovi.net/?r=plahy
8 godina
neaktivan
offline
Pascal: školski zadaci

Moze li netko rijesit molim vas

preuzet tecajnu listu sa hnb-ove stranice http://www.hnb.hr/tecajn/htecajn.htm (formatiranom obliku) i ucitat u .txt datoteku nad kojim ce program radit program bi trebao preracunavat iz jedne valute u drugu tako da mu das pocetnu valutu, odredisnu i iznos npr 100 AUD u CAD

 
0 0 hvala 0
9 godina
neaktivan
offline
Pascal: školski zadaci

To nije baš trivijalan programčić za pascal. U delphiju svakako jednostavnije. No bar si mi dao ideju...

 

Edit: Evo baš napravio u C++ Builderu (link).

http://www.chess.com/livechess/profile/Tracer1808
Poruka je uređivana zadnji put pon 19.12.2011 21:05 (TracerCPP).
Moj PC  
2 0 hvala 1
8 godina
neaktivan
offline
Re: Pascal: školski zadaci
izvini
sta predstavlja u pascalu-u  oznaka
{$I-} i {$I+} 
cemu sluzi?sta radi?
posto je ovim zagradama sluzi korisniku kao neko obavestenje ili ???
11 godina
offline
Re: Pascal: školski zadaci

Dio koda unutar tih znakova će se kompajlirati čak ako ima i nekih grešaka u tom kodu.

AC Milan - IL CLUB PIU' TITOLATO AL MONDO
8 godina
neaktivan
offline
Re: Pascal problem

ako neko zna neka mi pomogne oko ovog zadatka {#}

Kreirati niz od 10 elemenata, zatim unijeti clanove i onda u drugi niz kopirati clanove iz prvog niza koji su veci od 8!

 

8 godina
neaktivan
offline
Pascal: školski zadaci

Pozdrav.

Može li netko riješiti ova dva zadatka? Treba mome prijatelju, što prije. Hvala.

 

"Upisi poruku. Izracunaj umnozak svakog parnog broja skupa poruke. (potprogram)"

"Upisi poruku. Rekurzivno sve male vokale pretvori u velike i oboji (modul)."

 
0 0 hvala 0
10 godina
offline
Pascal: školski zadaci

Imam jedno pitanje u vezi pascala. Vezano je uz binarne datoteke. Pokušavam u programu uz proceduru novadatoteka dodati i proceduru postojecadatoteka. Odnosno da otvori tu postojeću datoteku. Uspijem to napraviti bez ikakvih uvjeta a kada pokušam postaviti sa uvjetom(da mi prikaže poruku da datoteka ne postoji te da upisem novo ime, uopće ju ne učita) i treba mi baš to sa procedurom da kasnije koristim u glavnom programu.

 

Moj PC  
0 0 hvala 0
Nova poruka
E-mail:
Lozinka:
 
vrh stranice