Habe das jetzt mal probiert wie es inherited gesagt hat, hier ist mein kompletter quellcode... allerdings funkz das prog jetzt nicht mehr da er jetzt am ende immer 0 hinschreibt... Was kann ich dagegen machen und wie würde das mit dem repeat innerhalb dieses quellcodes aussehen?
Delphi-Quellcode:
program Einheiten;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
ein :string;
anz, pun : integer;
begin
writeln ('Vendetta - Einheitenpunktezaehler');
writeln ('Bitte gebe den Namen der Einheit an (Bitte in Vokalen, z. B. Soeldner):');
readln (ein);
writeln ('Bitte gebe Die Anzahl der Einheiten an:');
readln (anz);
if ein = 'Schlaeger' then pun:=anz*6;
if ein = 'Messerstecher' then pun:=anz*4;
if ein = 'Tuersteher' then pun:=anz*6;
if ein = 'Revolverheld' then pun:=anz*21;
if ein = 'Besetzungstruppe' then pun:=anz*251;
if ein = 'Spion' then pun:=anz*3;
if ein = 'Moebelpacker' then pun:=anz*9;
if ein = 'CIA Agent' then pun:=anz*87;
if ein = 'FBI Agent' then pun:=anz*48;
if ein = '´Transporteur' then pun:=anz*51;
if ein = 'Ninja' then pun:=anz*236;
if ein = 'Scharfschuetze' then pun:=anz*28;
if ein = 'Soeldner' then pun:=anz*1176;
if ein = '`Schwarzgeldarbeiter' then pun:=anz*4;
if ein = 'Bodyguard' then pun:=anz*43;
if ein = 'Polizist' then pun:=anz*54;
if ein = 'Profikiller' then pun:=anz*176;
if ein = 'Objektwache' then pun:=anz*21;
if ein = 'Guarde' then pun:=anz*388;
if ein = 'Problemlöser' then pun:=anz*93;
if ein = 'Bombenleger' then pun:=anz*281
else pun:=0;
writeln;
writeln;
if pun = 0 then writeln ('Die Einheit wurde leider nicht gefunden')
else writeln ('Hier die Gesamtpunktzahl:'); writeln (pun);
writeln;
writeln;
writeln;
readln;
end.