🚀 go-pugleaf

Kan je dat eens bekijken voor mij en de oplossing geven in Pascal of
in C++

 

Met vriendelijke groeten

Stephane

 

 

{

   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.

 

 

{

   Schrijf een programma dat vraagt om een geheel getal en een
positief getal

   van twee of meer cijfers en dat vervolgens de som van de laatste
twee

   cijfers van dat getal afdrukt.

   Gebruik de operatoren div en mod

}

 

// Deze opgave verstaat ik niet kan je mij stap voor stap uitleggen
hoe ik die oplos?

 

program Opgave1_3;

var

 

begin

 

     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

 

 

 

{

   Schrijf een programma dat een tabel afdrukt van de waarden van x,
xý, en

   de vkw(x), waarbij x een geheel getal is en steeds met ‚‚n moet
worden

   opgehoogd.

   Het programma moet vragen om de eerste en de laatste waarden van x.

   Gebruik repeat-statements om ervoor te zorgen dat voor de eerste
waarde

   van x geen negatieve getallen worden aanvaard die kleiner dan de
eerste

   waarde zijn.

   Gebruik de for-statement om de tabel af te drukken.

   Uitvoer met een mooi kopje boven de tabel!

   Maak eerst het PSD.

}

 

program Opgave2_1;

var

 

begin

     readln

end.

 

 

{

   Schrijf een programma dat de waarde berekent en afdrukt van

   1 * 2 * ... * N (N geheel en positief).

   Het moet vragen om een waarde van N en met behulp van de repeat
statement

   een niet positieve invoerwaarde weigeren.

   Maak eerst het PSD

}

 

program Opgave2_2;

var

 

begin

     readln

end.

 

 

{

   Schrijf een programma dat het gemiddelde van een of meer positieve

   invoergetallen bepaalt en afdrukt.

   Niet positieve invoerwaarden moeten met behulp van de
repeat-statement

   worden geweigerd.

   Het aantal invoergetallen is onbekend.

   De invoer wordt afgesloten met het getal nul

   (deze NIET bij het gemiddelde meetellen)

   Maak eerst het PSD

}

 

program Opgave2_3;

var

 

begin

     readln

end.

 

 

{

   Van een onbekend aantal waarnemingen is de frequentie en de waarde

   gegeven.

   Hierbij moet het gemiddelde bepaald worden van het kwadraat van de
waar-

   nemingen volgens de volgende formule:

 

   S * fi * xiý / S * fi

 

   De invoer moet bestaan uit een onbekend aantal paren f en x.

   De invoer moet worden afgesloten met ‚‚n nul.

}

 

program Opgave2_4;

var

 

begin

     readln

end.

 

 

Bedankt voor je hulp !