KonsolenApp: Wahlstimmen in % ausgeben

chillli66 · Hält's aus hier Beiträge: 8

halli hallo hab ein problem komme net weiter-.-"
sind noch zimelich am anfang
hab keine idee wie ich das umsetzen soll bei der verarbeitung

2.Bei der Wahl des Klassensprechers stehen drei Kandidaten zur Wahl. Nach der Eingabe ihrer Namen (Deklariere dazu Variablen vom Datentyp String) und der erzielten Stimmenzahlen soll der Computer die Stimmanteile (in Prozent) ermitteln. Schreibe ein PASCAL-Programm zur Lösung dieser Aufgabe !

zurzeit siehts so aus-.-" ziemlich kacke:D
bitte helft mir:Ddanke:-*

markieren

Delphi-Quelltext

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:

program klassensprecherwahl;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,c,sges :string;

begin

//Eingabe
write('================================================');
writeln('Anzahl der Stimmen für Angi:');
readln(a);
writeln('Anzahl der Stimmen für Schrödi:');
readln(b);
writeln('Anzahl der Stimmen für Chris:');
readln(c);

//Verarbeitung
sges:=a+b+c;
a:=100*
b:=100/sges/);
c:=100/sges/c;

//Ausgabe
writeln('Stimmen für Angi in %:',a,);

end.

Moderiert von Gausi: Delphi-Tags hinzugefügt
Moderiert von Narses: Überflüssige Zeilenumbrüche/Leerzeilen entfernt.
Moderiert von Narses: Titel geändert, war: "Pascal - Wahlstimmen in % ausgeben".

Marc. · Verfasst: Do 03.09.09 18:35

Hey und

im Forum!

chillli66 hat folgendes geschrieben :

Schreibe ein PASCAL-Programm zur Lösung dieser Aufgabe !

Grundsätzlich machen wir hier im Forum keine Hausaufgaben, helfen aber gerne, wenn der Fragesteller auch mitdenkt.

Zu Deinem Problem: Die Anzahl der Stimmen sind als Zahlen (in diesem Fall Integer) und nicht als Zeichenketten (Strings) anzusehen.
Die Prozentzahl der Kandidaten erhälst Du aus dem Verhältnis von StimmanzahlX / Gesamtstimmanzahl. Da es sich hier um Prozent (Pro 100) handelt, musst Du selbstverständlich mit 100 multiplizieren.

Grüße,
Marc.

chillli66 · Hält's aus hier Beiträge: 8

joa nur das problem ist das in der aufgabe steht das ich es mit string machen soll...

joa aba würdest du mir pls sagen wie ich das in delphi schreibe also geteilt mit doppelpunkt oda slash?!

elundril · Verfasst: Do 03.09.09 18:41

also kommt drauf an. / ist allgemein eine division, div ist eine integerdivision.

Mit strings kann man aber nun mal nicht rechnen, da stings keine zahlen sind sondern zeichenketten.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Marc. · Verfasst: Do 03.09.09 18:43

chillli66 hat folgendes geschrieben :

joa nur das problem ist das in der aufgabe steht das ich es mit string machen soll...

Schau dir dies bezüglich mal die Funktion StrToInt respektive IntToStr an.

chillli66 hat folgendes geschrieben :

joa aba würdest du mir pls sagen wie ich das in delphi schreibe also geteilt mit doppelpunkt oda slash?!

Probieren geht über Studieren.

Slash.

Ich empfehle dir übrigens einen Blick in den Delphi-Crashkurs von user profile icon

Christian S. zu werfen, um das Defizit an Grundlagen auszugleichen.

chillli66 · Hält's aus hier Beiträge: 8

joa und nun krieg die fehlermeldung
[Error] klassensprecherwahl.dpr(28): Unterminated string
[Error] klassensprecherwahl.dpr(31): ',' or ')' expected but 'END' found

bei dem quelltext:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var a,b,c,sges :integer;

begin

//Eingabe
writeln('================================================');
write('Anzahl der Stimmen fuer Angi:');
readln(a);
write('Anzahl der Stimmen fuer Schroedi:');
readln(b);
write('Anzahl der Stimmen fuer Chris:');
readln(c);

//Verarbeitung
sges:=a+b+c;

//Ausgabe
writeln('Stimmen insgesamt:',sges,');

Moderiert von Narses: Delphi-Tags hinzugefügt

Webo · Verfasst: Do 03.09.09 18:50

klar, in der letzten Zeile ist irgendwie was nicht ganz richtig ...

markieren

Delphi-Quelltext

1:	writeln('Stimmen insgesamt: ' + IntToStr( sges ) );

So könnte das aussehen, wenn du die Gesamtstimmenanzahl ausgeben möchtest.

_________________
Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.

Lannes · Verfasst: Do 03.09.09 18:51

Hallo,

chillli66 hat folgendes geschrieben :

joa nur das problem ist das in der aufgabe steht das ich es mit string machen soll...

In Deiner Aufgabe steht das Du die Namen in Variablem vom Typ String anlegen sollst, zum Typ für die Zahlen ist dort keine Vorgabe gemacht worden. :wink:

Denke mal das es zur Aufgabe gehört sich über einen passenden Typ für die Eingabewerte und die Ergebnisse Gedanken zu machen.

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

chillli66 · Hält's aus hier Beiträge: 8

jo das kommt innen ausgabe teil oda verarbeitungs teil?!

ach ich hab kb dadruff der lehrer kann mich ma

Webo · Verfasst: Do 03.09.09 18:55

chillli66 hat folgendes geschrieben :

jo das kommt innen ausgabe teil oda verarbeitungs teil?!

Was denn genau ?

chillli66 hat folgendes geschrieben :

ach ich hab kb dadruff der lehrer kann mich ma

... keine gute Einstellung ! Und wenn du schon sagst, dass du keinen Bock drauf hast, dann sinkt doch die Motivation bei uns, dir noch irgendwie zu helfen, also, denke nach und streng dich an und du bekommst Hilfe !

_________________
Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.

turboPASCAL · Verfasst: Do 03.09.09 18:56

markieren

Delphi-Quelltext

1:
2:

//Ausgabe
writeln('Stimmen insgesamt:', sges, ' %');

Würde passen.

@chillli66, plz schreib deutsch, un wenn du kb druff hast hab ich och ken. Bitte schreib deutsch.

_________________
Nein, ich bin nicht der turboPASCAL aus der DP, ich seh nur so aus...

chillli66 · Hält's aus hier Beiträge: 8

turboPASCAL hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:

//Ausgabe
writeln('Stimmen insgesamt:', sges, ' %');

Würde passen.

[Error] klassensprecherwahl.dpr(28 ): Missing operator or semicolon

das kommt da raus...

boah ne ich hasse es nur wennsch an etwas sitze und es net funzt scheis ungeduldigkeit ey:D

sieht ma nun so aus..

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var a,b,c:string;
    a1,b1,c1,sges:integer;

begin

//Eingabe
writeln('================================================');
write('Name des Kandidats 1:');
readln(a);
write('Name des Kandidats 2:');
readln(b);
write('Name des Kandidats 3:');
readln(c);
write ('Bitte geben sie die Stimmen für (a)ein'); // <- wieso schreibt der da net den namen von a1 sondern a1:D:D?!
readln(a1);
//Verarbeitung


//Ausgabe
writeln('Stimmen insgesamt:', sges, ' %');


end.

Moderiert von Narses: Delphi-Tags hinzugefügt
Moderiert von Narses: Zitat-Tag verschoben.
Moderiert von Narses: In den Code reineditierte Frage als Kommentar gekennzeichnet.

Marc. · Verfasst: Do 03.09.09 19:14

chillli66 hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	write ('Bitte geben sie die Stimmen für (a)ein'); // <- wieso schreibt der da net den namen von a1 sondern a1:D:D?!

Warum sollte "er" auch dort den Inhalt der Variable "a" einfügen? Du kannst mehere Strings mit dem + - Operator verketten: StringA := StringB + 'Abcdf';
Sollte auch die letzte Error-Meldung entfernen.

chillli66 · Hält's aus hier Beiträge: 8

lol kein plan wovon du labert
wir haben erst vor 3 stunden damit angefangen:D

Webo · Verfasst: Do 03.09.09 19:27

chillli66 hat folgendes geschrieben :

lol kein plan wovon du labert

Irgendwie ist das nicht die höfliche Art ...

chillli66 hat folgendes geschrieben :

wir haben erst vor 3 stunden damit angefangen:D

Marc. hat folgendes geschrieben :

Ich empfehle dir übrigens einen Blick in den Delphi-Crashkurs von user profile icon

Christian S. zu werfen, um das Defizit an Grundlagen auszugleichen.

Das empfehle ich dir jetzt auch dringenst !

_________________
Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.

chillli66 · Hält's aus hier Beiträge: 8

hehe okay danke für eure hilfe

---Moderiert von Narses: Beiträge zusammengefasst---

so klappts...

markieren

Delphi-Quelltext

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:

program klassensprecherwahl;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,c:string;
    a1,b1,c1,sges:real;

begin

//Eingabe
writeln('================================================');
write('Name des Kandidats 1:');
readln(a);
write('Name des Kandidats 2:');
readln(b);
write('Name des Kandidats 3:');
readln(c);
write ('Gebe die Anzahl der Stimmen fuer ',(a),' ein:');
readln(a1);
write ('Gebe die Anzahl der Stimmen fuer ',(b),' ein:');
readln(b1);
write ('Gebe die Anzahl der Stimmen fuer ',(c),' ein:');
readln(c1);
//Verarbeitung
sges:=a1+b1+c1;
a1:=a1/sges*100;
b1:=b1/sges*100;
c1:=c1/sges*100;
//Ausgabe
writeln('Gesamtanzahl der Stimmen: ',sges:10:2,' Stimmen');
writeln('Prozenzwert der Stimme:',a1:10:2,'%');
writeln('Prozenzwert der Stimme:',b1:10:2,'%');
writeln('Prozenzwert der Stimme:',c1:10:2,'%');
readln;

end.

Ehemaliges Mitglied Erhaltene Danke: 1

Dann gib mal für alle 3 Stimmenanzahlen 0 ein

chillli66 · Hält's aus hier Beiträge: 8

dann beendet er das prog:D:DXD

aba ansonsten klappts^^

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme