/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 845
от 21.06.2007, 14:35

Вопрос № 91.537

Здравствуйте!Помагите составить программу(Delphi) сравнения по абсолютной величине элемента, расположенного в верхнем правом углу двухмерного массива, с любым другим элементом массива (определить, какая из абсолютных величин больше)

Отправлен: 15.06.2007, 18:31 Вопрос задал: Gold1k (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Louken Здравствуйте, Gold1k! Опять программу можно скачать тут http://diploboy.ifolder.ru/2363804. Все несложно, так что разобраться, думаю труда большого, не составит. Удачи.

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 15.06.2007, 19:16 Оценка за ответ: 5 Комментарий оценки: Respect tebe

Отвечает: Градов Юрий Михайлович Здравствуйте, Gold1k! Это будет примерно так, как дано в приложении: Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Spin; type TForm1 = class(TForm) StringGrid1: TStringGrid; SpinEdit1: TSpinEdit; SpinEdit2: TSpinEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure FormCreate(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure SpinEdit2Change(Sender: TObject); procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); private procedure MakeMass; procedure ToCompare(n: integer); { Private declarations } public { Public declarations } end; type arr= array[0..1] of integer; var Form1: TForm1; Mass: array[0..9] of arr; max: integer=10; min: integer=10; implementation {$R *.dfm} procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var OldColor: TColor; TStrColor: TColor; begin with StringGrid1.Canvas do begin if (ACol=1) and (ARow=0) then begin OldColor := Font.Color; Font.Color := clRed; TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[aCol, aRow]); Font.Color := OldColor; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin MakeMass; end; procedure TForm1.MakeMass; var i,j: integer; begin Randomize; for i:=0 to 1 do for j:=0 to 9 do begin Mass[i,j]:=Random(Max)-Min; StringGrid1.Cells[i,j]:=IntToStr(Mass[i,j]); end; ToCompare(Mass[0,0]); end; procedure TForm1.SpinEdit1Change(Sender: TObject); begin Min:=SpinEdit1.Value; MakeMass; end; procedure TForm1.SpinEdit2Change(Sender: TObject); begin Max:=SpinEdit2.Value; MakeMass; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin ToCompare(Abs(StrToInt(StringGrid1.Cells[aCol,aRow]))); end; procedure TForm1.ToCompare(n: integer); begin if n=Abs(Mass[1,0]) then Label3.Caption:='Равны' else if n>Abs(Mass[1,0]) then Label3.Caption:='Больше' else if n<Abs(Mass[1,0]) then Label3.Caption:='Меньше'; end; end. Листинг Unit1.dfm object Form1: TForm1 Left = 192 Top = 107 Width = 326 Height = 298 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.style="[]" OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 216 Top = 16 Width = 91 Height = 13 Caption = #1053#1080#1078#1085#1080#1081' '#1076#1080#1072#1087#1072#1079#1086#1085 end object Label2: TLabel Left = 216 Top = 48 Width = 93 Height = 13 Caption = #1042#1077#1088#1093#1085#1080#1081' '#1076#1080#1072#1087#1072#1079#1086#1085 end object Label3: TLabel Left = 176 Top = 128 Width = 56 Height = 24 Caption = '?????' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.style="[fsBold]" ParentFont = False end object StringGrid1: TStringGrid Left = 8 Top = 8 Width = 137 Height = 257 ColCount = 2 FixedCols = 0 RowCount = 10 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] TabOrder = 0 OnDrawCell = StringGrid1DrawCell OnSelectCell = StringGrid1SelectCell end object SpinEdit1: TSpinEdit Left = 160 Top = 8 Width = 49 Height = 22 Increment = 5 MaxValue = 100 MinValue = 10 TabOrder = 1 Value = 10 OnChange = SpinEdit1Change end object SpinEdit2: TSpinEdit Left = 160 Top = 40 Width = 49 Height = 22 Increment = 5 MaxValue = 100 MinValue = 10 TabOrder = 2 Value = 10 OnChange = SpinEdit2Change end end --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 15.06.2007, 19:30 Оценка за ответ: 5 Комментарий оценки: Respect tebe

Вопрос № 91.558

Здравствуйте уважаемые эксперты. У меня вот такой вопрос: Мне необходимо записывать какие-то данные в файл (использую fileread и filewrite). Структура данных повторяется (но не полностью). Например: ..какие-то данные.. ..разделитель... ..какие-то данные.. ..разделитель... ..какие-то данные.. Так вот как мне реализовать перемещение между блоками данных (по разделителям). Например я записал очередной блок данных и хочу прочитать предыдущий. Заранее спасибо.

Отправлен: 15.06.2007, 22:24 Вопрос задал: Богданов Михаил (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Ерёмин А.А. Здравствуйте, Богданов Михаил! Лучше воспользоваться типизированным файлом. Сначала создаёте запись, в которую включаете все необходимые данные, например: type TData = record Name: String; Age: Byte; end; А затем работа с самим файлом: var f: file of TData; В результате работа будет происходить с файлом, элементами которого являются записи. Удобство состоит в том, что между записями легко перемещаться. Пример отправки данных в файл: AssignFile(f,'C:1.dat'); Rewrite(f); Write(f,data1); CloseFile(f); Здесь data1 - запись типа TData. Чтение аналогично - с помощью Read(f,data1); Ну и наконец самое вкусное - переход. Для перехода по элементам файла служит команда Seek. Пример: Seek(f,5); - переход к 5-ой записи. Дополнительно: FilePos() - текущая позиция в файле; FileSize() - число элементов в файле. Всё достаточно просто и изобретать велосипед не нужно. Удачи! --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин А.А. (статус: Академик) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 16.06.2007, 07:20

Вопрос № 91.616

Здравствуйте!Помогите написать прогу на (Delphi).Дан двумерный массив. Вывести на экран все элементы пятой строки массива.

Отправлен: 16.06.2007, 12:51 Вопрос задал: Gold1k (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Gh0stik Здравствуйте, Gold1k! Вывод строки массива будем осуществлять в объект Memo: procedure TForm1.Button1Click(Sender: TObject); const n=10; m=10; var a:array [1..n,1..m] of integer; i:integer; begin .... {ввод данных} .... for i:=1 to m do Memo1.Lines.Add(format('%d',[a[5,i]])); end; Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 16.06.2007, 13:50 Оценка за ответ: 5 Комментарий оценки: Благодарю!!!

Отвечает: Ерёмин А.А. Здравствуйте, Gold1k! См. пример. Ввод и вывод с помощью TStringGrid. Удачи! Приложение: procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; begin for i:=0 to StringGrid1.ColCount-1 do for j:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[i,j]:=IntToStr(Random(20)) end; procedure TForm1.FormCreate(Sender: TObject); begin Randomize end; procedure TForm1.Button2Click(Sender: TObject); var i,j,rn,min,t: integer; a: array of array of integer; begin rn:=StrToInt(Edit1.Text); {Row number} SetLength(a,StringGrid1.ColCount,StringGrid1.RowCount); for i:=0 to StringGrid1.ColCount-1 do for j:=0 to StringGrid1.RowCount-1 do a[i,j]:=StrToInt(StringGrid1.Cells[i,j]); for i:=0 to StringGrid1.ColCount-1 do StringGrid2.Cells[i,0]:=IntToStr(a[i,rn-1]); end; Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин А.А. (статус: Академик) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 16.06.2007, 14:01 Оценка за ответ: 5 Комментарий оценки: respect tebe!!!!

Отвечает: Louken Здравствуйте, Gold1k! ========================== Ответ перенесен в мини-форум ========================== -~= Gh0stik =~-

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 16.06.2007, 17:12

Вопрос № 91.617

Здравствуйте!Помогите написать прогу на (Delphi).Дан двумерный массив. Заменить значения всех элементов второй строки массива на число 5.

Отправлен: 16.06.2007, 12:52 Вопрос задал: Gold1k (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин А.А. Здравствуйте, Gold1k! Решение с использованием динамического массива - в приложении и в прикреплённом файле. P.S. В вопросе №91619 пример был без массива - всё выполнялось "на лету", здесь всё как нужно. Приложение: procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; begin for i:=0 to StringGrid1.ColCount-1 do for j:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[i,j]:=IntToStr(Random(20)) end; procedure TForm1.FormCreate(Sender: TObject); begin Randomize end; procedure TForm1.Button2Click(Sender: TObject); var i,j,rn,min,t: integer; a: array of array of integer; begin rn:=2; {Row number} SetLength(a,StringGrid1.ColCount,StringGrid1.RowCount); for i:=0 to StringGrid1.ColCount-1 do for j:=0 to StringGrid1.RowCount-1 do a[i,j]:=StrToInt(StringGrid1.Cells[i,j]); for i:=0 to StringGrid1.ColCount-1 do a[i,rn-1]:=5; for i:=0 to StringGrid1.ColCount-1 do for j:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[i,j]:=IntToStr(a[i,j]); ShowMessage('Заменено.') end; Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин А.А. (статус: Академик) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 16.06.2007, 13:54 Оценка за ответ: 5 Комментарий оценки: Все Огромное спасибо!!!!

Отвечает: Louken Здравствуйте, Gold1k! Скачайте программу здесь: http://diploboy.ifolder.ru/2373699

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 16.06.2007, 17:25

Вопрос № 91.618

Здравствуйте!Помогите написать прогу на (Delphi).Дан двумерный массив. Составить программу расчета суммы двух любых элементов третьего столбца массива.

Отправлен: 16.06.2007, 12:53 Вопрос задал: Gold1k (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Градов Юрий Михайлович Здравствуйте, Gold1k! Попробуйте вот это решение, выбираете элементы кликаньем мышки Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Buttons; type TForm1 = class(TForm) StringGrid1: TStringGrid; BitBtn1: TBitBtn; Label1: TLabel; Label2: TLabel; procedure FormShow(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); private procedure FillArray; { Private declarations } public { Public declarations } end; var Form1: TForm1; mass: array[0..9,0..9] of integer; sum: boolean; st1,st2,st3,st4: string; a,b: integer; implementation {$R *.dfm} procedure TForm1.FillArray; var i,j: integer; begin Randomize; for i:=0 to 9 do for j:=0 to 9 do begin mass[i,j]:=Random(20)-10; StringGrid1.Cells[i,j]:=IntToStr(mass[i,j]); end; end; procedure TForm1.FormShow(Sender: TObject); begin Sum:=False; FillArray; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin FillArray; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if (sum=False) and (aCol=2) then begin a:=Mass[ACol,ARow]; st1:=IntToStr(a); Sum:=True; Label1.Caption:=st1; st2:=''; st3:=IntToStr(ARow+1); st4:=''; end else if (Sum=True) and (aCol=2) then begin b:=Mass[ACol,ARow]; st2:=IntToStr(b)+'='+IntToStr(a+b); Sum:=False; a:=0; b:=0; st4:=IntToStr(ARow+1); end; Label1.Caption:=st1+'+'+st2; Label2.Caption:='Клонка 3 - сумма '+st3+' и '+st4+' элемента'; end; end. Листинг Unit1.dfm object Form1: TForm1 Left = 192 Top = 107 Width = 380 Height = 350 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.style="[]" OldCreateOrder = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 304 Width = 32 Height = 13 Caption = 'Label1' end object Label2: TLabel Left = 16 Top = 280 Width = 32 Height = 13 Caption = 'Label2' end object StringGrid1: TStringGrid Left = 16 Top = 8 Width = 337 Height = 257 ColCount = 10 DefaultColWidth = 32 FixedCols = 0 RowCount = 10 FixedRows = 0 TabOrder = 0 OnSelectCell = StringGrid1SelectCell end object BitBtn1: TBitBtn Left = 280 Top = 280 Width = 75 Height = 25 Caption = #1054#1073#1085#1086#1074#1080#1090#1100 TabOrder = 1 OnClick = BitBtn1Click end end --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 16.06.2007, 14:32 Оценка за ответ: 5 Комментарий оценки: И здесь тоже все круто!!!!

Отвечает: Gh0stik Здравствуйте, Gold1k! Предлагаю Вам такой способ: procedure TForm1.BitBtn1Click(Sender: TObject); var i,j,t,s,kol:integer; d:set of byte; st:string; begin randomize; for i:=0 to StringGrid1.RowCount-1 do for j:=0 to StringGrid1.ColCount-1 do StringGrid1.Cells[i,j]:=IntToStr(random(43)-13); {вносим в матрицу произвольные элементы} d:=[]; kol:=0; s:=0; while kol <> 2 do begin t:=random(StringGrid1.RowCount); if not(t in d) then {выбираем ЛЮБЫЕ два элемента из 3-го столбца, но так чтобы они не совпадали} begin s:=s+StrToInt(StringGrid1.Cells[2,t]); inc(kol); d:=d+[t]; if kol<>2 then st:=st+format('[%d;3]',[t+1]) else st:=st+format('+[%d;3]=%d',[t+1,s]); end; end; Edit1.Text:=st; {выводим результат} end; Полный код программы Вы можете найти в прикрепленном файле. Good Luck!!! Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 16.06.2007, 16:13 Оценка за ответ: 5

Отвечает: Louken Здравствуйте, Gold1k! Скачайте ответ здесь: http://diploboy.ifolder.ru/2373409

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 16.06.2007, 17:01 Оценка за ответ: 5

Вопрос № 91.619

Здравствуйте!Помогите написать прогу на (Delphi).Дан двумерный массив. Определить минимальный элемент третьей строки массива

Отправлен: 16.06.2007, 12:56 Вопрос задал: Gold1k (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Ерёмин А.А. Здравствуйте, Gold1k! Для ввода (и вывода) двумерных массивов удобно использовать компонент TStringGrid (вкладка Additional). Для поиска минимального элемента следует перебрать все числа и выбрать среди них наименьшее. Код процедур в приложении, а весь проект в прикреплённом файле. Удачи! Приложение: procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; begin for i:=0 to StringGrid1.ColCount-1 do for j:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[i,j]:=IntToStr(Random(20)) end; procedure TForm1.FormCreate(Sender: TObject); begin Randomize end; procedure TForm1.Button2Click(Sender: TObject); var i,j,rn,min,t: integer; begin rn:=3; {Row number} min:=StrToInt(StringGrid1.Cells[0,rn-1]); for i:=1 to StringGrid1.ColCount-1 do begin t:=StrToInt(StringGrid1.Cells[i,rn-1]); if t < min then min:=t end; MessageDlg('Минимальный элемент строки #'+IntToStr(rn)+' равен '+IntToStr(min),mtInformation,[mbOk],0); end; Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин А.А. (статус: Академик) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 16.06.2007, 13:43 Оценка за ответ: 5 Комментарий оценки: Respect tebe!!!!

Отвечает: Градов Юрий Михайлович Здравствуйте, Gold1k! Ответ удален, так как были нарушены правила нахождения минимального элемента (изначально предполагают что минимальным, является первый элемент массива, но никак ни 100), а так же ответ который выдает программа не соответствует условию!!! Ответ помещен для обсуждения в ветку форума "О деятельности экспертов и работе портала/Удаленные ответы для обсуждения". -~= Gh0stik =~- --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 16.06.2007, 13:58 Оценка за ответ: 5 Комментарий оценки: Благодарю все прет!!!

Отвечает: Louken Здравствуйте, Gold1k! Если Вам понравились мои предыдущие ответы, то предлагаю Вам решение задачи все в том же стиле и оформлении. Скачать программу можно: http://diploboy.ifolder.ru/2373079 ! Пожалуйста, размещайте решения здесь, а не на файлохранилищах, где файлы живут недолго (кроме случаев очень больших файлов, здесь случай явно не тот). [ Alexandre V. Tchamaev ]

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 16.06.2007, 16:35 Оценка за ответ: 5

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru