🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #13931

Re: Programmeren I

#13931
From: Luc Kumps
Date: Wed, 09 May 2001 12:02
450 lines
7184 bytes
Ik vrees dat nieuwsgroepen niet bestaan om huiswerk op te lossen, en dat
studeren iets is dat je zelf moet doen.

Vragen over een specifiek probleem waar je mee worstelt zijn natuurlijk meer
dan welkom.
Maar "mijn huiswerk" is niet specifiek genoeg ;-)

Luc

"The X-files" <student@pi.be> wrote in message
news:j0vhft00nl5qs5e9r91mfhavtmc3sc2svu@4ax.com...
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 !
Technical Details
Message-ID: <zlaK6.65029$ii.8205449@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!newsfeed.google.com!sn-xit-03!supernews.com!nntp.cs.ubc.ca!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!t-online.de!fr.usenet-edu.net!usenet-edu.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
References: <j0vhft00nl5qs5e9r91mfhavtmc3sc2svu@4ax.com>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII
X-Google-Thread: fcea4,7a4eb07d35cd3b84
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-05-09 05:10:04 PST
Path: arc1-ca.pugleaf.net!newsfeed.google.com!sn-xit-03!supernews.com!nntp.cs.ubc.ca!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!t-online.de!fr.usenet-edu.net!usenet-edu.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
From: "Luc Kumps" <NOkumpsSPAM@pandora.be>
Newsgroups: be.comp.programming
References: <j0vhft00nl5qs5e9r91mfhavtmc3sc2svu@4ax.com>
Subject: Re: Programmeren I
Lines: 455
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Message-ID: <zlaK6.65029$ii.8205449@afrodite.telenet-ops.be>
Date: Wed, 09 May 2001 12:02:39 GMT
NNTP-Posting-Host: 213.118.65.88
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 989409759 213.118.65.88 (Wed, 09 May 2001 14:02:39 MET DST)
NNTP-Posting-Date: Wed, 09 May 2001 14:02:39 MET DST
Organization: Telenet Internet