|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.02.2008, 12:41 | #1 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
Одномерные массивы в Turbo Pascal
Есть 2 задачи :
1)Найти сумму элементов одномерного массива, состоящего из n вещественных элементов, между первым и последним отрицательными. 2)Сжать массив, состоящий из n вещественных элементов, удалив из него все элементы, модуль которых не превышает единицу. Освободившиеся в конце массива элементы заполнить нулями. Заранее спасибо! /// 1 задачу сам уже сделал...со второй проблемы ! Жду Помощи!! Последний раз редактировалось W_P; 19.02.2008 в 13:40. |
19.02.2008, 15:43 | #2 |
Дон Кихот
Форумчанин
Регистрация: 17.01.2008
Сообщений: 130
|
Загоняй массив и все
procedure Sort(var A: array of real);
var I, J: integer; T: real; begin for I := High(A) downto Low(A) do for J := Low(A) to High(A) - 1 do if abs( A[J] ) <= 1 then begin T := 0; A[J] := A[J + 1]; A[J + 1] := T; end; end; |
19.02.2008, 17:51 | #3 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
а что значит low и high?? первый раз просто такое вижу
|
19.02.2008, 18:13 | #4 |
Дон Кихот
Форумчанин
Регистрация: 17.01.2008
Сообщений: 130
|
массив 0..9
High(A) - старший индекс массива = 9 Low(A) - младщий индекс массива = 0 это из Delphi, на Pascal можно тупо проставить значения |
19.02.2008, 19:37 | #5 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
спасибо чувак)!
|
16.02.2009, 21:26 | #6 |
Новичок
Джуниор
Регистрация: 16.02.2009
Сообщений: 2
|
очень срочно нужно.
Составить и отладить программу, обеспечивающую ввод массива символьных строк. Сформировать из произвольно заданного одномерного массива символьных строк массив, элементы которого состоят из строк исходного массива, начинающихся латинскими буквами. |
16.02.2009, 23:40 | #7 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,551
|
Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
15.12.2009, 20:52 | #8 |
Пользователь
Регистрация: 15.12.2009
Сообщений: 18
|
А мне нужно полностью, пожалуйста:
В одномерном массиве, состоящем из n вещественных элементов, вычислить: Сумму элементов массива, расположенных между первым и последним отрицательными элементами; Сжать массив, удалив из него все элементы, модуль которых не превышает единицу. Освободившиеся в конце массива элементы заполнить нулями. Я знаю, что нужно решать с помощью процедур и функций, но не знаю как. =( |
16.12.2009, 07:21 | #9 |
Пользователь
Регистрация: 15.12.2009
Сообщений: 18
|
Помогите пожалуйста, мне сегодня срочно надо! =(
|
16.12.2009, 07:47 | #10 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Код:
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерные массивы 2 (Pascal) | Дима82 | Помощь студентам | 4 | 16.02.2009 21:21 |
Одномерные массивы(Pascal) | Дима82 | Помощь студентам | 7 | 07.06.2008 15:33 |
Одномерные массивы - Pascal | W_P | Помощь студентам | 8 | 27.02.2008 19:24 |
Одномерные массивы и строки | Magnit | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 12.04.2007 15:04 |