целочисельная матрица

@Mischanja · Регистрация: 15.10.2009

Author24 — интернет-сервис помощи студентам

Задана целочисельная матрица A(n,n), n=<20 . Разработать программу, которая исчет и печатает номера тех рядков, елементы которых создают симетрические последовательности 1, 2, 3, 3, 2, 1 или 1, 2, 3, 5,3, 2, 1.

Просьба реализировать программку через параметр Delphi7 - "StrinGrid".

Помогите плизз

@conn · 22.10.2009, 01:34

Delphi

procedure TForm1.Button1Click(Sender: TObject);//заполнение рандомно нулями и ед-ми, можно вручную
var
  i,j : integer;
begin
  Randomize;
  for i:=0 to StringGrid1.ColCount-1 do
    for j:=0 to StringGrid1.RowCount-1 do
      StringGrid1.Cells[i,j]:=IntToStr(random(2));
end;
 
procedure TForm1.FormCreate(Sender: TObject);//тут как вам надо сделаете
begin
  form1.StringGrid1.RowCount:=5;
  form1.StringGrid1.ColCount:=5;
  form1.StringGrid1.FixedCols:=0;
  form1.StringGrid1.FixedRows:=0;
end;
 
procedure TForm1.Button2Click(Sender: TObject);//проверка на симетричность
var
  i,j : integer;
  sim_row, sim_col : boolean;
begin
  for i:=0 to StringGrid1.RowCount-1 do
  begin
    sim_row:=true;
    for j:=0 to StringGrid1.ColCount-1 do
    begin
      if StringGrid1.Cells[j,i]<>StringGrid1.Cells[StringGrid1.ColCount-j-1,i]
      then sim_row:=false;
    end;
    if sim_row then Memo1.Lines.Add('Row #'+IntToStr(i+1)+' is simetric');
  end
end;

это для рядов (Rows), для колонок (Cols) по аналогии можно сделать.

Блоги программистов
Подброка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .	Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .

@Mischanja Всегда не хватает времени 119 / 119 / 20 Регистрация: 15.10.2009 Сообщений: 493
		1
	целочисельная матрица 21.10.2009, 19:21. Показов 1228. Ответов 1 Метки нет (Все метки) Задана целочисельная матрица A(n,n), n=<20 . Разработать программу, которая исчет и печатает номера тех рядков, елементы которых создают симетрические последовательности 1, 2, 3, 3, 2, 1 или 1, 2, 3, 5,3, 2, 1. Просьба реализировать программку через параметр Delphi7 - "StrinGrid". Помогите плизз 0

	22.10.2009, 01:34

целочисельная матрица

Решение