Версия для печати темы

Автор: 6ac9k 19.12.2006 8:04

uses crt;
var b,a:array [1..100] of integer;
c,n,i:integer;
begin
clrscr;
writeln ('vvedite koli4estvo elementov :');
readln (n);
for i:=1 to n do
begin
writeln ('vvedite ',i,' element :');
readln (a[i]);
end;
c:=0;
for i:=1 to n do
begin
if a[i]<>0 then
 begin
  inc(с );
  b[c]:=a[i];
 end;
end;
for i:=c+1 to n do
begin
b[i]:=0;
end;
for i:=1 to n do
begin
write(b[i]);
end;
readkey;
end.

Нужно обратиться к ней с помощью ^
У меня бред получается..просто плохо соображаю..не могу нигде книгу скачать бесплатно по Паскалю..
Конспекта видно мало..

В общем у меня вот такой бред получился:

uses crt;
type T=array[1..100] of integer;
type G=array[1..100] of integer;
var
b:^T;
a:^G;
c,n,i:integer;
begin
clrscr;
writeln ('vvedite koli4estvo elementov :');
readln (n);
getmem(a,sizeof(integer));
getmem(b,sizeof(integer));
for i:=1 to n do
begin
writeln ('vvedite ',i,' element :');
readln (a^[i]);
end;
c:=0;
for i:=1 to n do
begin
if a^[i]<>0 then
 begin
  inc(с );
  b^[c]:=a^[i];
 end;
end;
for i:=c+1 to n do
begin
b^[i]:=0;
end;
for i:=1 to n do
begin
write(b^[i]);
end;
readkey;
end.

Что-то не сходится

М

6ac9k, используй теги! Lapp

Автор: Bokul 19.12.2006 8:17

Не разочаровывайся, посмотри вверх, найди 3-ох буквенное слово FAQ и смело дави на него. Все бесплатно.
А что этот

должен делать?
Мене он выдает тот же результат, что и его безшапочный собрат.

Автор: 6ac9k 19.12.2006 8:36

Автор: Bokul 19.12.2006 8:42

Ясно, проблема возникает когда один с элементов равняется 0. Сейчас исправим.

Автор: Bokul 19.12.2006 8:55

getmem(a,sizeof(integer));
getmem(b,sizeof(integer));

Поменяй на

getmem(a,sizeof(T));
getmem(b,sizeof(G));

И в самом конце поставь

dispose(a);
dispose(b);

Ведь нехорошо не отдавать то, что взял..

Автор: 6ac9k 20.12.2006 7:29

ГоТоВо!