Pascal: školski zadaci

Ljudi, da li je moguće u pascalu zamijeniti vrijednosti dvije varijable a da se ne uvodi treca (tj. da se ne uvodi pom)?

Probao sam ovako a:=b; b:=a; ali mi se izgubi ili a ili b.


Pozdrav!

To radi samo na manjim brojevima. Kod većih dođe do preljeva brojevne kružnice.

Overflow se može izbjeći ako se koristi XOR swap:

a := a xor b;
b := a xor b;
a := a xor b;

  Malo više detalja bi bilo potrebno (tekst zadatka i možda isečak iz tvog koda). Ako bi trebalo da stoje jedni do drugih, onda moraš voditi više računa o dimenzijama i pozicijama.

Ispis stabla se obično rješava rekurzijom. Nešto kao:

procedure ispis_stabla(grana : Stablo)
begin
    if(grana <> 0) .. // provjeriti da li je kraj rekurzije
    ispis_stabla(grana.lijevo);
    writeln(grana.vrijednost);
    ispis_stabla(grana.desno)
end;

Ovo sad sve napamet pišem pošto su mi stabla slabije u sjećanju, pa svakako code prilagodi svojim potrebama.

Pozdrav svima,potreban mi je program koji na 10 upisanih ocjena ispisuje da li je ucenik prosao (sve pozitivne ocjene),da li je pao (do 2 negativne) te da li je pao na godinu (3 ili vise negativne).Pokusavao sam ja mnogim nacinima ali nemam ideju kako da ga rijesim..Bio bih mnogo zahvalan ako bi neko mogao da mi ovo rijesi.

Hvala na odgovoru,ali i ja sam nešto slicno uradio,međutim kada kompajliram i pokrenem program,nakon unesenih ocjena jednostavno mi izadje iz programa.Možda je greška u tome č i š. Edit: Nije do toga :S

Ja ne znam u paskalu (znam osnove stvari tipa strukture i varijabli),radio sam ga davno,da je ovo c++ ne bih trazio pomoc,ali ovo radim za uslugu,a forum je tu da se diskutuje i pomogne ako može,ako ne može nikome ništa :)

Prijatelju uradio sam nešto slicno kao sto je @bobo uradio,samo izmijenjena mjesta varijablama,ali ne radi (nakon izvrsavanja odma se ugasi paskal i free i dev).Dakle ovaj program od @bobo radi,ali se odma ugasi nakon ispisa da li je prosao ili ne :)

Drug riješio si me muke,mnogo ti hvala :) read je odradio svoje :D

Dobri su mi ovi bitovni operatori

a = a^b^b gdje je b^b = 0 i a^0 = a - zamjena se temelji na ovoj relaciji

Isto kao što se kod matematičkih operatora

a = a + b

b = a - b

a = a - b

zamjena temelji na ovoj relaciji

a = a+b-b  gdje je b-b = 0 i a + 0 = a

a nije ni ovaj bitovni operator za baciti

a&1   - ako je 1 neparni, 0 - parni

Ovako bit cu zahvalan ko mi pomogne 

Napisite program koji trazi da se sa tastature unesu cijeli brojevi m i n, a zatim iscrtava na ekranu pravougaonik sastavljen od zvjezdica cija je sirina m a visina n zvjezdica. Uputa: koristite jedan FOR iskaz koji iscrtava jedan red zvjezdica unutar drugog FOR iskaza.

Evo ovako:

var
  m, n, r, s: Integer;
begin
  Write('Unesi m:');
  Readln(m);
  Write('Unesi n:');
  Readln(n);

  for r := 1 to n do
  begin
    for s := 1 to m do
      Write('*');
    Writeln('');
  end;
end.

Evo ako netko ima viska vremena, pod uvjetom da se razumije u ovu stvar, pa ako mozete naci gresku, nesto mi ne valja sa unosom podataka, npr ako ima 2 radnika ja unesem podatke za 1. i poslije toga me izbaci.

{Upisati podatke o radnicima u tekst datoteku 'radnici.txt'. Redak datoteke je oblika

'Ivo Ivić 1993'. Za zadanu godinu prepisati u datoteku 'punoljetni.txt' sve radnike

koji su punoljetni.}

type radnik=record

    ime,prezime:string;

    god_rodenja:real

    end;

var e:file of radnik;

   f:file of radnik;

   r:radnik;

   zadgod:real;

   broj,i:integer;

begin

   writeln('Unesi broj radnika');

   readln(broj);

   for i:=1 to broj do

     begin

     assign(e,'radnici.txt');

     assign(f,'punoljetni.txt');

     rewrite(e);

     rewrite(f);

     writeln('Upisi ime radnika');

      readln(r.ime);

     writeln('Upisi prezime radnika');

      readln(r.prezime);

     writeln('Upisi godinu rodenja radnika');

      readln(r.god_rodenja);

     write(e,r);

     end;

   writeln('Zadaj neku godinu');

   readln(zadgod);

   while not eof(e) do

      begin

      read(e,r);

      if zadgod-r.god_rodenja>=18 then

      write(f,r);

      end;

   readln;

   close(e);

   close(f);

end.

Bio bih veoma zahvalan kad bi mi netko rijesio i malo objasnio ovaj zadatak.

Unose se cijeli brojevi veći od 20,manji od 1000 sve dok prosječna vrijednost parnih brojeva djeljivih sa 7 ne bude maksimalno 10% odstupala od broja 127.Ispisati broj koraka i broj unesenih brojeva.