Помагите решить задачку по програмированию

[vanhalsing]

Мне нужно решыть задачу а точнее написать програму, это задание с практики в юнивере, но есть небольшая проблемма, Я ВООБЩЕ НЕЗНАЮ Борлан С: мож кто напишет прогу,а пожалуйста.

Данные целые числа p,q,a1..., a67(p>q тут значек > или равно пставлю так >= 0) В
последовательности а1...,а67 заменить нулями члены,модуль которых при делении на p дает в остатке q.


Вот и вся задачка, токо как ее решить я без понятия

[photon]

А давайте для начала без привязки к конкретному языку программирования (не знаете Borland C - и Бог с ним), прорисуем алгоритм.

Я Вам даже намекну. В MatLAB это пишется в одну строку

a.*(mod(abs(a),p)~=q)

где a - массив [a1,a2....a67].

Осталось расшифровать, что я тут сделал

[DMVN]

Хм, из поста про MatLab я ничего не понял, думаю, и автор темы --- тоже. Хотя как задачку решать - мне ясно. Давайте попробуем спросить - а Вы вообще хоть какой-нить язык программирования знаете? Ну паскаль, бейсик... или тот же C?

Потому что в решении такой задачи (да и многих других задач!)есть два этапа: 1. построить алгоритм, плюя на язык, 2. закодировать алгоритм на данном языке.

Если трудности в шаге 1, то вот набросок. Пусть числа a[i] (i = 1..67) организованы в массив (что бы это ни значило). Для каждого элемента массива (т.е. для каждого a[i]) нужно выполнить простую операцию: узнать его остаток при делении на p и сравнить его с q, в последнем случае положить a[i] <--- 0.

Если непонятки именно с шагом 2, то напишите прогу на любом другом известном Вам языке. Потом переведём на Borland C.

[photon]

DMVN писал(а):

Хм, из поста про MatLab я ничего не понял, думаю, и автор темы --- тоже.

Поясню:
У нас есть одномерный (хотя в моем примере это несущественно) массив a - неважно каким образом он задан.
Например зададим

a=[1 -2 3 -4 5 -6...]

Тогда

abs(a)

создает массив модулей элементов исходного массива.
Получим $[\text{1 2 3 4 5 6...}]$

mod(...,p)

создает массив остататков от деления полученных модулей на $p$. Например, для $p=3$ мы получим
$[\text{1 2 0 1 2 0...}]$
наконец $...\thicksim =q$ - не равно, возвращает массив, в котором для всех элементов предыдущего нашего массива будут единицы, если эти элементы не равны $q$ и нули - если равны.
Например, при $q=2$ получим: $[\text{1 0 1 1 0 1...}]$
и последнее $.*$ - поэлементное умножение исходного массива $a=[\text{1 -2 3 -4 5 -6...}]$ и массива с нулями и единицами: умножение на единицу, не изменяет элемент, а умножение на ноль дает ноль - как раз то, что нам нужно: $[\text{1 0 3 -4 0 -6...}]$

Собственно, алгоритм написан (правда, для С он будет не оптимален, но...)

[DMVN]

Да, забавная вещь MatLAB Но, думаю, проблемы у человека всё же именно с кодировкой --- алгоритм-то предельно прост - ну на уровне здравого смысла всё ясно... Из наших постов уже заведомо ясно, КАК нужно делать (почти в терминах C/C++), но автор пока не торопится спрашивать дальше. Неужели ждёт готовых решений?

[vanhalsing]

DMVN писал(а):

Да, забавная вещь MatLAB . Неужели ждёт готовых решений?

Ребят ну правда вообще не шарю, что говорить если мля сам учитель не шарит, а будет просто смотреть в методичке правильно ли я написал, если кому не сложно напишите пожалуйста програму.

Вроде язык програмирования не важен можно или в паскаль или в с++ или в еще каком .

Если не принесу эту задачку не переведут на 3 курс ... Что я делаю на факультете програмирования?... неспрашивайте я уж и сам не знаю =), хочу скорее закончить юнивер и пойти переквалифицироваться на економиста так как понял что всетаки програмирование это не моё. А щас уже нельзя перевестись на економику ток на 1 курсе можно было.

Если уж несложно напишите поностью задачку . Заранеее всем огромное спасибо.

[cepesh]

Киса, ты с какова горада? (с)
Это где на 2 курсе факультета программирования дают такие задачи, причем препод проверяет их правильность по методичке???

[vanhalsing]

Украина =), у мееня просто принимает задачу не учитель а отвественій за практику, а он нефига нешарит. Мож всетаки ктото напишет програму

[photon]

vanhalsing писал(а):

Украина

... Это не в нашем вузе точно.

[bugmaker]

вот решение на лиспе, раз уж язык неважен:

(defparameter p 3)
(defparameter q 1)
(defparameter seq '(0 1 2 3 4 5 6 7 8 9 10 11 12))

(format t "~S~%" (mapcar (lambda (x) (if (eq q (mod x p)) 0 x)) seq))

Введи свои значения в p, q, seq.

Учи лисп, он прост и в жизни пригодится.

[vanhalsing]

Спасибо .

П.С. У нас в юнивере Лиспу не преподают ))

[cepesh]

А что у вас преподают?

[DMVN]

#include <stdio.h>
#include <stdlib.h>
#define MAX 67

int main()
{
  int seq[MAX]; // массив с нашей последовательностью seq[0]..seq[66] (с нуля, а не с 1!)
  int p,q;         // типа, объявляем переменные
  printf("Enter p: "); 
  scanf("%d", &p);  // вводим их...
  printf("Enter q: ");
  scanf("%d", &q);  // ...с клавиатуры
  printf("Filling sequence with random numbers...\n");
  for (int i = 0; i < MAX; i++) seq[i] = rand() % 100 - 50; // заполняем случайными числами
  printf("Initial sequence:\n");
  for (int i = 0; i < MAX; i++) printf("%d ", seq[i]);
  printf("\n");
  for (int i = 0; i < MAX; i++)
  {
    if (abs(seq[i]) % p == q)
      seq[i] = 0;
  }
  printf("Processed sequence:\n");
  for (int i = 0; i < MAX; i++) printf("%d ", seq[i]);
  printf("\n");
  return 0;
}

[eXire]

ИМХО, зря ты ему написАл. Через полгода прибежит опять, и опять чего-нибудь выпросит. Так никогда ничему не научиться

[DMVN]

eXire писал(а):

ИМХО, зря ты ему написАл. Через полгода прибежит опять, и опять чего-нибудь выпросит. Так никогда ничему не научиться

Вопрос о корректности моих действий уже был оговорен в ЛС с г-ном модератором раздела. Если бы был энтузиазм у автора темы, мои действия были бы иными. Предлагаю вопрос о том, стОит ли отвечать на подобные просьбы, в ДАННОМ разделе НЕ вести.