Pascal: školski zadaci

Program Pitagora;  var n,x,y,z:longint;     f:text;begin  Assign(f,'Pitagora.txt');  rewrite(f);  readln(n);  writeln(f,n);  for x:=1 to n-1 do    for y:=x+1 to n do      begin        z:=sqr(x)+sqr(y);        if trunc(sqrt(z))=sqrt(z) then                  writeln(f,x,' ',y,' ',z);      end;  close(f);end.

LOL. And - i. Or - ili. To su riječi engleskog jezika. I - i jedno i drugo. Ili - bilo koje. Znači, ako koristiš operator and, onda moraju biti zadovoljeni svi uvjeti koji su spojeni tim operatorom, da bi razultat bio istinit (true). Ako koristiš operator or, onda mora biti zadovoljen bilo koji da bi rezultat bio istinit (true).

I što onda imamo?

if (slovo<>'a')and(slovo<>'e')and(slovo<>'i')and(slovo<>'o')and(slovo<>'u')

ako je

  slovo različito od a

  i slovo različito od e

  i slovo različito od i

  i slovo različito od o

  i slovo različito od u         (znači, ako je varijabla slovo je različita od svih tih konstanti)

onda...

Ista fora kao i s najvećim i najmanjim brojem. Unosiš string po string, kod svakog unosa provjeravaš je li uneseni string manji od najmanjeg (tj. da je po abecedi ranije), ako je, onda najmanji postaje taj uneseni string.

Fora je samo što moraš na neki način riješiti prvi najmanji - možeš ga staviti da je inicijalno #255 (znači, maksimalni znak u proširanoj, 8-bitnoj ASCII tablici) ili, možda bolje, prvi unos tražiš izvan petlje, pa tada uneseni string postaje najmanji.

Znači, algoritam bi išao tipa:

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

ispiši "Upišite 8 imena: "

unos PrvoPoAbecedi

petlja koja se vrti 7 puta

  unos Ime

  ako je Ime < PrvoPaAbecedi onda PrvoPoAbecedi = Ime

kraj petlje

ispiši "Prvo ime po abecedi je: ", PrvoPoAbecedi

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

Jel moze neko ako mu  nije problem da mi napise zadatak koji konvertabilne marke pretvara u eure dolare u eure kune u eure i obrnuto....to sve u jednom zadatku......hitnooooo....pomagajte....:))unaprijed zahvalan

Evo jedno resenje

program kursnaLista;  const Dolar=1.4839;       KonvMarka=1.9558;       Kuna=7.365;  var vr,p:real;      izbor:integer;      kraj:boolean; begin   kraj:=false;   repeat   writeln;writeln;   writeln('Izaberite konverziju:');   writeln('1. Konvertibilna marka -> Euro');   writeln('2. Dolar -> Euro');   writeln('3. Kuna -> Euro');   writeln('4. Euro -> Konvertibilna marka');   writeln('5. Euro -> Dolar');   writeln('6. Euro -> Kuna');   writeln('7. Kraj');   write('Unesite vas izbor:');   readln(izbor);   case izbor of    1: begin       write('Unesite vrednost u markama:');       readln(vr);       p:=vr/KonvMarka;       writeln(vr:0:2,' maraka vredi ',p:0:2,' eura');       end;   2: begin       write('Unesite vrednost u dolarima:');       readln(vr);       p:=vr/Dolar;       writeln(vr:0:2,' dolara vredi ',p:0:2,' eura');       end;   3: begin       write('Unesite vrednost u kunama:');       readln(vr);       p:=vr/Kuna;       writeln(vr:0:2,' kuna vredi ',p:0:2,' eura');       end;   4: begin       write('Unesite vrednost u eurima:');       readln(vr);       p:=vr*KonvMarka;       writeln(vr:0:2,' eura vredi ',p:0:2,' maraka');       end;   5: begin       write('Unesite vrednost u eurima:');       readln(vr);       p:=vr*Dolar;       writeln(vr:0:2,' eura vredi ',p:0:2,' dolara');       end;    6: begin       write('Unesite vrednost u eurima:');       readln(vr);       p:=vr*Kuna;       writeln(vr:0:2,' eura vredi ',p:0:2,' kuna');       end;    7: kraj:=true;    end;   until kraj; end.

evo trebalo bi riješiti while petljom pa ako netko zna molio bi vas da riješi

 Korisnik upisuje 10 brojeva, a program ispisuje sumu upisanih brojeva i njihov prosjek.

@acmilan0083

10 brojeva resenje

program petlja;
 uses wincrt;
  var i,s,n:integer;
      r:real;
begin
  i:=1;
  s:=0;
  while i<=10 do
    begin
      read(n);
      s:=s+n;
      i:=i+1;
    end;
  r:=s/10;
  writeln('Suma brojeva je ',s);
  writeln('Prosek brojeva je ',r:0:2);
end.

 hvala na zadatku

btw.ja sam ga isto tako riješio ali kada sam pokrenuo zadatak nikako mi nije htio raditi kako treba,ne znam zašto

{Napišite program za raspoređivanje osam kraljica na šahovsku ploču tako da se međusobno ne tuku}

Var Ploca:array[1..8,1..8] of string;

   i,r,j,k,BrKralj,a,b,BrPraznih,BrPrRed:integer;

   postavljeno:boolean;

Begin

   Randomize;

   Repeat

      For a:=1 to 8 do

        For b:=1 to 8 do

          Ploca[a,b]:='';

      i:=0;

      BrKralj:=0;

      BrPraznih:=0;

      Repeat

         postavljeno:=false;

         Inc(i);

         Repeat

            r:=Random(8);

            If Ploca[i,r]='' then

            Begin

             Ploca[i,r]:='K';

             postavljeno:=true;

             inc(BrKralj);

            end;

         until postavljeno;

         k:=0;

         If i>1 then

         For j:=i-1 downto 1 do

         Begin

           inc(k);

           Ploca[j,r-k]:='Z';

           Ploca[j,r+k]:='Z';

          end;

         k:=0;

         If i<8 then

         For j:=i+1 to 8 do

          Begin

             inc(k);

             Ploca[j,r-k]:='Z';

             Ploca[j,r+k]:='Z';

          end;

         For j:=1 to 8 do

           If j<>r then

              Ploca[i,j]:='Z';

         For a:=1 to 8 do

           For b:=1 to 8 do

             If Ploca[a,b]='' then

              inc(BrPraznih);

      until BrPraznih=0;

   until BrKralj=8;

   For i:=1 to 8 do

   Begin

      WriteLn;

      For j:=1 to 8 do

        Write(Ploca[i,j]);

   end;

   ReadLn;

end.

Par puta sam dobio dobar rezultat ali ništa više, prođe par puta kroz repeat petlju i zapne negdje u Repeat petlji kod postavljenja kraljice (K). Ako netko zna u čemu je problem bio bih veoma zahvalan na pomoći. 

Hmm.. nije ni u tome problem, tj. je al sam to riješio sa inc(r); ali je opet bez promijene

mozeli pomoc imam par zadataka imam sutra pismenu iz programiranja! 1.napisati program koji ispisuje manje od dva broja.nap . unesi brojeve a i b:5,7

broj 5 manji od broja 7   hvala unaprijed

napisati program koji ispisuje n brojeva djeljivi sa 5.napr. unesi broj n:5

parni brojevi:5,10,15,20,25 

znali iko uraditi...

hoceli iko uraditi

ok

Što ti pišeš neki test,, ovdje ti je običaj da dobiješ tipove za rješenje, a ne gotov kod

kako ćeš provjeriti kolika je zadna znamenka, lijepo : broj % 10

dakle:

int broj, suma = 0;

if(broj % 10 == 3)

{

suma += broj;

}

To ti je algoritam koji važi u svim programskim jezicima - pa ga ti pretvori u pascal