Pascal: školski zadaci

Znači treba napisati program u kojem upisujemo 3 broja i on računa da li za njih vrijedi Pitagorin uvjet.Program mi izbacuje grešku:"18 / 11 pitago~1.pas
  Fatal: Syntax error, THEN expected but := found".Zanima me dali je algoritam za računanje srednjeg broja dobar.Hvala na pomoći.

program Pitagorin_uvjet;
var a,b,c,max,min,sred:integer;
begin
writeln('Upisi 3 broja da provjerimo Pitagorin uvjet');
readln(a,b,c);
max:=a;
if b > max then max:=b;
if c > max then max:=c;

min:=c;
if b < c then min:=b;
if a < b then min:=a;

sred:=b;
if (a > sred) and (a < c) then sred:=a;
if (c > sred) and (c < a) then sred:=c;

if max*max:=((min*min) + (sred*sred)) then
writeln('Ovi brojevi zadovojlavaju Pitagorin uvjet')
else writeln('Ovi brojevi ne zadovoljavaju uvjet');
readln;
end.

  Joj da,glupa greška,sorry,tek 3. tjedan učim Pascal.

Inace, u svom programu se uopce ne moras muciti sa srednjim i najmanjim brojem - bitno je samo da znas koji ti je najveci. Proanaliziraj ovaj primjer:

program Pitagorin_uvjet;

procedure Zamijeni(var x: Integer; var y: Integer);
var
  tmp: Integer;
begin
  tmp := x;
  x := y;
  y := tmp;
end;

var
  a, b, c: Integer;
begin
  WriteLn('Upisi 3 broja da provjerimo Pitagorin uvjet');
  ReadLn(a, b, c);

  if c < b then Zamijeni(c, b);
  if c < a then Zamijeni(c, a);

  if c*c = a*a + b*b then
    WriteLn('Ovi brojevi zadovoljavaju Pitagorin uvjet')
  else
    WriteLn('Ovi brojevi ne zadovoljavaju uvjet');
end.

U ovom primjeru koriste se tri originalne varijable (a, b, c), a njihove vrijednosti ce funkcija Zamijeni - naravno, zamijeniti. Primijeti da argumentima funkcije Zamijeni prethodi rezervirana rijec var - ona znaci da se argumenti prenose kao reference - dakle, mijenjanjem sadrzaja varijable x ili y, zapravo se mijenjaju vrijednosti varijable koje su argumenti funkcije Zamijeni u glavnom dijelu programa.

Mozda ti ovo sad jos ne treba, ali nekad u buducnosti bi moglo. Recimo kod sortiranja - napisat ces si slicnu proceduru za zamjenu vrijednosti.

Imam još jedan problem.Treba napisati program koji ispisuje sve proste brojeve do 100.U čemu je problem?

program prvi;
var i,j,bd:integer;
begin
bd:=0;
for j:= 2 to 1000 do
begin
for i:= 1 to (j-1) do
if (j-1) mod i = 0 then
bd:=bd+1;
if bd = 0 then writeln(i);
end;
readln;
end.

Možete mi taj posljednji zadatk riješiti drugačije,jer još nismo učili boolena i ne smijemo koristiti.

Evo mene opet,imam još jedno pitanje.Znači,program mora upisani broj podijeliti na 2 dijela tako da zbroj tih dvaju dijelova mora biti najmanji.Zbroj drugih dijelova kad ih zbrojimo mora biti veći.U programu se smije koristiti SAMO repeat petlja.Moj program radi za sve brojeve osim za desetice ,stotice,tisućice...

EDIT:Ne znam zašto je kod ovako napisao.

program osmi;
      var s,x,pom,zb,j,i,m,pom1,min,zam:longint;
begin
writeln ('Upisi broj');
readln(x);
m:=1;
i:=0;
j:=0;
min:=x;
zam:=x;
      repeat
        pom1:= x mod 10;
        i :=i+1 ;
        x:=x div 10;
        until pom1 = 0 ;
      repeat
        s:=0;
        zb:= zam mod m ;
        pom:=zam div m;

        j:=j+1;
        s:=s+pom+zb;
        if s < min then min:=s;
        m:=m*10;
      until j = i ;

writeln('Najmanja suma je : ',min);
readln;
end.

Znači dam npr. broj 123.Mogu ga podijeliti da 2 načina. na brojeve 1 i 23 ili na brojeve 12 i 3.Brojevi 12 i 3 imaju manju sumu nego brojevi 23 i 1 i zato ispišem njihovu sumu.EDIT:MIslim da sam ispravio grešku u prvoj repeat petlji sam stavio until x = 0 ,a ne pom = 0 i onda dobivam dobra rejšenja.

Koji si ti razred?Može molim moderator promijeniti naziv teme jer se sad pojavljuju i neki drugi problemi.

Fora zadacic...

program paran;
var  br: Integer;
const  parnost: array[0..1] of string = ('paran', 'neparan');
begin  WriteLn('Upisi broj: ');  ReadLn(br);
  WriteLn('Broj ', br, ' je ', parnost[br mod 2], '.');
  ReadLn;end.

Gdje griješim? Stalno mi izbacuje 0.

Program slucajni_odabir;
var x:integer;
    izbor:char;
 begin
   repeat
   writeln('Pritisnite enter za pocetak:');
    readln(izbor);
      if izbor='enter' then
     x:= random(29);
    writeln('Vas broj je: ',x);
    writeln('Zelite li jos jednom? d/n');
     readln(izbor);
  until izbor='n';
  readln;

end.

Ne kužim te... ... podebljano je zapravo program i ne kužim u čemu je problem. Ovo repeat je samo da bi izabrali da li da ponovimo operaciju. Možeš mi napisati svoju verziju? Ali nemoj koristiti stringove jer ih ne kužim...

Mislim da ti problem leži u

writeln('Pritisnite enter za pocetak:');

readln(izbor);
if izbor='enter' then

Kada stisneš enter, varijabla izbor ti ostaje prazna. Jer ReadLn ne čita enter.

i onda ti ne ulazi u petlju i ne izvršava

x:= random(29);

te ti ne dobijaš nasumični broj.

probaj ovako, bez uvjeta za početak.

Program slucajni_odabir;
var x:integer;
izbor:char;
begin
    repeat
    writeln('Pritisnite enter za pocetak:');
    readln(izbor);
    x:= random(29);
    writeln('Vas broj je: ',x);
    writeln('Zelite li jos jednom? d/n');
    readln(izbor);
until izbor='n';
readln;

end.

  Evo pretekoše me :)

Zapravo, to bas i nije tocno. Idemo prvo rijesiti prvi problem - covjek je napravio uvjet koji NIKAD ne moze biti zadovoljen, kao sto rece Zoidberg - tj. isto je kao da tu naredbu nije ni napisao!

Znaci, napisao je:

if izbor='enter' then
     x:= random(29);

Medjutim, nije stvar ni samo u tome da, navodno zbog toga sto ReadLn nece procitati enter, da ta varijable nikad nece postati 'enter'. Osnovni problem je u tom sto je varijabla izbor tipa char, sto znaci da moze sadrzavati samo jedan jedini znak! A jedan znak NIKAD ne moze biti jednak stringu 'enter' (pet znakova). Znaci - treba nauciti tipove podataka.

Dalje, ideja da ce pritiskom na tipku enter varijabla poprimiti vrijednost 'enter' je pomalo smijesna - to bi bilo kao da svaki put kad stisnes tipku enter, da se zapravo otkuca pet slova (e, n, t, e, r)!

Idemo sad na citanje entera - sto je enter (ili return)? Enter se reprezentira ASCII znakom koda 13. Znaci, njegov redni broj, njegova decimalna reprezentacija je broj 13. Kako dobiti broj znaka u Pascalu? Funkcijom Ord. Znaci, je li pritisnut enter, moze se otkriti uvjetom:

if Ord(izbor) = 13 then WriteLn('Pritisnut je enter!');

Dakle, i ReadLn moze ocitati Enter. Provjerio u FPC-u.

--------------------

Zelim se osvrnuti i na jos jednu logicku gresku, koju je i Zoidberg primijetio (iako je spominjao "petlju" - medjutim, konstrukcija if-then, odnosno if-then-else nije petlja, nego uvjet) - znaci, kod ide:

if izbor='enter' then
x:= random(29);
writeln('Vas broj je: ',x);

Treca linija, dakle ova koja pocinje s writeln, ispisat ce se uvijek - cak i kad nije definiran x (odnosno ostaje inicijalno 0). Da bi se izbjegle takve logicke greske, dobro je cijelu if-then naredbu napisati u jednom retku (if-then-else moze i u vise redaka), na primjer:

if izbor='enter' then x:= random(29);
writeln('Vas broj je: ',x);

Sad je odmah jasno da linija koja pocinje s writeln nema nikakve veze s uvjetom if, dakle sad bi svatko trebao relativno lako uociti da tu "nesto" ne stima. Jos je bolje iza konstrukcije if ostaviti jedan red prazno.

Zasto bi te pitao za unos vrijednosti u varijablu izbor? Oznaci u kodu naredbu u kojoj bi te trebao pitati za izbor! Ne mozes? E pa to je zato sto je nisi napisao. Program radi samo ono sto mu ti napises da radi. Kako nisi napisao da te trazi unos varijable izbor, on to ni ne cini. Isto kao sto ti nece ispisati pi na deset decimala - zasto bi ti to ispisao, ako nisi zadao/napisao tu naredbu?