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

trebaju mi kratki programi iz paskala

[es] :: Pascal / Delphi / Kylix :: trebaju mi kratki programi iz paskala

[ Pregleda: 4150 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dimnicar
dimnicar

Član broj: 48094
Poruke: 493
*.243.eunet.yu.



+5 Profil

icon trebaju mi kratki programi iz paskala22.07.2005. u 22:37 - pre 211 meseci
Ucim Paskal,pa mi trebaju neki reseni pocetnicki zadaci.
ko oma ,a sigurno ima bio bi mu zahvalan,jer trenutno ucim iz Langfieldove knjige Naucite da programirate u paskalu i delfiju,ali skoro da i nema uradjenih zadataka,vec objasni da formulu i saku zadataka,pa radi.,a ja sam zapeo kod if,case i petlji na 4 poglavlju.
pozdrav
 
Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 856
*.dialup.blic.net.



+144 Profil

icon Re: trebaju mi kratki programi iz paskala22.07.2005. u 23:16 - pre 211 meseci
Ja imam sve rjesene zadatke sto smo ih radili u skoli. Pokrivaju oblast do 2d nizova (ukljucujuci i njih). Ima tu sve i svasta, okacicu ti ih, pa ti izaberi sta ti treba. Inace, ove sam zadatke radio kad sam tek ucio Pascal, pa mozda ima i poneka greska, ali uglavnom rade.

Prikačeni fajlovi
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 493
*.152.eunet.yu.



+5 Profil

icon Re: trebaju mi kratki programi iz paskala26.07.2005. u 23:51 - pre 211 meseci
hvala,dobro je ,ako imas samo jos text zadataka za for petlju(nije ubacen)
pozdrav
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 493
*.yu
Via: [es] mailing liste



+5 Profil

icon Re: trebaju mi kratki programi iz paskala09.08.2005. u 08:34 - pre 210 meseci
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: trebaju mi kratki programi iz paskala11.08.2005. u 21:17 - pre 210 meseci
Evo ti primjer za rad sa datotekama..
Korisno ako se u datoteci nalaze rijeci ispisane u ovom obliku:

nesto1
nesto2
nesto3
nesto4
.....


Code:

(*****************************************************************
 *                        Rad sa datotekom                       *
 *                Coded by Passwd in TurboPascal 7               *
 *****************************************************************)


program datoteka;
uses crt;
var lokacija:string[30];
    duz:integer;
    pod:array[1..100] of string;
    fajl,izlaz:text;
    t:array [1..100] of string;
    x,y,n,broj,max,min:integer;
    ime,dat:string;
    izbor,izbor1:char;


procedure ucitaj;
begin
clrscr;
writeln('Upisite lokaciju datoteke:');
readln(lokacija);
assign(fajl,lokacija);
reset(fajl);
duz:=0;
writeln('Datoteka je uspjesno ucitana..');
writeln('Sadrzaj datoteke je:');
writeln;
while not eof(fajl) do
begin
inc(duz);
readln(fajl,pod[duz]);
writeln(pod[duz]);
end;
writeln;
writeln;
writeln('Broj redova: ',duz);
end;


procedure izbornik;
begin
writeln;
writeln;
writeln('Odaberite opciju:');
writeln('1-sortiranje imena');
writeln('2-opci podaci');
izbor:=readkey;
case izbor of
'1':begin
    writeln;
    writeln('Odabrali ste opciju: 1');
    writeln('Sortirani podatci:');
    for x:=duz-1 downto 1 do
    for y:=1 to x do
            begin
            if pod[y]>pod[y+1] then
                    begin
                    t[y]:=pod[y];
                    pod[y]:=pod[y+1];
                    pod[y+1]:=t[y];
                    end;
            end;
    for y:=1 to duz do begin
                       writeln(pod[y]);
                       end;
    writeln;
    for n:=length(lokacija) downto 1 do
          begin
          if lokacija[n]='\' then
                    begin
                    ime:=copy(lokacija,n+1,length(lokacija));
                    end;
          end;
        writeln('Zelite li spremiti sortirane podatke u c:\SORT',ime, ' (d/n)..');
        izbor1:=readkey;
        dat:='c:\SORT'+ime;
        assign(izlaz,dat);
        rewrite(izlaz);
        if izbor1='d' then begin
                           for y:=1 to duz do
                             begin
                             writeln(izlaz,pod[y]);
                             end;
                           end;
        close(izlaz);
        if izbor1='n' then exit;
        end;

'2':begin
    writeln('Odabrali ste opciju: 2');
    writeln;
    broj:=0;
    for x:=1 to duz do
         begin
              broj:=broj+length(pod[x]);
         end;

    writeln('Ukupni broj znakova: ',broj);
    max:=0;
    min:=100;
    for x:=1 to duz do
       begin
       if length(pod[x])>max then max:=length(pod[x]);
       if length(pod[x])<min then min:=length(pod[x]);
       end;

    writeln('Najduza rijec sadrzi znakova: ',max);
    writeln('To su rijeci:');
    for x:=1 to duz do
           begin
           if length(pod[x])=max then writeln(pod[x]);
           end;

    writeln;
    writeln('Najkraca rijec sadrzi znakova: ',min);
    writeln('To su rijeci:');
    for x:=1 to duz do
           begin
           if length(pod[x])=min then writeln(pod[x]);
           end;


    end;
end;

readln;
end;

procedure kraj;
begin
close(fajl);
end;

begin
ucitaj;
izbornik;
kraj;
readln;
end.


Nadam se da ce ti koristiti!
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 493
*.162.EUnet.yu.



+5 Profil

icon Re: trebaju mi kratki programi iz paskala12.08.2005. u 21:37 - pre 210 meseci
hvala ,sve ce mi koristiti.ako ima jos,moze.
pozdrav
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: trebaju mi kratki programi iz paskala

[ Pregleda: 4150 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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