;ומוודאת אם הוא ריבוע קסם

;אנו מניחים שהסכום של שורה אינו עולה על 255 (בית אחד) וזהו

.model small

.stack 100h

.data

index db 3; מסמן את מיקום תחילת המערך בזיכרון

sentinal db 0; הערך של השורה הראשונה והזקיף אליו משווים הכל

.code

mov ax,@data

mov ds, ax

; here your program starts

mov ah, 0

mov al, index

push ax

call mem; initializes a square beginning in index

mov ah, 0

mov al, index

push ax

call colomn ; checks equality of columns.

pop cx; בודק מה החזירה התת-תכנית ואם זה 0 היא מסיימת את התוכנה

cmp cl,0;

jz kill;

mov ah, 0

mov al, index

push ax

call rows ; checks for rows’ equality

pop cx; בודק מה החזירה התת-תכנית ואם זה 0 היא מסיימת את התוכנה

cmp cl,0;

jz kill;

mov ah, 0

mov al, index

push ax

call diagonal ; checks for diagonals’ equality

pop cx; בודק מה החזירה התת-תכנית ואם זה 0 היא מסיימת את התוכנה

cmp cl,0;

jz kill;

jmp good;

kill: mov al, 1 ; כדי להדליק נורה אחת

jmp e-n-d ; קופץ לסוף התוכנית

good: mov al,255; מדליק את כל הנורות כדי לאמר… המשך לקרוא →

המחשב האישי הוא המכשיר האלקטרוני המתוחכם ביותר. אני מאוד מתעניין במחשבים, ורוצה לדעת איך הם פועלים, לא רק תוכנות ומשחקים, אלא החלקים של המחשב. איך הקולות והמראות שאני רואה במשחקים ותכנות מגיעים אל המסך והרמקול. כשאני חושב על המחשב מתעוררות בי שאלות, כמו איך המחשב מבצע מיליוני חישובים בשנייה?
ולאו דווקא היום. הייתי גם רוצה לדעת מי המציא את המחשב הראשון, כיצד התפתח למחשב של היום, ואילו יכולות מתכננים לו בעתיד. על כל השאלות הללו אני עונה בעבודה הזאת.

התפתחות המחשב

כבר לפני כ2000- שנה ברומא הייתה מכונת חישוב. מכונת החישוב הזאת, שהיא המחשב הראשון, היא החשבונייה. החשבונייה הייתה המחשב היחיד שהיה בשימוש לפני העת החדשה.

בשנת 1642, המציא בלֵיז פַסקאל את מכונת החשבון המכנית, שבאמצעות מערכת של גלגלי שיניים, הייתה יכולה לבצע פעולות חיבור וחיסור פשוטות.
במאה ה19-, המציא צ’ארלס בַבֶג’ את ‘המכונה האנליטית’. המכונה הזאת הייתה מסוגלת לקבל הוראות ולאגור נתונים. היה למכונה הזאת זיכרון, והיו יכולים אפילו לתכנת אותה. המכונה הזאת הייתה קפיצה אדירה קדימה בטכנולוגיה של המחשב. המכונה הזאת הייתה האב-טיפוס למחשבים של היום.

לאחר מכן, לא נותר אלא לשפר ולחדש את המצאתו של בבג’. כך עשה ואנֶוַר בוּש האמריקני בשנת 1930. המכונה שלו הייתה מכונת חישוב חשמלית, המחשב האנלוגי הגדול הראשון.

ב1941-,… המשך לקרוא →

type
location=record
x:integer;
y:integer;
w:char;
end;
pos=^link;
link=record
info:location;
next:pos;
end;
list=record
anchor:pos;
end;

procedure list_init(var l:list);

begin
new(l.anchor);
l.anchor^.next:=nil;
end;

function list_prev(l:list;p:pos):pos;
var
q:pos;
begin
q:=l.anchor;
while q^.next p do
q:=q^.next;
list_prev:=q;
end;
procedure add_unit (var l:list);
var
q,p:pos;
begin
new(q);
q^.next:=nil;
p:=list_prev(l, q^.next);
p^.next:=q;
end;
procedure delete(var p:pos; var l:list);
var
q:pos;
begin
q:=list_prev(l,p);
q^.next:=p^.next;
dispose(p);
p:=q^.next;
end;
function last_unit (l:list):pos;
begin
last_unit:=list_prev(l, nil);
end;
function list_empty (l:list):boolean;
begin
if l.anchor^.next=nil then
list_empty:=true
else
list_empty:=false;
end;

procedure m_tank (d:char; var tank:location);
begin
gotoxy(tank.x-2, tank.y);
write(‘ ‘);
gotoxy(tank.x-2, tank.y+1);
write(‘ ‘);
if (tank.x=77) and (d=’6′) then
tank.x:=3
else if (tank.x=3) and (d=’4′) then
tank.x:=77
else if d=’4′ then
tank.x:=tank.x-1
else if d=’6′ then
tank.x:=tank.x+1;
gotoxy(tank.x-2,tank.y);
write (‘ֹֽ׀ֽ»’);
gotoxy(tank.x-2, tank.y+1);
write (‘*****’);
{readkey;}
end;
procedure print_shoot (l_bulet:list);
var
p:pos;
begin
p:=l_bulet.anchor^.next;
while pnil do
begin
gotoxy(p^.info.x, p^.info.y);
write (‘^’);
if p^.info.w=’7′ then
begin
gotoxy(p^.info.x+1, p^.info.y+1);
end
else if p^.info.w=’8′ then
gotoxy(p^.info.x, p^.info.y+1)
else if p^.info.w=’9′ then
begin
gotoxy(p^.info.x-1,p^.info.y+1);
end;
write (‘ ‘);
p:=p^.next;
end;
end;
procedure m_shoot (var l_bulet:list);
var
p:pos;
bu:boolean;
begin
p:=l_bulet.anchor^.next;
while pnil do
begin
bu:=false;
if p^.info.w=’7′ then
begin
p^.info.x:=p^.info.x-1;… המשך לקרוא →

חומרה
התקן שנמצא בתוך המחשב. בלי חומרה המחשב אינו יכול להתקיים.