Pascal: školski zadaci

Kako ćeš dobiti prvu znamenku? Podijelit ćeš broj s 1000000 (ako gledamo da su brojevi 32-bitni, znači ako idu +/-2000000), zar ne? Ako je rezultat dijeljenja 0, onda znači d aje broj manji od milijun pa ne ispisuješ tu znamenku nego broj dalje dijeliš s 1000000 / 10. I opet gledaš - ako je rezultat <> 0, to je ta znamenka (prva u ovom slučaju), pa je ispisuješ, a broj umanjuješ za znamenka * 100000 (ili, bolje, napravišbroj mod 100000). I tako ideš sve dok ćeš dijeliti s 1.

Indentacija?

Također, ovo ti ispisuje znamenke od zadnje prema prvoj.

Ne piše. Ali isto tako, mi brojeve čitamo s lijeva nadesno. Pa bi bilo čudno da broj čitamo tako, a njegove znamenke s desna ulijevo.

LOL. Ne moraš radi mene. Možeš radi sebe i radi ovoga koji je postavio pitanje, da vidi kako se to rješava.

Dobra su i prethodna resenja.

Prethodno moze sa nizom, pa da ispise u pravom redosledu.

Evo u pravom redosledu bez niza.

program cifre;  var n,c,sum:integer;m:longint;   begin    readln(n);     m:=1;     repeat      m:=m*10;     until n div m=0;     m:=m div 10;     sum:=0;     writeln('Cifre broja su:');     repeat      c:=n div m;      sum:=sum+c;      n:=n-c*m;      m:=m div 10;      writeln(c);      until m=0;     writeln('Suma cifara je ',sum);     readln;   end.

Ne radi zato sto je n definisano kao integer, za vece brojeve (do oko 2 000 000 000) definisi ga kao longint

u free pascalu imas i int64, tj od -2^63 do 2^63-1

Nisam još učio datoteke,ali ti mogu napisati takav običan program.

Mnogo hvala!

Samo jedno pitanje u vezi s ovim: da li ima alternativa za "c:byte"?

Zadaci sa pitagorinim i fibonacijevim brojevima se ne bi znatno razlikovali?!

1. Napisati program koji u datoteku jednadzba.txt ispisuje jednacinu kvadratne jednadzbe i njena rjesenja.

2. Iz datoteke prica.txt na ekranu ispisati kao rezultat koliko rijeci ima u toj datoteci. Broj rijeci je za jedan veci od broja praznih mjesta.

3. Napisati program koji u datoteku ucenik.txt upisuje prezime i ime ucenika, ocjene iz predmeta i srednju ocjenu na kraju. (ako ima 1 iz bilo kojeg predmeta, srednja ocjena je 1)

Jel znaš što je byte? Cijeli broj, veličine jednog bajta - dakle, ima raspon od 0..255 ako se ne varam (mislim da nije predznačeni - nek me netko ispravi ako sam fulao). Koji su sve cjelobrojni tipovi? Valjda ćeš naći neki među njima.

I koji ćeš izabrati?

2. Iz datoteke prica.txt na ekranu ispisati kao rezultat koliko rijeci ima u toj datoteci. Broj rijeci je za jedan veci od broja praznih mjesta.

Malo je nejasan zadatak, ali evo jedno jednostavnije resenje.

program rijeci;var brreci:integer;    f:text;s:char;begin  assign(f,'prica.txt');  reset(f);  brreci:=1;  while not eof(f) do    begin      read(f,s);      if s=' ' then brreci:=brreci+1;    end;  writeln('Broj reci je ',brreci);  close(f);end.

3. Napisati program koji u datoteku ucenik.txt upisuje prezime i ime ucenika, ocjene iz predmeta i srednju ocjenu na kraju. (ako ima 1 iz bilo kojeg predmeta, srednja ocjena je 1)

Evo primer za n ucenika.

program ucenik; var ime,prezime:string;  ocene:array[1..20] of byte;  pr:real;  s,i,j,n,brp:integer;  nedovoljan:boolean;  f:text; begin    assign(f,'ucenik.txt');    rewrite(f);    write('Unesite broj ucenika:');    readln(n);    for i:=1 to n do     begin      write('Unesite ime ucenika:');      readln(ime);      write('Unesite prezime ucenika:');      readln(prezime);      write('Unesite broj predmeta:');      readln(brp);      write('Unesite ',brp,' ocena:');      for j:=1 to brp do        read(ocene[j]);        readln;        write(f,ime,' ',prezime);        s:=0;        nedovoljan:=false;        for j:=1 to brp do          begin            s:=s+ocene[j];            if ocene[j]=1 then                nedovoljan:=true;            write(f,ocene[j]:2);          end;       pr:=s/brp;       if nedovoljan then          writeln(f,' 1.00')       else         writeln(f,pr:5:2);     end;    close(f);end.

Loše si indentirao kod - pogledaj moj kod pa radi po uzoru na njega - ovako je nepregledno.

Druga stvar - koji točno je tekst zadatka? Jer ovako kako gledam, tvoje rješenje nema smisla - ako sam dobro uspio skužiti tvoje rješenje, ti u svom zadatku u biti gledaš je li zaokruženi korijen kvadriranog broja jednak izvornom broju! A to je apsurd. U biti gledaš je li dobivaš li zaokruživanjem početni broj.

Također, možeš li objasniti čemu služi write(f,x,y,round(z))? Na naredba ispisuje sve te brojeve jedan iza drugog bez ikakvog razmaka i sve u jednom redu, odnosno u više iteracija dobiješ nepregledan niz znamenki!

Prvo zaboravi na datoteke - ti trebaš znati radi li ti program ispravno, zar ne? Onda prvo napraviš program koji ispusuje na ekran. I kad si 100% siguran da ti program radi ispravno, onda složiš da ispisuje u datoteku.

Što su pitagorini brojevi? To se misli na sve a, b i c, koji odgovaraju a² + b² = c²? Pa onda samo listaš a i b do broja n i ispisuješ a, b i korijen od a²+b², zar ne? Gdje je tu problem? c treba biti prirodni broj? Onda gledaš je li sqrt(c) = floor(sqrt(c)). Jesi to pokušao testirati s round-om?

Ovo s Fibonnacijevim brojevima - samo moraš pamtiti dva plošla broja, a aktualni broj je njihov zbroj. Pretprošli broj postaje prošli, prošli postaje dotadašnji aktualni.