| Автор |
Сообщение |
Solnisko
Репутация: 0
Пол: 
Откуда: Выборг
Сообщения: 9
Стаж: 1 год 5 месяцев
|
[]  06.05.2007 23:29 помогите сделать лабу |
 |
|
Дан массив А из К элементов. Перенести в массив В все четные элементы,а в массив С нечетные.
|
|
| Вернуться к началу |
|
 |
Sovie
Репутация: +20/–1
Пол: 
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
| [] 07.05.2007 0:06 |
|
|
Солнышко, а на каком языке писать?
"K" задано заранее? Или его пользователь указывает?
|
|
| Вернуться к началу |
|
|
NegoDyaiKa
Репутация: +2
Сообщения: 1618
Стаж: 4 года
|
| [] 07.05.2007 0:11 |
|
|
думаю такие задания на Паскале были...
_________________
Он войдет никого не спросив, ты полюбишь его не сразу.
С первого взгляда он некрасив, со второго - безобразен.
Только речи его горячи, только прочь сомнения, прочь!
Самый звонкий крик - тишина, самый яркий свет - ночь
|
|
| Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
| [] 07.05.2007 0:31 |
|
|
Вот. Заранее говорю, писал так просто, как только мог.
Код: Program ABC;
Const
K = 10;
Var
A : Array [0..K] of Integer;
B : Array [0..K] of Integer;
C : Array [0..K] of Integer;
i : Byte;
n : Byte;
m : Byte;
Begin
Randomize;
for i := 0 to K do
A[i] := random(10);
for i := 0 to K do
begin
if (A[i] mod 2) = 0 then
begin
B[n] := A[i];
n := n + 1;
end
else
begin
C[m] := A[i];
m := m + 1;
end;
end;
Write('A -> ');
for i := 0 to K do
Write(A[i], ' ');
WriteLn;
Write('B -> ');
for i := 0 to (n - 1) do
Write(B[i], ' ');
WriteLn;
Write('C -> ');
for i := 0 to (m - 1) do
Write(C[i], ' ');
WriteLn;
WriteLn;
ReadLn;
end.
Добавлено спустя 1 минуту 26 секунд:
Я и сам могу тут кучу всего переделать, например, условие чётности, задачу массива, его вывод, отслеживание повторных элементов и проче, и прочее...
|
|
| Вернуться к началу |
|
|
Solnisko
Репутация: 0
Пол:
Откуда: Выборг
Сообщения: 9
Стаж: 1 год 5 месяцев
|
| [] 07.05.2007 21:58 |
|
|
Спасибо за внимание! К-задает пользователь,а программу нужно написать на Assemblere.
|
|
| Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
| [] 08.05.2007 0:54 |
|
|
Ой! Как здорово! А почему не на ActionScript? Вот такие вещи нужно бы сразу уточнять. Чтобы не было вот таких проколов. Неужели не очевидно, что язык программирования обязаельно следует указать в задании? Как и сроки выполнения.
Вопрос не раскрыт. Assembler какой? У нас у универе разные есть. Встроенный в Pascal? Или в C++? Или TASM (MASM, NASM...)? Какой? Вот шиш я что буду писать, пока не увижу поставновки задачи по всем правилам.
Простите моё негадование. Просто каждый раз одни и те же у всех ошибки. Хоть бы форум пролистывали, если рассуждать не полуается.
|
|
| Вернуться к началу |
|
|
Solnisko
Репутация: 0
Пол:
Откуда: Выборг
Сообщения: 9
Стаж: 1 год 5 месяцев
|
| [] 09.05.2007 15:08 |
|
|
Извини, буду исправляться. Прогу нужно написать на Assemblere встроенном в Pascal. Можешь написать к субботе? Спасибо.
|
|
| Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
| [] 09.05.2007 19:32 |
|
|
Солнышко, ничего не обещаю, много работы.
Однако, замечу, ты написала, что "K задаёт пользователь". Прости, это создание динамического массива. Это выделение и освобождение памяти. Вас на 1 курсе просят это на Assembler написать? Никогда не поверю.
Вероятно, массив задаётся статически. Да? Наполняется случайными числами с помощью инструкций Pascal, а на Assembler пишется только распределение по массивам B и C.
Это так?
|
|
| Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
|
| Вернуться к началу |
|
|
Solnisko
Репутация: 0
Пол:
Откуда: Выборг
Сообщения: 9
Стаж: 1 год 5 месяцев
|
|
| Вернуться к началу |
|
|
Snoop
Репутация: +2
Возраст: 20
Гороскоп:  
Пол:
Откуда: Санкт-Петербург
Сообщения: 1123
Стаж: 3 года 10 месяцев
|
| [] 15.05.2007 23:06 |
|
|
Solnisko, помогу за интим, с любыми задачами, по - любому предмету, интим вперёд!
_________________
Может показаться, что я ничего не делаю, но на клеточном уровне я очень занят!
|
|
| Вернуться к началу |
|
|
Kabal
Инноватор-самоучка
Репутация: +19/–1
Возраст: 26
Гороскоп:  
Пол:
Откуда: Санкт-Петербург
Сообщения: 3252
Стаж: 2 года 9 месяцев
|
| [] 16.05.2007 0:07 |
|
|
СЗОТ
Я тебе устрою интим  . В четвертой лабе по ОРГ ЭВМ . Solnisko, можети придти посмотреть, но это - уже дороже .
_________________
|
|
| Вернуться к началу |
|
|
Snoop
Репутация: +2
Возраст: 20
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 1123
Стаж: 3 года 10 месяцев
|
| [] 16.05.2007 0:12 |
|
|
Kabal
а вы баянист однако 
_________________
Может показаться, что я ничего не делаю, но на клеточном уровне я очень занят!
|
|
| Вернуться к началу |
|
|
|
|
|
