Форум программистов, компьютерный форум, киберфорум
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 Элементы...
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.11.2018, 08:51 0

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

12.11.2018, 08:51. Показов 1541. Ответов 4
Метки (Все метки)

Лучший ответ Сообщение было отмечено ArseniyPC как решение

Решение

Что-то не понравилось мне, написано запутанно и результаты не верные, я бы написал так.
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
43
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var d:array[1..6,0..7] of integer;
    m,n,i,j,k,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
   d[i,0]:=0; //в начало и в конец строк впишем ноли
   d[i,n+1]:=0;
   for j:=1 to n do
   d[i,j]:=-5+random(11);
  end;
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(d[i,j]:3);
   write(' |');
   for j:=1 to n do
    begin
     s1:=0;
     s2:=0;
     for k:=0 to j-1 do s1:=s1+d[i,k];
     for k:=j+1 to n+1 do s2:=s2+d[i,k];
     if s1>s2 then write(d[i,j]:3);
    end;
   writeln;
  end;
readln;
end.


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

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

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

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

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

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

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

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

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

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

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