🚀 go-pugleaf

Alweer een tijdje geleden dat ik in pascal gewerkt heb.  Eens proberen...
Ik heb de formules niet gecontroleerd, ik neem aan dat die juist zijn.

Opgave 1:
A en L zijn integers, dus moet je hele lijst uit integers bestaan, en dan is
de som ook een integer.  Dus:
Sn: integer;
Maar het lijkt me meer waarschijnlijk dat de hele lijst uit real waarden
moet bestaan, en dus:
A: real;
L: real;
Ook het verschil kan een real waarde zijn (vb. 0.5):
V: real;

Opgave 2:
     Kn := Ko * N * (1 + P / 100);
Waarom met die exp en Ln werken??

Opgave 4:
     x1 := (-b) + D / 2 * a;
     x2 := (-b) - D / 2 * a;
Aangezien de deling voorgaat op de optelling heeft deze code hetzelfde
effect als (D/2*a) - b, en dat is niet de formule voor de wortel van een
vierkantsvergelijking.  Wel:
     x1 := ((-b) + D) / 2 * a;
     x2 := ((-b) - D) / 2 * a;
Ook kunnen de exponenten a, b en c re�ele getallen zijn, dus:
a, b, c: real;

----- Original Message -----
From: "The X-files" <student@pi.be>
Newsgroups: be.comp.programming
Sent: Monday, April 09, 2001 12:33 PM
Subject: Kan iemand eens mijn oplossingen bekijken en de fouten verbeteren
!!!!


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.