Кто работает с ABC Pascal?
Разработка
40
Сообщения
10
Участники
48
Просмотры
-
Ребят нужна срочна помощь, есть код программы в Turbo Pascal и ABC Pascal Net работает исправно, а в ABC Pascal'e программа работает неисправно...
Код Программы!
PROGRAM spisok;
USES crt;
TYPE point=^element;
element=record
field: string;
next,prev: point;
end;
VAR
char;
s: string;
count,init,fin,current: point;
n,i:integer;
Procedure print(init,current: point);
Var count: point;
Begin
count:=init^.next;
if count=nil then writeln('Empty list. Fill the file.')
else while count<>nil do
begin
if count=current then write('* ') else write(' ');
writeln(count^.field);
count:=count^.next;
end;
End;
Procedure remove(var current: point);
Var count: point;
Begin
current^.next^.prev:=current^.prev;
current^.prev^.next:=current^.next;
if current^.prev^.prev<>nil then count:=current^.prev else count:=current^.next;
dispose(current);
current:=count;
End;
Procedure insrt(var current: point);
Var count: point; s: string;
Begin
writeln;
write('New element:');
readln(s);
count:=current;
new(current);
current^.prev:=count^.prev;
current^.next:=count;
current^.field:=s;
count^.prev^.next:=current;
count^.prev:=current;
End;
BEGIN
clrscr;
{Input}
new(init);
init^.next:=nil;
init^.prev:=nil;
fin:=init;
write('Number of initial elements:');
readln(n);
for i:=1 to n do
begin
write('Element #',i,': ');
readln(s);
new(fin^.next);
fin^.next^.prev:=fin;
fin:=fin^.next;
fin^.next:=nil;
fin^.field:=s;
end;
new(fin^.next);
fin^.next^.prev:=fin;
fin:=fin^.next;
fin^.next:=nil;
fin^.field:='<add new element>';
{End input}
{View/add/remove}
current:=init^.next;
repeat
clrscr;
writeln('Use the numbers 1 and 2 for selecting elements.');
writeln('Press Space to remove selected element.');
writeln('Press Enter to insert new element. Press Esc to exit.');
writeln;
print(init,current);
c:=readkey;
case c of
#49: if current^.prev^.prev<>nil then current:=current^.prev;
#50: if current^.next<>nil then current:=current^.next;
#32: if current^.next<>nil then remove(current);
#13: insrt(current);
end;
until c=#27;
{End view/add/remove}
END.Кто поможет скину монет!
-
Возможно ты ; не везде поставил или же чето не правильно написал
-
Ребят нужна срочна помощь, есть код программы в Turbo Pascal и ABC Pascal Net работает исправно, а в ABC Pascal'e программа работает неисправно...
Код Программы!
PROGRAM spisok;
USES crt;
TYPE point=^element;
element=record
field: string;
next,prev: point;
end;
VAR
char;
s: string;
count,init,fin,current: point;
n,i:integer;
Procedure print(init,current: point);
Var count: point;
Begin
count:=init^.next;
if count=nil then writeln('Empty list. Fill the file.')
else while count<>nil do
begin
if count=current then write('* ') else write(' ');
writeln(count^.field);
count:=count^.next;
end;
End;
Procedure remove(var current: point);
Var count: point;
Begin
current^.next^.prev:=current^.prev;
current^.prev^.next:=current^.next;
if current^.prev^.prev<>nil then count:=current^.prev else count:=current^.next;
dispose(current);
current:=count;
End;
Procedure insrt(var current: point);
Var count: point; s: string;
Begin
writeln;
write('New element:');
readln(s);
count:=current;
new(current);
current^.prev:=count^.prev;
current^.next:=count;
current^.field:=s;
count^.prev^.next:=current;
count^.prev:=current;
End;
BEGIN
clrscr;
{Input}
new(init);
init^.next:=nil;
init^.prev:=nil;
fin:=init;
write('Number of initial elements:');
readln(n);
for i:=1 to n do
begin
write('Element #',i,': ');
readln(s);
new(fin^.next);
fin^.next^.prev:=fin;
fin:=fin^.next;
fin^.next:=nil;
fin^.field:=s;
end;
new(fin^.next);
fin^.next^.prev:=fin;
fin:=fin^.next;
fin^.next:=nil;
fin^.field:='<add new element>';
{End input}
{View/add/remove}
current:=init^.next;
repeat
clrscr;
writeln('Use the numbers 1 and 2 for selecting elements.');
writeln('Press Space to remove selected element.');
writeln('Press Enter to insert new element. Press Esc to exit.');
writeln;
print(init,current);
c:=readkey;
case c of
#49: if current^.prev^.prev<>nil then current:=current^.prev;
#50: if current^.next<>nil then current:=current^.next;
#32: if current^.next<>nil then remove(current);
#13: insrt(current);
end;
until c=#27;
{End view/add/remove}
END.Кто поможет скину монет!
-
Ребят нужна срочна помощь, есть код программы в Turbo Pascal и ABC Pascal Net работает исправно, а в ABC Pascal'e программа работает неисправно...
Код Программы!
PROGRAM spisok;
USES crt;
TYPE point=^element;
element=record
field: string;
next,prev: point;
end;
VAR
char;
s: string;
count,init,fin,current: point;
n,i:integer;
Procedure print(init,current: point);
Var count: point;
Begin
count:=init^.next;
if count=nil then writeln('Empty list. Fill the file.')
else while count<>nil do
begin
if count=current then write('* ') else write(' ');
writeln(count^.field);
count:=count^.next;
end;
End;
Procedure remove(var current: point);
Var count: point;
Begin
current^.next^.prev:=current^.prev;
current^.prev^.next:=current^.next;
if current^.prev^.prev<>nil then count:=current^.prev else count:=current^.next;
dispose(current);
current:=count;
End;
Procedure insrt(var current: point);
Var count: point; s: string;
Begin
writeln;
write('New element:');
readln(s);
count:=current;
new(current);
current^.prev:=count^.prev;
current^.next:=count;
current^.field:=s;
count^.prev^.next:=current;
count^.prev:=current;
End;
BEGIN
clrscr;
{Input}
new(init);
init^.next:=nil;
init^.prev:=nil;
fin:=init;
write('Number of initial elements:');
readln(n);
for i:=1 to n do
begin
write('Element #',i,': ');
readln(s);
new(fin^.next);
fin^.next^.prev:=fin;
fin:=fin^.next;
fin^.next:=nil;
fin^.field:=s;
end;
new(fin^.next);
fin^.next^.prev:=fin;
fin:=fin^.next;
fin^.next:=nil;
fin^.field:='<add new element>';
{End input}
{View/add/remove}
current:=init^.next;
repeat
clrscr;
writeln('Use the numbers 1 and 2 for selecting elements.');
writeln('Press Space to remove selected element.');
writeln('Press Enter to insert new element. Press Esc to exit.');
writeln;
print(init,current);
c:=readkey;
case c of
#49: if current^.prev^.prev<>nil then current:=current^.prev;
#50: if current^.next<>nil then current:=current^.next;
#32: if current^.next<>nil then remove(current);
#13: insrt(current);
end;
until c=#27;
{End view/add/remove}
END.Кто поможет скину монет!
-
Именно в ABC Pascal?
-
Странно.. А можешь в программу добавить меню?
-
Ты хорошо разбираешься в ABC Pascal?
-
да, конечно
-
Ну правильно тебе говорят, что ; не везде, но ещё в начале begin должен быть, ибо я не понимаю, что ты закрываешь 7 строкой.
-
Ну правильно тебе говорят, что ; не везде, но ещё в начале begin должен быть, ибо я не понимаю, что ты закрываешь 7 строкой.
-
где именно не так?
7-я строка end к чему написан? если ты ещё программу не начал, ты уже её заканчиваешь
Добавлено через 01:06 мин.
потом ещё всякие переменные типа field должны идти после var, а не до -
7-я строка end к чему написан? если ты ещё программу не начал, ты уже её заканчиваешь
Добавлено через 01:06 мин.
потом ещё всякие переменные типа field должны идти после var, а не до
