Admin-Modorators section (Link present for de-bugging purposes only.)
פורום דרור
הרשאה | הרשמה | פרופיל | עזרה | דף ראשי
<<חזור
23/11/2024תשובה ל '> בעיה בפסקל' :MBB
| הוספת תשובה ל '> בעיה בפסקל' |
היסטורית הנושא:
עי: talt
| נכתב ב 12/11/2004 14:05:29
הוא כותב לי:
Turbo Pascal 7.0
The NTVDM CPU has encountered an illegal instruction.
CS:0000 IP:0075 OP:f0 00 37 05 Choose 'Close' to terminate the application.
Close // Ignore
והאיגנור לא עובד,
ואז כשאני לוחץ על
close
הוא סוגר לי את הפסקל משום מה.. :|
המה מה שכתבתי:
program p_94_t13;
uses crt;
const
low = 1;
mah = 6;
kup = 5;
type
atype = array[low..mah,low..kup] of real;
procedure klita (var m:atype);
var i,j,num,kupa,mahl:integer;
sum:real;
begin
num:=random(473)+100;
for i:=low to num do begin
kupa:=random(kup);
mahl:=random(mah);
sum:=random(300);
m[mahl,kupa]:=m[mahl,kupa] + sum;
end;
end; { klita }
procedure print (m:atype);
var i,j:integer;
begin
for i:=low to mah do begin
for j:=low to kup do begin
write(m[i,j]:5:2);
end;
writeln;
end;
end; {procedure}
var marah:atype;
begin
klita(marah);
print(marah);
end.
BLAT |
| 
ראשי
מפת אתר
צור קשר