[Pascal]25 producten real

[jordan2k]

De opdracht is voer 25 getalen in en dan output 1*2 2*3 3*4 enz. tot 25.
nu werkt het wel maar code is zeg maar exstreem lang en tja het moet kleiner kunnen. zit nu met de uitvoer aan de invoer kan niet zo veel meer gedaan worden denk ik. meschien is er iemand die een hint kan geven in de goeie richting of een voorbeeld van wat er ongeveer moet gebeuren.
Hoop dat het duidelijk is.

code:

program Getallen_Van_Real_Product;
uses crt;                  {output beeldscherm}
const n=25;                 {aantal invoer mogenlijk}
var i:integer;
var r:array[1..n] of real; {vakje met 1 tot n aantal input waardes}
var p0,real; {product var. in real dit gaat door tot p26}
begin
  clrscr;
  for i:=1 to n do
  begin
    clrscr;
    gotoxy(10,10);
    write('Voer maar een getal in: ');
    readln (r[i]);
    end;
  clrscr;
  begin
    gotoxy(1,1);
    write('De ',n);
    write(' ingevoerde getallen van soort Real.');
    end;
  gotoxy(0,2);
  for i:=n downto 1 do
  begin
    write(r[i]:8:2);
    end;
  begin
    gotoxy(10,5);
    write('1e getal: ',r[i]:4:2);
    gotoxy(30,5);
    write('2e getal: ',r[i+1]:4:2);
    end;
  begin
    p0 :=(r[i] * r[i+1]);
    gotoxy(10,6);
    write('Het prodcut van 1e en 2e getal is: ', p0:6:2);    {1*2}
  end;

[Creepy]

Ehh... waarom heb je al die extra begin end erin staan??
Begin zet je doorgaans neer voor het begin van een blok (die meerdere statements in een procedure, in een if, in een for e.d.). Of word ik op hetr verkeerde been gezet door het IMHO verkeerde inspringen (NOFI uiteraard).

En om de boel "sneller" te maken, zou je na elk ingevoerde getal (behalve de eerste) de boel al kunnen vermenigvuldigen.

[ Voor 19% gewijzigd door Creepy op 12-02-2003 09:39 ]

[erazer33]

volgens mij kan het niet korter,
maarja zo ervaren ben ik nou ook weer niet...

en waarom heb je eigenlijk zoveel begin en end gebruikt?

[jordan2k]

Het kan wel korter ben er met wat hulp wel uit gekomen en ja klopt redelijk veel begin en end. maar zo word het uitgelegd per berekening een begin en end.
zag op een gegeven moment ook gewoon niet meer van het hoe en wat terwijl het gewoon met een repeat van 1 blok met een variable optelend je het heel simpel kan doen.