WINAK

Oef : Schrijf een programma dat een reëel getal afleest en daarna de getallen voor en de getallen na de komma apart weergeeft. (Maak gebruik van ENTIER)
Dit heb ik tot nu toe :

PROCEDURE Oef6*();

VAR
x, nakomma, eenheden: REAL;

BEGIN
In.Open();
In.Real(x);

eenheden := ENTIER(x);
In.Real(x);
nakomma := x-ENTIER(x);

OutExt.String("Aantal eenheden dat uw getal bevat: ");
OutExt.RealFix(eenheden,0,0);
OutExt.Ln();
OutExt.String("Dit zijn de getallen na de komma: ");
OutExt.RealFix(nakomma, 0,5);
OutExt.Ln();

END Oef6;

En ik krijg als output voor bij 12,12345 :
Aantal eenheden dat uw getal bevat : 12.
Dit zijn de getallen na de komma: 0.0000

Terwijl ik dan toch 0.12345 zou moeten krijgen, aangezien x - [x] = de getallen na de komma van x?
Zou iemand kunne helpen =D?

kzou zeggen doe i:INTEGER
i := ENTIER (x) ; en dan daarmee werken, werkten toch voor mij (1 van de enige oefeningen overigens xp)

Het probleem is daar dat ge 2x In.Real(x); doet, dus ge zegt eigenlijk tegen u programma om 2x een getal in te lezen. Gevolg: Die leest de eerste keer u getal in, en daarna 0 (omdattem niets meer vindt).

Die 2de In.Real(x) is overbodig, want ge doet enkel ENTIER(x);, wat niets verandert aan die x, dus die x blijft gewoon u ingelezen getal. Als ge die weghaalt zou het moeten werken denk ik

Timmy wrote:Het probleem is daar dat ge 2x In.Real(x); doet, dus ge zegt eigenlijk tegen u programma om 2x een getal in te lezen. Gevolg: Die leest de eerste keer u getal in, en daarna 0 (omdattem niets meer vindt).

Die 2de In.Real(x) is overbodig, want ge doet enkel ENTIER(x);, wat niets verandert aan die x, dus die x blijft gewoon u ingelezen getal. Als ge die weghaalt zou het moeten werken denk ik

Negative, nog steeds 0.0000

smitske wrote:kzou zeggen doe i:INTEGER
i := ENTIER (x) ; en dan daarmee werken, werkten toch voor mij (1 van de enige oefeningen overigens xp)

Kunde uwe code is copy pasten dan, want als ik da doe krijg ik error. Ik neem aan omdat em Genen Int wil nemen door me ne Real te rekenen?

Hebk in de rapte ff gecode (omslachtig, maar twas weer ff wennen aan die syntax ), werkt hier

Output code:

Test.Test 10.5548656489
10 0.5548658300

Timmy wrote:PROCEDURE Test*();
VAR
in, after : REAL;
before : LONGINT;
BEGIN
In.Open();
In.Real(in);
before := ENTIER(in);
after := in - ENTIER(in);
OutExt.Int(before,10); OutExt.RealFix(after,10,10);
OutExt.Ln;

END Test;

Hebk in de rapte ff gecode (omslachtig, maar twas weer ff wennen aan die syntax ), werkt hier

Output code:

Test.Test 10.5548656489
10 0.5548658300

En zo werkt het dan wel, Fucking computers, how do they work.
Thx!

Lol, voor de een of andere reden, geeft hij, als ik em om 10 getallen na de komma laat staan, voor het getal 12.22222
De uitkomst 12 / 0.2222200402
Altijd leuk xD

Je kan in het vervolg ook gebruik maken van onze "code" tags die zelfs syntax highlighting hebben voor oberon-2!

[syntax=oberon2]PROCEDURE Test*();
VAR
in, after : REAL;
before : LONGINT;
BEGIN
In.Open();
In.Real(in);
before := ENTIER(in);
after := in - ENTIER(in);
OutExt.Int(before,10); OutExt.RealFix(after,10,10);
OutExt.Ln;

END Test;[/syntax]

Welke syntax highlighting?

edit by joachim: aub :p

Nathan wrote:

Timmy wrote:PR

En zo werkt het dan wel, Fucking computers, how do they work.
Thx!

Lol, voor de een of andere reden, geeft hij, als ik em om 10 getallen na de komma laat staan, voor het getal 12.22222
De uitkomst 12 / 0.2222200402
Altijd leuk xD

ge ga bij CSCA nog wel zien waarom da da getal ni exact hetzelfde is :p

en nog iets.. kopieer GEEN code van elkaar.. loopt slecht af ,)

djgl3nn wrote:

Nathan wrote:

Timmy wrote:PR

En zo werkt het dan wel, Fucking computers, how do they work.
Thx!

Lol, voor de een of andere reden, geeft hij, als ik em om 10 getallen na de komma laat staan, voor het getal 12.22222
De uitkomst 12 / 0.2222200402
Altijd leuk xD

ge ga bij CSCA nog wel zien waarom da da getal ni exact hetzelfde is :p

en nog iets.. kopieer GEEN code van elkaar.. loopt slecht af ,)

En zelfs als kopieert ge nie, loopt het soms slecht af

Voor dit soort functies is de kans sowieso wel vrij groot dat er een paar mensen "dezelfde" code hebben.

't is ook niet dat dit persé op punten staat. Het gaat hem voornamelijk om de gelinkte lijst die ge aan 't einde van het semester moet schrijven.

Christophe_ wrote:'t is ook niet dat dit persé op punten staat. Het gaat hem voornamelijk om de gelinkte lijst die ge aan 't einde van het semester moet schrijven.

en matrix & vector in OO is ook best handig