🚀 go-pugleaf

Hallo beste programmeurs,

Wie kan mij eens mij opgaven bekijken als ik geen fouten heb gemaakt
en stel er geen vragen om het is to the point het is voor hobby dat ik
programmeer

{
   Een rekenkundige rij is een rij getallen die begint met een op te
geven
   eerste getal, terwijl de volgende getallen gevonden worden door het
voor
   gaande getal met een vast, ook op te geven, getal te vermeerderen.
   Als een rekenkundige rij bestaat uit N getallen, kan daarvan de som
   bepaald worden met behulp van de formules:

   Sn := N(A + L) / 2
   L  := A + (N - 1) * V

   Schrijf een programma dat van een in te voeren getal de wortel
bepaalt en
   in zes cijfers na de komma afdrukt
}

program Opgave1_1;
var
   { A  = Eerste getal
     V  = Verschil tussen twee opeenvolgende getallen
     N  = Aantal getallen in de rij
     Sn = Som van de eerste N getallen van de rij
     L  = Laatste getal
   }

   A, V, N, L : integer;
   Sn         : real;

begin
     write('Voer het eerste getal in van de rekenkundige rij: ');
     readln(A);
     write('Voer het verschil in tussen twee opeenvolgende getallen:
');
     readln(V);
     write('Voer het aantal getallen in de rij in: ');
     readln(N);
     L := A + (N - 1) * V;
     Sn := N * (A + L) / 2;
     writeln('De som van de ',N,' aantal getallen van de rij is
',Sn:0:0);
     readln
end.


{
   Als een bedrag tegen een bepaalde rente op de bank gezet wordt, is
dat
   bedrag na een aantal jaren aangegroeid tot een bedrag dat met de
formule
   te berekenen is

   Kn := Ko(1 + P / 100)n

   Met:
       Ko : Beginkapitaal
       Kn : Eindkapitaal na N jaar
       P  : Rente percentage
       N  : Aantal jaren.

   Schrijf een programma dat vraagt om Ko, P en N en vervolgens de
waarde
   van Kn afdrukt.
}

program Opgave1_2;
var
   Kn, Ko : real;
   P      : real;
   N      : integer;

begin
     write('Voer het beginkapitaal in ');
     readln(Ko);
     write('Voer de rente in ');
     readln(P);
     write('Voer het aantal jaren in ');
     readln(N);
     Kn := Ko * exp(N * Ln(1 + P / 100));
     writeln('Het eindkapitaal na ',N,' jaar is ',Kn:0:0,' BEF');
     readln
end.

{
   De wortels van de vierkantsvergelijking axý + bx + c = 0 kunnen met
de
   volgende formule bepaald worden (mits a, b en c een zodanige waarde
   hebben dat die wortel bestaan.

   x1, 2 := -b + sqrt(bý - 4ac) / 2a
   x1, 2 := -b - sqrt(bý - 4ac) / 2a

   Schrijf een programma dat vraagt om de waarden van a, b en c (er
moet voor
   lopig van uitgegaan worden dat er bij deze waarden ook wortels
bestaan).
   en dat vervolgens de waarden van de wortels afdrukt.
}

program Opgave1_4;
var
   D : real;
   a, b, c : integer;
   x1, x2 : real;

begin
     write('Voer de a, b en c term in van de vierkantsvergelijking ');
     readln(a,b,c);
     D := sqrt(sqr(b) - 4 * a * c);
     x1 := (-b) + D / 2 * a;
     x2 := (-b) - D / 2 * a;
     writeln('De eerste oplossing van de vierkantsvergelijking is
',x1:0:2);
     writeln('De tweede oplossing van de vierkantsvergelijking is
',x2:0:2);
     readln
end.