Verfügbare Informationen zu "longint"
Qualität des Beitrags: Beteiligte Poster: Moritz Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 1 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: longint Letzte Antwort: vor 16 Jahren, 4 Monaten, 17 Tagen, 7 Stunden, 40 Minuten
Alle Beiträge und Antworten zu "longint"
Re: longint
Moritz - 06.12.2007, 22:43longint
Ich habe folgendes Problem: Ich habe unten genanntes Programm geschrieben, um die zufäffigkeit von random zu testen.
allerdings geht es nicht, wenn man werte>500 eingibt, obwohl longint ja mehr fassen kann!!
Code:
program testrnd;
uses crt;
var rn: array [1..1024] of longint;
var i, j: longint;
var max: longint;
var ideal: longint;
var sm: longint;
differenz: integer;
begin
clrscr;
sm:=0;
randomize;
writeln ('bis zu welcher Zahl(Zahl muss größer als 0 und durch 2 teilbar sein)??');
readln (max);
ideal :=max div 2;
for i:=1 to 1024 do
begin
//for j:=1 to 1024 do
//begin
rn [i{, j}]:=random (max-1)+1;
//end;
end;
for i:=1 to 1024 do
begin
for j:=1 to 1024 do
begin
sm:=sm+rn [i];
end;
end;
sm:=sm div (1024*1024);
sm:=sm*2;
differenz:=max-sm;
writeln (sm);
writeln (differenz);
readkey;
end.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
HTML/ PHP - gepostet von gs93 am Dienstag 17.10.2006
Microsoft Visual Studio 2005 - gepostet von Kimi am Freitag 30.11.2007
Error 113 - gepostet von Jirji am Montag 03.09.2007
OpenGl Tutorial - gepostet von c# am Dienstag 26.06.2007
Brauche das Programm Pascal - gepostet von Lino am Freitag 14.07.2006
Tubo C - gepostet von Michi am Donnerstag 10.08.2006
Kostenlose Homepages - gepostet von detewe89 am Samstag 24.11.2007
HELP - gepostet von eweu am Freitag 12.01.2007
Bitte umhilfe! - gepostet von lFreshManl am Freitag 29.12.2006
Ähnliche Beiträge wie "longint"