|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.08.2008, 17:55 | #1 |
Регистрация: 28.08.2008
Сообщений: 7
|
Помогите студенту решить задачи по одномерным числовым массивам
Здравствуйте, помогите, пожалуйста решить задачи. Все начинала, но на каких-то моментах застреваю.
1)Дан одномерный целочисленный массив А из N элементов. Сформировать новый массив В из тех элементов массива А, которые кратны переменной М. Массив В сортировать в невозрастающем порядке. (не знаю как указать то, что числа все-таки кратные и как присвоить эти кратные числа массиву В). 2)Дан целочисленный массив А Из N элементов. Сформировать два новых массива - массив В из элементов принадлежащих интервалу [N1,N2] и массив С из элементов не принадлежащих этому интервалу. Оба результата отсортировать в невозрастающем порядке. (а тут не доходит как введеные интервальные значения сравнивать с порядковым номером элементов массива и опять же как их относить в новые массивы) 3)Дан целочисленный массив А из N элементов. Элементы массива А являются делителями максимального элемента MAX. Сформировать новый массив из тех элементов которые являются простыми числами. 4)Упорядочить массив А из N элементов методом прямого обмена. Исключить элементы массива принадлежащие интервалу [DE], осуществив сжатие. 5)дан целочисленный массив А из N элементов. Разложить элементы А в следующем порядке: сначала элементы чья старшая цифра равна 1, потом 2 и тд. Нулевые элементы исключить осуществив сжатие массива. 6)В исходном целочисленно массиве удалить все повторяющиеся элементы оставив их по одному. Осуществить сжатие массива. 7) Упорядочить исходный целочисленный массив А по убыванию сумм цифр его элементов. |
28.08.2008, 18:21 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Здравствуйте, студент Аннюточка!
Вот ответы на вопросы по первым двум задачам. №1. Код:
Код:
|
28.08.2008, 18:47 | #3 |
Регистрация: 28.08.2008
Сообщений: 7
|
большое Спасибо!!))
По остальным непонятно вот что: 3)Дан целочисленный массив А из N элементов. Элементы массива А являются делителями максимального элемента MAX. Сформировать новый массив из тех элементов которые являются простыми числами. ( как найти все делители этого максимального числа?) 4)Упорядочить массив А из N элементов методом прямого обмена. Исключить элементы массива принадлежащие интервалу [DE], осуществив сжатие. (как произвести сжатие) 5)дан целочисленный массив А из N элементов. Разложить элементы А в следующем порядке: сначала элементы чья старшая цифра равна 1, потом 2 и тд. Нулевые элементы исключить осуществив сжатие массива. (как образом произвести их сравнение и распределение, как элемент массива разделить на цифры) 6)В исходном целочисленном массиве удалить все повторяющиеся элементы оставив их по одному. Осуществить сжатие массива.(как определить повторяющиеся элементы и удалить их) 7) Упорядочить исходный целочисленный массив А по убыванию сумм цифр его элементов.(как произвести это суммирование цифр элементов массива, для того чтоб его отсортировать) |
28.08.2008, 20:26 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
№3 ( как найти все делители этого максимального числа?)
Код:
Код:
|
28.08.2008, 20:41 | #5 |
Регистрация: 28.08.2008
Сообщений: 7
|
Спасибо Вам за 3 и 4 задачки!!
|
28.08.2008, 22:22 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
№5 (как образом произвести их сравнение и распределение, как элемент массива разделить на цифры)
Код:
Код:
Код:
|
28.08.2008, 22:37 | #7 |
Регистрация: 28.08.2008
Сообщений: 7
|
во второй задаче записала
Код:
Последний раз редактировалось Stilet; 29.08.2008 в 08:09. |
29.08.2008, 07:41 | #8 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот поправил.
Код:
|
29.08.2008, 12:23 | #9 |
Регистрация: 28.08.2008
Сообщений: 7
|
ура!! работает)) Спасибо
|
30.08.2008, 22:18 | #10 |
Регистрация: 28.08.2008
Сообщений: 7
|
Перестала работать. Проблема с Delphi или в том что я тут написала.
uses SysUtils; function rus(s:string):string; var i:integer; begin for i:=1 to length (s) do case s [i] of 'А'..'п': s[i]:=chr(ord(s[i])-64); 'р'..'я': s[i]:=chr(ord(s[i])-16); end; rus:=s; end; var a:array of integer; max: integer; i,j: integer; begin write (rus('Введите максимальное число массива '), 'MAX= '); readln (max); writeln (rus('Массив А: ')); for i:=1 to max do if max mod i=0 then begin j:=j+1; a[j]:=i; write (a[j],' '); end; readln; end. Простые числа из всего этого тоже не удается найти writeln (rus('Простые числа: ')); for j := 1 to n do begin prost:= false; d:=2; r:=round(sqrt(n)); while(d<=r) and (n mod d<>0) do inc (d); if d>r then prost:=true; write (b[j], ' '); Помогите, пожалуйста. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задачи по массивам - помогите !!! | Heidi | Паскаль, Turbo Pascal, PascalABC.NET | 18 | 18.12.2010 15:37 |
Помогите студенту решить задачи | traden24 | Microsoft Office Excel | 3 | 18.12.2007 12:16 |