Article View: be.comp.programming
Article #13931Re: Programmeren I
From: Luc Kumps
Date: Wed, 09 May 2001 12:02
Date: Wed, 09 May 2001 12:02
450 lines
7184 bytes
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-mailReferences:
<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