Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
tol1k830
1 / 1 / 0
Регистрация: 23.03.2010
Сообщений: 12
1

Вычеркнуть числа с одномерного массива

27.11.2010, 15:53. Просмотров 593. Ответов 1
Метки нет (Все метки)

Вычеркнуть числа с одномерного массива. Суть в том. Мне нужно решить задачку.
Вот её текст
Действительные числа а [1], .. , а[n] расположены по кругу (n <21). Создать новый массив чисел с [1],. , C [n] полученного путем вычеркивания каждого k-го элемента (числа) с a [i],. ,. A [n] с m-го (в счет вычеркнутые элементы не учитывать).
Как я понял тут получается если одномерный масив 1 2 3 4 5 6 7 8 9 10 и каждую вторую цифру убирать(если доходим до начала то все заново только уже с теми цифрами которых нет) то получится новый масив 2 4 6 8 10 1 3 5 7 9
начал делать и уже часа два мучаюсь не могу решить как так вычеркнуть числа с масива. Может кто посдкажет каким образом это сделать. думал что в другой масив переносить а все равно не понятно как

вот что то написал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var a:array[0..1000] of real;
    b:array[0..1000] of real;
    c:array[0..1000] of real;
    n,i,s,k,j,m,g:integer;
    
begin
 
writeln('Введите количество элементов масива');
 readln(n);
 g:=n;
 for i:=1 to n do
 
     begin
      writeln('Введите', i ,'элемент масива');      {вводим масив}
      read(a[i]);
     end;
    writeln('Скакого числа по порядка начинать?');
 readln(s);
 
 writeln('какое число вычеркивать');
 readln(k);
 for i:=s to n do  {Далее неправильно ничего}
        begin
       i:=k+i;
       writeln(a[i]);{Этим я проверял как выводится масив (но по идее тут надо приравнивать его к другому масиву) }
       if i>n then
       i:=s
       end;
 
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 15:53
Ответы с готовыми решениями:

Подсчет числа наименьших по модулю элементов одномерного массива
Составьте программу подсчета числа наименьших по модулю элементов одномерного...

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива
1. Составьте программу подсчета числа наименьших по модулю элементов...

Подсчитать, сколько элементов одномерного массива размерностью n, больше введенного с клавиатуры числа
подсчитать, сколько элементов одномерного массива размерностью n, больше...

Найти количество четных элементов одномерного массива до первого встреченного числа равного наперед заданному числу а
Помогите решить пожалуйста!!!!Найти количество четных элементов одномерного...

вывод на экран случайного одномерного массива,ввод с клавиатуры одномерного массива и вывод его на экран.и все это в одной проге.как это сделать?
надо чтобы при запуске прграммы в паскале сначала вывелся на кран одномерный...

1
Puporev
Модератор
54586 / 42092 / 29061
Регистрация: 18.05.2008
Сообщений: 99,297
27.11.2010, 17:57 2
Я так понял это вариация на тему задачи Джозефуса или считалочки.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
const max=100;
var a,c:array[1..max]of real;
    n,m,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер масва А до ',max,' n=');
readln(n);
until n in [1..max];
write('Введите номер элемента для удаления k=');
readln(k);
if k>n then k:=k mod n;
writeln('Исходная последовательность:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
{начальное значение}
i:=0;m:=0;
repeat
{вычисляем новое значение}
i:=1+(i+k-1)mod n;
m:=m+1;
c[m]:=a[i];
{удаляем элемент из масива}
dec(n);
for j:=i to n do
a[j]:=a[j+1];
dec(i);
until n=1;
m:=m+1;
c[m]:=a[1];
writeln;
{выводим результат}
writeln('Элементы в порядке удаления:');
for i:=1 to m do
write(c[i]:5:2);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 17:57

Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.
Можете глянуть две задачки на pascale ? 1)Определить сумму элементов, массива...

Из одномерного массива C получить массив D,удалив из массива C нечётные и минимальные элементы.
Из одномерного массива C получить массив D,удалив из массива C нечётные и...

Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива
Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru