Визуальное программирование. Написать процедуру для ввода из файла прямоугольной символьной матрицы

@Кирилл Соул · Регистрация: 17.02.2016

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

Написать процедуру для ввода из файла прямоугольной символьной матрицы размерности N*M(N<20,M<40).Написать функция вычисляющую сумму цифр, встречающихся в матрице. Вывести исходную матрицу в одно окно на экране а вычисленную сумму - в другое.Нужна ещё блок схема, чтоб всё понять, заранее спасибки <3

@CheshireesCat · 04.03.2016, 14:55

как раз кому-то писал на днях процедуру подсчёта количества цифр в марице, сейчас найду

Добавлено через 4 минуты
а вот сама тема с вопросом

Сообщение от CheshireesCat

есть мысля, чрез рекорд и динамический массив сделать.

ща попробую пример накидать.

вот пример:

Delphi

type
 maxcount = record
 num:integer;
 count:integer
 end;
const
 n=49;
var
 Form1: TForm1;
 i,j:integer;
 mas:array [0..n] of integer;
 mas2:array of maxcount;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
 flag:boolean;
begin
 for i:=1 to n do
 begin
 mas[i]:=RandomRange(-10,10);
 mmo1.Text:=mmo1.Text+Inttostr(mas[i])+#9;
 end;
setlength(mas2,1);
 mas2[0].num:=mas[0];
 mas2[0].count:=mas2[0].count+1;
flag:=false;
 for i:=0 to n do
 begin
 for j:=0 to length(mas2) do
 begin
 if mas2[j].num=mas[i] then
 begin
 mas2[j].count:=mas2[j].count+1;
 flag:=true;
 break
 end;
 end;
 if flag=false then
 begin
 setlength(mas2,length(mas2)+1);
 mas2[length(mas2)-1].num:=mas[i];
 mas2[length(mas2)-1].count:=1;
 end;
flag:=false;
 end;
mmo1.Lines.Add(#13#13#13);
 for i:=0 to length(mas2)-1 do
 mmo1.Lines.Add(InttoStr(mas2[i].num)+' встречается '+IntToStr(mas2[i].count)+'раз');
end;

Uses Math

на форме кнопка btn1
и мемо mmo1

вывод:
2 3 -10 9 7 2 1 8 -4 -1 8 -3 -9 8 8 -3 -5 6 -5 6 -9 5 7 5 2 -8 8 -8 -4 4 8 9 -7 8 -3 9 0 2 -10 -6 6 -8 9 -6 1 3 -8 -10 -4 -4
2 встречается 4раз
3 встречается 2раз
-10 встречается 3раз
9 встречается 4раз
7 встречается 2раз
1 встречается 2раз
8 встречается 7раз
-4 встречается 4раз
-1 встречается 1раз
-3 встречается 3раз
-9 встречается 2раз
-5 встречается 2раз
6 встречается 3раз
5 встречается 2раз
-8 встречается 4раз
4 встречается 1раз
-7 встречается 1раз
0 встречается 1раз
-6 встречается 2раз

ввод в массив делай как тебе угодно у меня ввод в 25-29ой строках
если ты будешь читать строки из мемо тогда убери 7-8 строки, и вначале процедуры напиши n:=memo1.lines.count-1

вообще советую вынести всё с 31ой строки в отдельную процедуру

только тогда перед мемо надо дописывать форм1.мемо

@Кирилл Соул · 04.03.2016, 22:33 **[ТС]**

CheshireesCat, Хорошо, попробую, спасиб

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@Кирилл Соул 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 21
		1
	Визуальное программирование. Написать процедуру для ввода из файла прямоугольной символьной матрицы 04.03.2016, 10:53. Показов 1074. Ответов 2 Метки нет (Все метки) Написать процедуру для ввода из файла прямоугольной символьной матрицы размерности N*M(N<20,M<40).Написать функция вычисляющую сумму цифр, встречающихся в матрице. Вывести исходную матрицу в одно окно на экране а вычисленную сумму - в другое.Нужна ещё блок схема, чтоб всё понять, заранее спасибки <3 0

@Кирилл Соул 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 21
	04.03.2016, 22:33 [ТС]	3
	CheshireesCat, Хорошо, попробую, спасиб 0

Визуальное программирование. Написать процедуру для ввода из файла прямоугольной символьной матрицы

Решение