Помощь - Поиск - Пользователи - Календарь
Полная версия: Удаление положительных элементов из списка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Cirille
Нужно написать программу удаления из списка всех положительных элементов.
мисс_граффити
Ну напиши, раз нужно...
Что тут еще сказать?...
Cirille
Цитата(мисс_граффити @ 16.05.2007 23:38) *

Ну напиши, раз нужно...
Что тут еще сказать?...


А если скажу: ПОЖАЛУСТА напиши прогу удаления всех положительных элементов из списка.
Потому что в Паскале я полный ноль. nea.gif
2ral
А список Вы сами должны ввести или наугад?
И скажите, пожалуйста, должны ли Вы вводить величину списка? wink.gif
Cirille
Цитата(2ral @ 18.05.2007 11:09) *

А список Вы сами должны ввести или наугад?
И скажите, пожалуйста, должны ли Вы вводить величину списка? wink.gif


Программа сама должна составить список наугад. А вот вводить или нет величину списка, это без разницы, как будет легче.
2ral
Эта программа читает количество значениы в массиве, а потом и значения. Потом же,
она перекладывает все отрицательные значемия значени в другой.



 
uses crt;
const
Na=1000;
var
a,b,c,d,n,i,j,k:integer;
ar,ar1:array[1..Na] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(ar[i]);
for i:=1 to n do
if ar[i]<0 then
begin
inc(j);
ar1[j]:=ar[i];
end;
for i:=1 to j do
write(ar1[i]:4);
end.


volvo
Это - не список, простите... Это массив... Список - это Динамическая Структура Данных... См. здесь:
Все о динамических структурах данных.
2ral
Можно сделать так для того что бы программа цама входила значения.


uses crt;
const
Na=1000;
var
a,b,c,d,n,i,j,k:integer;
ar,ar1:array[1..Na] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
ar[i]:=random(100);
ar[i:=ar[i]-1;
end;
for i:=1 to n do
if ar[i]<0 then
begin
inc(j);
ar1[j]:=ar[i];
end;
for i:=1 to j do
write(ar1[i]:4);
end.


2ral
Цитата(volvo @ 18.05.2007 12:40) *

Это - не список, простите... Это массив... Список - это Динамическая Структура Данных... См. здесь:
Все о динамических структурах данных.


Простите, но ведь строки, как я знаю, тоже что и массивы только их значения, в отличие от них, разных типов.
Гость
При запуске программы ни чего не происходит, только чёрный экран. Она не составляет список, тогда я сам ввожу полож. и отриц. цифры и при нажатии на Enter она вылетает, в обоих случаях.
Sto
Мне кажется она не вылетает, а просто завершает свою работу.
Перед последней строкой добавь ReadLn;.
Cirille
Спасибо всем кто помог сделать задачу, особенно 2Ral.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.