Registriert seit: 10. Jul 2003
Ort: Kiel
34 Beiträge
|
Programmteil wird beim compilieren übergangen
11. Jul 2003, 13:39
Hy!
Woran kann es liegen, das der folgende Pascal Programmteil beim compilieren übergangen wird ( keine blaue Zeilenmarkierung)?
Code:
...
procedure Ellipse;
begin
salfa0:=alfaik;
sh0:=arctan((zik+Hk)/rik)*180/Pi;
sa:=arctan(Ra/rik)*180/Pi;
sbo:=arctan((zik+Hk+Ra)/rik)*180/Pi;
sbo:=sbo-sh0;
sbu:=arctan((zik+Hk-Ra)/rik)*180/Pi;
sbu:=sh0-sbu;
end;
procedure Datum(Tag: integer);
var i, j, k, l, Summe :integer;
const Monatsende :array[1..12] of Integer=(31,29,31,30,31,30,31,31,30,31,30,31);
Mon :array[1..12] of string =('Jan','Feb','M„r','Apr','Mai','Jun',
'Jul','Aug','Sep','Okt','Nov','Dez');
begin
j:=0;
repeat j:=j+1;
Summe:=0;
for i:=1 to j do Summe:=Summe+Monatsende[i];
k:=Tag-Summe;
l:=0;
if k<=0 then begin
l:=1;
Dat:=k+Monatsende[j];
Monat:=Mon[j]; end;
until l=1;
end;
...
Vielen dank im voraus für eure Hilfe...
|
|
Zitat
|