Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Удалить строки без символа Listbox https://www.cyberforum.ru/ delphi-beginners/ thread2349375.html
Имеется LIstBox1, как по нажатию на Button удалить строки без символа : ? Listbox такого вида: text1:text2 text1:text2 test1test2 text1:text2 text1text2 text1:text2 text1text text1:text2
Считывание с файла Delphi
При нажатии на компонент в listbox, должно считывать с текстового файла содержимое и заполнять edit-ты. Форма ниже:
Delphi Listbox, файлы и edit https://www.cyberforum.ru/ delphi-beginners/ thread2349297.html
Краткое описание программы: У меня есть форма адм: пасс в неё qwe11111. У меня есть кнопки: Добавить-Сохранить(1-Создает компонент в listbox и txt файл с таким названием. 2-Есть edit и combobox в них я вписываю текст, если я нажимаю на кнопку Сохранить сохраняется весь текст в созданный файл). При открытии формы нужно сделать так, чтобы эти все файлы подгружались в listbox и то что было в...
Delphi Вычислить значение выражения https://www.cyberforum.ru/ delphi-beginners/ thread2349293.html
Задание: Принять х=0.5, точность вычисления е=0.0001. Предусмотреть ввод значения с клавиатуры и вывод результата на экран. Пример выглядит так, не могу понять как сделать
Delphi Рандомайзер слов
Доброго времени суток.Мне нужно сделать рандомайзер слов.То есть у меня в коде прописаны слова и их рандомно надо вывести допустим в Edit или label .Как правильно это реализовать?
Delphi Табуляция в файле У меня есть 4 edit и 2 combobox. В них я ввожу\выбираю текст, после чего у меня есть кнопка сохранить. Эта кнопка создает файл и сохраняет в него содержимое из edit и combobox. Как сохранить текст с табуляцией, тоесть каждый edit с новой строки и combobox тоже. https://www.cyberforum.ru/ delphi-beginners/ thread2349066.html
Delphi Модификация с чтением построчно Всем форумчанам, знатокам и профи - доброго времени суток!:senor: Суть кода: Есть текстовый файл, в котором 150000 строк. Указываю число 15000 (на сколько строк разбить) и программа разбивает его на файлы, в каждом из которых 15000 строк. Получаю результат в виде 10 файлов по 15000 строк в каждом. Если остается остаток меньше 15000 строк то его записываем в последний файл. Предоставленный... https://www.cyberforum.ru/ delphi-beginners/ thread2348964.html Непонятное поведение процедуры Delphi
Добрый день уважаемый форумчане. Имеется процедура, она работает с string_grid, парой глобальных переменных. В этой процедуре перерисовывается string_grid. Так вот когда я вызываю процедуру из кода, грид рисуется неправильно, но стоит запустить процедуру физически кликнув по кнопке то все рисуется нормально. Добавил таймер, поставил интервал в 100ms, в обработчик добавил процедуру, и...
Delphi Свойство-массив Ребят, я прочитал кучу теории, но в голове все равно не укладывается, зачем нужно свойство-массив. Объясните пожалуйста, на примере! Я вроде понимаю, как работать с обычным свойством, а вот со свойством-массивом вообще беда. https://www.cyberforum.ru/ delphi-beginners/ thread2348766.html Delphi Рекуррентная формула Составить рекуррентную формулу: (4k+4)(4k+7) k=0,1,2,... https://www.cyberforum.ru/ delphi-beginners/ thread2348452.html
Скачивание с Яндекс Диска Delphi
как скачать файл с Яндекс диска
Delphi Выделить в массив B те элементы массива A, которые находятся между минимальным и максимальным его элементами https://www.cyberforum.ru/ delphi-beginners/ thread2348389.html
Подскажите, где ошибка в коде? "Текстовый файл Inlet.in содержит линейный массив, содержащий N целых чисел. Выделить в массив B те элементы массива A, записав их в файл Outlet.out, которые находятся между минимальным и максимальным его элементами. Если множество элементов между экстремумами окажется пустым, то в массив записать число -1. Спецификация ввода (файл Inlet.in) : N Элементы...
0 / 0 / 0
Регистрация: 08.10.2018
Сообщений: 93
0

В каждой строке матрицы найти элементы, для которых сумма предшествующих элементов больше суммы последующих элементов - Delphi - Ответ 13050208

11.11.2018, 21:06. Показов 1542. Ответов 4
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Проверьте пожалуйста код программы относительно условия задачи
В каждой строке матрицы D(n, n), (n<=6), найти элементы, для которых сумма предшествующих элементов больше суммы последующих элементов. Для первого элемента сумму предшествующих элементов считать равной нулю. Для последнего элемента сумму последующих элементов считать равной нулю. Вывести исходную матрицу, располагая рядом с каждой строкой найденные элементы.
Delphi
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
41
42
program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var d:array[1..6,1..6] of integer;
    m,n,i,j,s1,s2:integer;
begin
 randomize;
 repeat
 write('m [2..6] m=');
 readln(m);
 until m in [2..6];
 repeat
 write('n [2..6] n=');
 readln(n);
 until n in [2..6];
 for i:=1 to m do
  begin
   s1:=0;
   s2:=0;
   for j:=1 to n do
    begin
     d[i,j]:=-5+random(11);
     write(d[i,j]:3);
     if j>1 then s2:=s2+d[i,j];
    end;
   write(' |');
   if s2<0 then write(d[i,1]:3);
   for j:=2 to n-1 do
    begin
     s1:=s1+d[i,j-1];
     s2:=s2-d[i,j];
     if s1>s2 then write(d[i,j]:3);
    end;
   if s1>0 then write(d[i,n]:3);
   writeln;
  end;
readln;
end.


Вернуться к обсуждению:
В каждой строке матрицы найти элементы, для которых сумма предшествующих элементов больше суммы последующих элементов Delphi
0
Лучшие ответы (1)
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2018, 21:06
Готовые ответы и решения:

Массив: в каждой строке матрицы найти элементы, где сумма предшествующих элементов больше суммы последующих
Уважаемые, очень сильно надеюсь на вашу помощь! В общем, поставлена задача. Составить программу,...

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

Для матрицы в каждой строке вычислить суммы элементов, предшествующих последнему отрицательному элементу строки
Нужна ваша помощь ! Вот задача: Дана вещественная прямоугольная матрица. Получить массив В ,...

В каждой строке матрицы найти произведение элементов предшествующих минимальному элементу строки
помогите пожалуйста решить, немого я написал, а вот дальше проблемка..))) Ввести матрицу A(N,M) ....

4
11.11.2018, 21:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2018, 21:06
Помогаю со студенческими работами здесь

Если число нечетных элементов в каждой строке матрицы не больше 2, то найти сумму четных элементов матрицы больших 5
матрица размерности m x n, вводиться пользователем из текстового файла. если число нечетных...

Подсчет в каждой строке количества и суммы элементов, состоящих из двух цифр, сумма которых не делится на 2
С помощью генератора случайных чисел сформировать квадратную целочисленную матрицу размерности m x...

Удалить из матрицы те строки, для которых количество ненулевых элементов больше количества нулевых элементов в строке
помогите пожалуйста написать вот такую задачу: Дана целочисленная квадратная матрица порядка 5....

Создать новую матрицу из тех столбцов исходной, сумма которых больше суммы всех элементов матрицы
Ввести матрицу из n*m чисел (массив и числа m, n ввести с экрана). Создать новую матрицу из тех...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru