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

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

27.11.2010, 15:53. Просмотров 574. Ответов 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.

http://www.cyberforum.ru/pascal/thread39238.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 15:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычеркнуть числа с одномерного массива (Pascal):

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

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

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

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

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

1
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,302
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
Привет! Вот еще темы с решениями:

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

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

Двуменые Массивы.Формирование одномерного массива из двумерного массива по условию
1)В двумерном массиве B найти минимальный элемент среди элементов,расположенных...

Построение нового массива, содержащего элементы заданного одномерного массива в инвертированном порядке
Написать программу построения нового массива, содержащего элементы заданного...


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

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

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