ראשי מפת אתר צור קשר
זו היא מהדורת ניסוי של הפורום, אנא דווחו על כל תקלה ופרטיה ל leagle_alien@hotmail.com

 Admin-Modorators section (Link present for de-bugging purposes only.)

    פורום דרור
הרשאה | הרשמה | פרופיל | עזרה | דף ראשיפורום דרור - מדעי המחשב: '> בעיה בפסקל' :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 nteger;
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 nteger;
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

 פורום דרור >> מדעי המחשב >> > בעיה בפסקל  

   

אפשרויות ניהול :    
כתובת: צומת דרור, דואר תל-מונד, מיקוד 40600; טלפון: 09-7613777 פקס : 09-7613770

לשאלות ובעיות טכניות פנה אל מנהלת האתר - כל הזכויות שמורות לקריית חינוך ניסויית "דרור" © 2024