danke, hab den quelltext jetzt nochmal editiert, aber wie kann ich das jetzt mit dem repeat machen? könnte mir es vielleicht mal jemand in den quellcode einfügen sowie es sein muss? danke im voraus
Delphi-Quellcode:
program Vendetta;
{$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
else if ein = 'Messerstecher' then pun:=anz*4
else if ein = 'Tuersteher' then pun:=anz*6
else if ein = 'Revolverheld' then pun:=anz*21
else if ein = 'Besetzungstruppe' then pun:=anz*251
else if ein = 'Spion' then pun:=anz*3
else if ein = 'Moebelpacker' then pun:=anz*9
else if ein = 'CIA Agent' then pun:=anz*87
else if ein = 'FBI Agent' then pun:=anz*48
else if ein = '´Transporteur' then pun:=anz*51
else if ein = 'Ninja' then pun:=anz*236
else if ein = 'Scharfschuetze' then pun:=anz*28
else if ein = 'Soeldner' then pun:=anz*1176
else if ein = '`Schwarzgeldarbeiter' then pun:=anz*4
else if ein = 'Bodyguard' then pun:=anz*43
else if ein = 'Polizist' then pun:=anz*54
else if ein = 'Profikiller' then pun:=anz*176
else if ein = 'Objektwache' then pun:=anz*21
else if ein = 'Guarde' then pun:=anz*388
else if ein = 'Problemlöser' then pun:=anz*93
else 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 ('Die Gesamtpunktzahl betraegt: ',pun,' ');
writeln;
writeln;
writeln;
readln;
end.