Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Прокрутка и ComboBox Как заблокировать возможность прокрутки строк колесом мыши в ComboBox при установленном в него фокусе? Надо просто чтоб пользователь не дай бог после выбора конкретного значения из списка скроллом... https://www.cyberforum.ru/ delphi-beginners/ thread243990.html Delphi Найти в матрице единичную подматрицу максимального размера
Вводится матрица a(m,n) из 0 и 1. Найти в ней квадратную подматрицу из одних единиц максимального размера. ну совсем не знаю что делать
Delphi Выдвижение формы Как сделать стобы при нажатии кнопки на форме 1 выдвигалась форма 2 как на рисунке тут https://www.cyberforum.ru/attachment.php?attachmentid=63309&stc=1&d=1297877314 https://www.cyberforum.ru/ delphi-beginners/ thread243950.html Delphi Нужно найти минимум функции методом случайного поиска. Нужно найти минимум функции методом случайного поиска. https://www.cyberforum.ru/ delphi-beginners/ thread243940.html
Браузер Delphi
как можно написать самый простой браузер на дельфи
Delphi doc формат Как можно открыть файл формата doc в richedit. Я читала про это но не смогла сделать. Дайте исходник если можете пожалуйста https://www.cyberforum.ru/ delphi-beginners/ thread243916.html
Delphi Написать класс матрицы NxM https://www.cyberforum.ru/ delphi-beginners/ thread243913.html
Здравствуйте, уважаемые программисты всея форума! Доброго вам времени суток =) Появился у меня вопросик... Моя задача звучит так: " Класс - числовая матрица размером NxM. Получить из нее...
Процедура для определения вхождения символа в строку Delphi
Составить процедуру, позволяющую определить позицию самого правого вхождения заданного символа в исходную строку. Если строка не содержит символа, результатом работы процедуры должна быть -1....
Delphi Сохранение БЗ, Типизированный файл. https://www.cyberforum.ru/ delphi-beginners/ thread243847.html
Работаю 2 раз за БД. Типизированный файл из записей, как в запись добавляют пытаюсь сохранить, но сохраняет закорючки. Поправьте что не так. program Project2; {$APPTYPE CONSOLE} uses SysUtils;...
Delphi Форма и классы Народ , есть такая задача . Посчитать кол-во кружков в каждой четверти формы . Вот мой код : type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure... https://www.cyberforum.ru/ delphi-beginners/ thread243844.html
Delphi Последовательность чисел a1,a2
Последовательность чисел а1, а2,…,а100 задана формулой ak=sin2(3k+5)-cos(k2-15), k=1,2,…,100. Определите сколько членов последовательности с номерами 1, 2, 4, 8, 16, … имеют значение, меньшее 0,25....
Delphi Tree + XML = ... или нет ? Здрасте! Имеется TreeView и Xml. В Xml`e есть атрибут с сылкой на иконку в каждом узле. Вопос: "Как из xml загрузить в treeview дерево с иконками ?" - У кого какие идеи, друзья? Добавлено через... https://www.cyberforum.ru/ delphi-beginners/ thread243798.html
-10 / 0 / 0
Регистрация: 01.04.2010
Сообщений: 73
19.02.2011, 00:21  [ТС] 0

Посодействуйте в доработке - Delphi - Ответ 1381073

19.02.2011, 00:21. Показов 748. Ответов 11
Метки (Все метки)

Ответ

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
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..5,0..5] of integer;
 i,j:integer;
begin
 Randomize;
   For i:=0 to 5 do
    For j:=0 to 5 do
    Begin
    a[i,j]:=random(100)-50;
    stringgrid1.Cells[i,j]:=Inttostr(a[i,j]);
    end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
a:array[0..5,0..5] of integer;
 i,j,s:integer;
  n:string;
begin
  n := Edit1.Text;
  For i := 0 to 5 do
    For j := 0 to 5 do
      if N = StringGrid1.Cells[i,j] then label3.Caption:='Ýëåìåíò íàéäåí!'
else label3.Caption:='Ýëåìåíòà íåò!' ;;
 
end;
end.
вот весь код, опять также, не пашет, голова уже крУгом идёт...

Вернуться к обсуждению:
Посодействуйте в доработке Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2011, 00:21
Готовые ответы и решения:

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

Помощь в доработке сортировки
Помогите отсортировать список в StringGride

Помощь в доработке сортировки
Сортировка по 1-ому столбцу массива ss := StringGrid1.Cells; // Раздел 1.1 ss1 :=...

Сумма прописью (посодействуйте, как добавить копейки)
Люди Добрые! - помогите кто чем может... Есть код, как в него "запилить" вывод копеек прописью?...

11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2011, 00:21

Посодействуйте в доработке задачи ОПЕРАТОРЫ ЦИКЛОВ
ЗАДАНИЕ №2. ОПЕРАТОРЫ ЦИКЛОВ Задание: Вычислить сумму s значений функции в точках Xj, которые...

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

Посодействуйте в доработке программы с функциями-шаблонами
Для работы с двумерными массивами арифметических типов данных разработать шаблоны ввода и вывода...

Посодействуйте в уничтожении вирусов
Здравствуйте! Помогите избавиться от вирусов. выскакивают окошки в ВКонтакте, открываются...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.