Разработка в среде Turbo Pascal программы удаления элемента массива

Автор работы: Пользователь скрыл имя, 23 Мая 2011 в 18:31, курсовая работа

Описание

Задан одномерный массив. Найти элемент массива удовлетворяющий условию. Удалить найденный элемент из массива, и преобразованный массив упорядочить по возрастанию.

Исходными данными являются элементы одномерного массива и условие поиска элемента массива. В результате решения задачи должен быть удален элемент массива и сортировка массива по возрастанию.

Работа состоит из  1 файл

Курсовая информатика.docx

— 55.96 Кб (Скачать документ)
"justify">for i:=1 to n do begin

write (‘Введите элементы массива’);

read(a[i]); end;

for i:=1 to n do begin

if a[i]=2*a[i+1] then begin

s:=i; m:=m+1; end; end;

if m=0 then

write(‘Элементы не найдены’) else begin

for i:=s to n do begin

j:=j+1; k[j]:=a[i]; end;

j:=0;

for i:=s to n-1 do begin

j:=j+1; a[i]:=k[j];

end;end;

for y:=n downto 1 do

for i:=1 to y-1 do begin

if a[i]>a[i+1] then begin max:=a[i];a[i]:=a[i+1];a[i+1]:=max; end;end;

for i:=1 to n-1 do begin a[n]:=0; write(a[i]‘ ’); end; END.

    Тестирование  программы

    Ниже  приведены результаты выполнения программы  на примере различных входных  данных. 

 
 
 

Список  литературы

    1. Фаронов В.В. Delphi 4. Учебный курс. – М.: Издательство “Нолидж”, 1998.
    2. Дарахвелидзе П., Марков Е. Программирование в Delphi 4. – СПб.: БХВ-СПб., 1999.
    3. Фигурнов В.Э. IBM PC для пользователя Москва 1990.

Информация о работе Разработка в среде Turbo Pascal программы удаления элемента массива