Кто работает с ABC Pascal?
-
Автор
Ребят нужна срочна помощь, есть код программы в 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.Кто поможет скину монет!
-
Возможно ты ; не везде поставил или же чето не правильно написал
-
Автор
в турбо все работает и в нет, а в обычном после ввода списка, постоянный цикл ввода нового элемента списка...
-
Может объяснить как решать задачи? в школе плохо объяснили(( скину монеты все свои и дни
-
10 класс?
-
Сча посмотрю)) Я шарю в паскале)
-
Автор
Программа задана в универе..
-
Чувак, всё работает исправно))
Добавлено через 00:12 мин.
всё работает норм ))) я протестил -
Автор
Именно в ABC Pascal?
-
да в Pascal ABC
-
Автор
Странно.. А можешь в программу добавить меню?
-
в смысле?
-
Автор
Ты хорошо разбираешься в ABC Pascal?
-
забей
-
да, конечно
