IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> МАТРИЦЫ, помогите плиз решить задачу!!!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Женский
Реальное имя: Natali

Репутация: -  0  +


Дана матрица размерностью N*M. Удалить из матрицы все строки, в которых количество простых чисел больше количества четных чисел.
Люди, помогите пожалуйста, буду ооочень вам благодарна!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


В чем именно проблема ?

Массивы. Матрицы. Типичные задачи.

По поводу определения простое ли число - в поиск, да и в FAQ тоже есть ...
Да и вообще подобные задачи решались, пользуйся поиском, будут конкретные вопросы - подскажем.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 75
Пол: Мужской

Репутация: -  0  +


Время позднее уже...поэтому
Могу предложить начало программы. Процедуру удаление строки сама попробуй написать. Если не получится,
то завтра напишу ответ (конечено, после твоих попыток)
Код

uses crt;
const n=3;m=5;
type
tvector = array[1 .. m] of integer;
tmatrix = array[1 .. n] of tvector;
var
  s:array[1..n] of integer;
  i,j,K_ch,K_pr:integer;
  mx:tMatrix;
{------------------------------------------------------------------------------}

function prosto(x:integer):boolean;
var i,s:integer;
begin
for i:= 1 to x do
  begin
   if x mod i=0 then s:=s+1;
   if s=2 then prosto:=true
  end;
end;

begin
ClrScr;
cls;

{Ввод массива}
for i:=1 to n do
  for j:=1 to m do
   readln(mx[i][j]);

{Вывод массива}
for i:=1 to n do
begin
  for j:= 1 to m do
   Write(mx[i][j],' ');
  writeln
end;

K_ch:=0;K_pr:=0;
for i:=1 to n do
  for j:=1 to m do
    begin
     If mx[i][j]mod 2=0 then K_ch:=K_ch+1;
     If Prosto(mx[i][j])=true then k_pr:=K_pr+1;
     If K_Pr>K_ch then удалить i-ю строку;     {здесь подумай сама как удалить строку}
    end; :give_rose:

Writeln('Теперь матрица выглядит так: ');
for i:=1 to n do
begin
  for j:= 1 to m do
   Write(mx[i][j],' ');
  writeln
end;

end.

Хотя, лучше, надо было использовать дин. массивы...=)
Спать хочу

Сообщение отредактировано: }0pa -


--------------------
Ну, а почему бы в свободное время не позаниматься программированием?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






}0pa, это расценивать, как флейм? mad.gif

Цитата
{здесь подумай сама как удалить строку}
Да в этом-то и заключается вопрос автора !!! Тогда у меня вопрос к тебе, если ты в качестве ответа на основной вопрос даешь вот такую рекомендацию, то ЧТО ВООБЩЕ здесь делает твоя программа? Ввод данных? Это есть по ссылке из второго поста...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 75
Пол: Мужской

Репутация: -  0  +


В конце концов, это лучше, чем ничего. К тому же, ей предлагается скопировать этот кусок и сосредоточиться на написании процедуры blum.gif

А чего бы копировать твою, неизвестно как написанную (и вообще проверенную ли) программу, а не оттестированный всеми возможными способами материал из FAQ? В общем, прекращаем флейм ...

Сообщение отредактировано: volvo -


--------------------
Ну, а почему бы в свободное время не позаниматься программированием?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 2
Пол: Женский
Реальное имя: Natali

Репутация: -  0  +


спасибо вам большое))реально очень помогли)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 20.09.2020 2:02
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name