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: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68:
| program lotto;
{$APPTYPE CONSOLE}
uses SysUtils;
procedure readint(var x:integer);
var str : string; inp,code : integer; begin repeat readln(str); val(str,x,code); if (code <> 0) then Write(' Keine Zahl eingegeben - nochmals : ') until (code = 0); end;
var arr:array[1..7 ] of integer; arrz:array[1..6 ] of integer; i,j:integer;
begin
randomize; repeat for i:=1 to 7 do arr[i]:=random(49)+1; until (arr[1] <> arr[2]) and (arr[1] <> arr[3]) and (arr[1] <> arr[4]) and (arr[1] <> arr[5]) and (arr[1] <> arr[6]) and (arr[2] <> arr[3]) and (arr[2] <> arr[4]) and (arr[2] <> arr[5]) and (arr[2] <> arr[6]) and (arr[3] <> arr[4]) and (arr[3] <> arr[5]) and (arr[3] <> arr[6]) and (arr[4] <> arr[5]) and (arr[4] <> arr[6]) and (arr[5] <> arr[6]) and (arr[1] <> arr[7]) and (arr[2] <> arr[7]) and (arr[3] <> arr[7]) and (arr[4] <> arr[7]) and (arr[5] <> arr[7]) and (arr[6] <> arr[7]); writeln; writeln(' Lottozahlen : ',arr[1],' ',arr[2],' ',arr[3],' ',arr[4],' ',arr[5],' ',arr[6]); writeln(' Zusatzzahl : ',arr[7]); readln;
begin for j := 1 to 6 do begin write(' Geben Sie die ' +IntToStr(j)+ '.Zahl ein : '); readint(arrz[j]); end;
writeln(arrz[1],' ',arrz[2],' ',arrz[3],' ',arrz[4],' ',arrz[5],' ',arrz[6]); end; readln; end. |