Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/14: Рейтинг темы: голосов - 14, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.02.2011
Сообщений: 16

Обнуление элементов матрицы

15.02.2011, 21:54. Показов 3046. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
ещё одна задачка, к-ю надо сдать в четверг.

Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы, отмеченные X и вывести полученную матрицу на экран.

В общем, я типо попыталась эту матрицу изобразить,если что=)
Нам учитель сказал что в цикле должно быть это:
s:=o;
for i:=1 to n do
For j:=1 to i do
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.02.2011, 21:54
Ответы с готовыми решениями:

Обнуление елементов матрицы
Программа работает но нужно зделать немного по другому Например: Программа обнуляет так: 0 2 2 3 4 0 0 1 1 1 0 0 0 ...

Обнуление элементов массива
Помогите пожалуйста с программой. Задание: дан массив F1,.....,F14. В массиве есть только два отрицательных элемента. Заменить все...

Обнуление элементов массива
Помогите пожалуйста. Завтра сдавать. Заполнить матрицу из 7 строк и 7 столбцов числами в интервале и вывести ее на экран. Обнулить...

2
2022 / 1621 / 489
Регистрация: 31.05.2009
Сообщений: 3,005
15.02.2011, 23:45
Лучший ответ Сообщение было отмечено Дилька* как решение

Решение

Если правильно понял задание
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
program prog;
 
uses
  Crt;
 
const
  N = 7;
 
var
  a: array[1..N, 1..N] of integer;
  i, j: integer;
  x: integer;
begin
  Randomize;
  WriteLn('Before:');
  for i:= 1 to N do begin
    for j:= 1 to N do begin
      a[i,j]:= Random(20)-10 + Random(2);
      Write(a[i,j]:4);
    end;
    WriteLn;
  end;
 
  WriteLn;
  Write('Input x: ');
  ReadLn(x);
  WriteLn;
 
  WriteLn('After:');
  for i:= 1 to N do begin
    for j:= 1 to N do begin
      if a[i,j] = x then a[i,j]:= 0;
      Write(a[i,j]:4);
    end;
    WriteLn;
  end;
 
  WriteLn('Press any key to exit...');
  ReadKey;
end.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
16.02.2011, 11:05
Цитата Сообщение от Дилька* Посмотреть сообщение
отмеченные X
Ну и где они отмечены?

Добавлено через 1 минуту
Цитата Сообщение от Дилька* Посмотреть сообщение
В общем, я типо попыталась эту матрицу изобразить,если что=)
Если что так и не случилось? Или на телепатов рассчитываешь?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.02.2011, 11:05
Помогаю со студенческими работами здесь

Обнуление мин кол-во элементов
Условие: Пусть дана матрица А(mxn), состоящая из натуральных чисел. Вкаждом столбще обнулите минимальное количество элементов так,...

Обнуление элементов массива в виде фигуры
Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале и вывести ее на экран. Обнулить элементы, отмеченные зеленым...

Обнуление элементов массива в виде фигуры
Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале и вывести ее на экран. Обнулить элементы, отмеченные зеленым...

Обнуление элементов матрицы
Помогите решить задачу: Нужно заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале и вывести ее на экран....

обнуление элементов матрицы
Здравствуйте, помогите пожалуйста написать программу, которая обнуляет элементы матрицы, лежащие одновременно ниже главной...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru