Pomagaj brate oko Pascala

[Letva]

Eh,ovako,dosao sam da vam se obratim za pomoc...da mi pomognete u rjesavanju ova 4 zadatka...zato vi koji ste eksperti za pascal,molio bih vas da mi pomognete...dakle,sljedeci su zadaci:

1. Napisati program koji, koristeći funkciju prost, ispisuje sve proste brojeve do datog n.
2. Napisati program koji sadrzi funkciju za racunanje faktorijela, tj. Za racunanje n!=1•2•3•...•(n-3) •(n-2) •(n-1) •n.
(Npr. 8!=1•2•3•4•5•6•7•8=40320)
3. Napisati program koji sadrzi funkciju za racunanje kvadrata broja.
4. Napisati program koji racuna povrsinu pravilnog šestougla, korištenjem funkcije koja računa površinu svakog od trouglova, od kojih je šestougao sastavljen.



Unaprijed vam zahvaljujem. (zavrsna ocjena,i ovo mi treba,al ono bas...)...


castim pivom :D :friends:

[NoNCoNFoRMiST]

Evo ja ti sad radim.

[NoNCoNFoRMiST]

Evo ja ti sad radim.

Zbog nečega ne mogu EDIT-at post.

Evo ti rješenja 2.,3., i 4.-og zadatka. Prvi ne znam riješit, onaj sa prostim brojevima. Malo mi je prekompliciran s obzirom da skoro i ne znam što su to prosti brojevi :). No, ako ga baš trebaš riješit ću ti ga, sutra, il preksutra, il neka ti ga netko drugi riješi.

Dakle:

PRVI:


DRUGI:

program faktorijel;
uses crt;
var n,fakt,i:integer;

begin
clrscr;
write ('Unesi broj: ');
readln (n);
fakt:=1;
for i:=1 to n do
begin
fakt:=fakt*i;
end;
writeln ('Faktorijel od broja ',n,' je broj ',fakt,'.');
readln;
end.

TREĆI:

program kvadrat;
uses crt;
var n:integer;

begin
clrscr;
write ('Unesi broj: ');
readln (n);
writeln ('Kvadrat broja ',n,' je broj ',n*n,'.');
readln;
end.

ČETVRTI:

program sesterokut;
uses crt;
var povr,d:real;

begin
clrscr;
write ('Unesi stranicu (u centimetrima) pravilnog sesterokuta: ');
readln (d);
povr:=6*((sqr(d)*sqrt(3))/4);
writeln ('Povrsina je ',povr:0:2,' cm na kvadrat.');
readln;
end.


Pozdrav. :D