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

Выпуск № 844
от 20.06.2007, 14:05

Вопрос № 91.430

Здравствуйте! Помогите написать программу.(Одномерный массив). В области 5 районов. Заданы площади, засеваемые в каждом районе пшеницей, и урожай, собранный в каждом районе. Определить среднюю урожайность пшеницы по каждому району и по области в целом. Для удобства решения задачи ввести – обозначения s(i)- Массив площадей по районам (120,100,150,180,250) u(i)- массив урожая по районам (2400,2000,1500,3600,5000) ur – средняя урожайность по каждому району so – общая площадь земель по области uo - общий урожай по области suo – средняя урожайность по области.

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

Отвечает: Louken Здравствуйте, Gold1k! Программу смотрите в приложении. Думаю все будет понятно. Удачи. Приложение: program Project1; var {Массив площадей по районам} s: array[1..5] of word = (120,100,150,180,250); {массив урожая по районам } u: array[1..5] of word = (2400,2000,1500,3600,5000); so: integer; {общая площадь земель по области} suo: real; {средняя урожайность по области} uo: integer; {общий урожай по области} i: integer; begin for i:=1 to 5 do begin Writeln('В районе № ',i,' средняя урожайность составила = ',u[i]/s[i]:0:0); uo:=uo+u[i]; so:=so+s[i]; end; suo:=uo/so; Writeln('средняя урожайность по области = ',suo:0:3); Writeln('общий урожай по области = ',uo); Writeln('общая площадь земель по области = ',so); Readln; end.

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 14.06.2007, 22:23 Оценка за ответ: 4 Комментарий оценки: Благодарю.ОГромное спасибо.только теперь мне ее надо написать на Delphi

Вопрос № 91.434

Здравствуйте уважаемые эксперты. Столкнулся с такой проблемой: в программе имеется 2 юнита. Как описать второй юнит в первом так, чтобы можно было использовать все переменные и функции второго в первом. По нажатию кнопки на первой форме должна появляться вторая. Как это грамотно сделать? P.S. хочу сделать форму для настроек.

Отправлен: 14.06.2007, 22:44 Вопрос задал: Левадный Тимур Русланович (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Louken Здравствуйте, Левадны Тимур Русланович! Просто в первом юните описываете в разделе uses Ваш второй юнит. А во втором юните, все Ваши глобальные переменные описываете в разделе interface, туда же помещаете и заголовки Ваших функций. Теперь в первом юните видны и переменные и функции второго юнита. Приложение: Первый юнит: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; //Вот здесь я описал второй юнит, но можно было и в верхнем uses'e {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //Вот так можно показать вторую форму: Form2.ShowModal; //Вторую форму можно показать и подругому: // Form2.Show; //Отличие двух методов в том, что первый не позволяет спокойно переключаться между двумя формами, а второй метод, это делать позволяет. //Обязательно это проверьте на практике и посмотрите в чем разница end; procedure TForm1.Button2Click(Sender: TObject); begin //Вот мы показываем значение переменных из второго юнита ShowMessage( 'Perem1 = '+inttostr(Perem1)+', '+ 'Perem2 = '+inttostr(Perem2) ); end; procedure TForm1.Button3Click(Sender: TObject); begin //А вот мы вызываем процедуру из второго юнита ShowCaption; end; end. =========================================== Второй юнит: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; Perem1, Perem2: integer; //Вот наши глобальные переменные //А вот и наша процедура, которая видна в первом юните //Здесь описывается только ее заголовок, а вся ее остальная чать располагается ниже в разделе implementation procedure ShowCaption; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin Perem1:=10; Perem2:=200; end; procedure ShowCaption; begin //Эта процедура просто показывает заголовок второй формы ShowMessage(Form2.Caption); end; end.

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 14.06.2007, 23:20 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за доступный и понятный ответ.

Отвечает: Esi Здравствуйте, Левадный Тимур Русланович! Чтобы использовать переменные, как в одной так и в другой программе, нужно объявить глобальные переменные в строке Var в начале программы 1 формы. Обращаться к процедурам-функциям из первой формы, во второй форме нужно указать только имя певой формы+точка+процедура. Отвечая на вопрос, как лучше сделать форму для настроек, я посоветовал бы использовать в качестве переменных - ini-файлы, а общие функции заменить на динамическую библиотеку.

Ответ отправил: Esi (статус: 2-ой класс) Ответ отправлен: 16.06.2007, 23:13 Оценка за ответ: 5 Комментарий оценки: Спасибо за совет. Сегодня освоил ini файлы. Удобно.

Вопрос № 91.499

И ище раз здравствуйте! Помогите написать программу.(Одномерный массив в Delphi). В области 5 районов. Заданы площади, засеваемые в каждом районе пшеницей, и урожай, собранный в каждом районе. Определить среднюю урожайность пшеницы по каждому району и по области в целом. Для удобства решения задачи ввести – обозначения s(i)- Массив площадей по районам (120,100,150,180,250) u(i)- массив урожая по районам (2400,2000,1500,3600,5000) ur – средняя урожайность по каждому району so – общая площадь земель по области uo - общий урожай по области suo – средняя урожайность по области.

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

Отвечает: Градов Юрий Михайлович Здравствуйте, Gold1k! Я не знаю, как выложить исходники на этот сайт, пишите указав Ваш адрес, вышлю! Приложение: Листинг Unit1.pas unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, ValEdit; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; StringGrid1: TStringGrid; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private procedure CalcData; { Private declarations } public { Public declarations } end; var Form1: TForm1; s,u: array[0..4] of integer; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin CalcData; end; procedure TForm1.BitBtn2Click(Sender: TObject); var i,j: integer; F: TextFile; begin AssignFile(F,'test.dat'); Rewrite(F); for i:=0 to StringGrid1.ColCount do for j:=0 to StringGrid1.RowCount do Writeln(F, StringGrid1.Cells[i,j]); CloseFile(F); end; procedure TForm1.CalcData; var i,j: integer; F: TextFile; ss: string; so,uo,suo: Real; begin AssignFile(F,'test.dat'); Reset(F); for i:=0 to StringGrid1.ColCount do for j:=0 to StringGrid1.RowCount do begin Readln(F, ss); StringGrid1.Cells[i,j]:=ss; end; so:=0; for i:=1 to 5 do begin s[i-1]:=StrToInt(StringGrid1.Cells[1,i]); so:=so+s[i-1]; end; uo:=0; for i:=1 to 5 do begin u[i-1]:=StrToInt(StringGrid1.Cells[2,i]); uo:=uo+u[i-1]; StringGrid1.Cells[3,i]:=FloatToStr(uo/so); end; for i:=1 to 5 do begin StringGrid1.Cells[3,i]:=FloatToStr(u[i-1]/s[i-1]); end; StringGrid1.Cells[1,6]:=FloatToStr(so); StringGrid1.Cells[2,6]:=FloatToStr(uo); StringGrid1.Cells[3,6]:=FloatToStr(uo/so); CloseFile(F); end; end. Листинг Unit1.dfm object Form1: TForm1 Left = 192 Top = 107 Width = 696 Height = 480 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.style="[]" OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object BitBtn1: TBitBtn Left = 392 Top = 16 Width = 75 Height = 25 Caption = 'BitBtn1' TabOrder = 0 OnClick = BitBtn1Click end object BitBtn2: TBitBtn Left = 392 Top = 64 Width = 75 Height = 25 Caption = 'BitBtn2' TabOrder = 1 OnClick = BitBtn2Click end object StringGrid1: TStringGrid Left = 0 Top = 0 Width = 345 Height = 169 RowCount = 6 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] TabOrder = 2 end end Текст файла test.dat (обычный текстовый) Район 1 2 3 4 5 Общий(ая) Площадь 120 100 150 180 250 Урожай 2400 2000 1500 3600 5000 Средний --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 15.06.2007, 15:32 Оценка за ответ: 5 Комментарий оценки: Огромное Спасибо!!!!!!!!!!!!!!!!!

Отвечает: Louken Здравствуйте, Gold1k! Привожу повторно код программы, только уже с элементами интерфейса в Delphi Программу можно скачать тут: http://diploboy.ifolder.ru/2362570 Не забудьте удалить коментарии и лишнюю процедуру перед тем, как показать преподавателю.

Ответ отправил: Louken (статус: 7-ой класс) Ответ отправлен: 15.06.2007, 17:28 Оценка за ответ: 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