Flashhilfe.de - Flash Community

Delphie Pascal Problem

 


AntwortenRegistrieren Seite1  

abgemeldeter Benutzer#1
07.01.2011, 20:05

PHP:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program Buchungsprogramm;  (*Programm nimmt Rechnung entgegen,addeirt MWST und gibt die Summen mit und ohne MWST sowie den MWST-Betrag aus!*)
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  TBuchung=array of real;
var
  Buchung : TBuchung;
  max : integer ;
  summ, dumm, lumm : real;
  f:char;
  procedure Eingabe(var einbuchung:TBuchung; var sax:integer);
   begin
   max:=1;
    repeat
    Write(max,'.Betrag: ');
    setLength(einBuchung,max);
    ReadLn(einbuchung[max]);
    inc(max);
    writeLn('Weiter? j/n');
    readLn(f);
    until f='n';
   end;
  procedure Addition(var adbuchung : TBuchung; var max : integer; var sum : real);
  var o:integer;

   begin
   writeLn(max);
   sum:=0;
   for o:=1 to max do
   writeLn(Adbuchung[o]);
   end;
  procedure Steuer(var summa,fumma,summo:real);
   begin
   fumma:=summa*19/100;
   summo:= summa+fumma;
   end;
  procedure Ausgabe(somma,fomma,fommo:real);
   begin
   writeLn(' Rechnung:');
   writeLn('  Summe:            ',somma:6:2);
   writeLn('  MWS:             +',fomma:6:2);
   writeLn('                   ________');
   WriteLn('  Rechnungsbetrag:  ',fommo:6:2);
   end;
begin // Hauptprogramm
  Eingabe(Buchung, max);
  Addition(buchung , max , summ);
  Steuer(summ, dumm, lumm);
  Ausgabe(summ, dumm, lumm);
  readLn;
end.


Weiß jemand wo es ein Forum wo ich so Probleme lösen kann oder kann mir hier wer weiterhelfen...
Der Script soll Beiträge addieren...leider klappt es nicht ganz

LG
Geändert von seppel.3 am 07.01.11 um 23:42 Uhr
Werbung
Beiträge: 0
Registriert: Feb 2016


vindel#2
Benutzerbild von vindelFlashhilfe.de Moderator
Beiträge: 3000
Wohnort: Köln
Registriert: Oct 2007

08.01.2011, 11:48

Hallo,

also meine Welt ist es nicht, vielleicht schaust du mal beim Delphi-Forum rein. Die sollten dir helfen können..
Viel erfolg!
public Weltformel(Problem){
      if (Problem gelöst) return Lösung;
      else Weltformel(kleiners Problem);
}

AntwortenRegistrieren Seite1  

Schnellantwort

Du musst registriert sein, um diese Funktion nutzen zu können.

 
Ähnliche Beiträge zum Thema
Partner Webseiten: art-and-law.de  Mediengestalter.info   php-resource.de   phpforum.de   phpwelt.de   Pixelio.de   Scubacube.de  
Haftungsausschluss   Datenschutzerklärung   Hier Werben   Impressum
© 1999-2019 Sebastian Wichmann - Flashhilfe.de