помогите плиз

← →
Пётр (2005-11-23 10:13) [0]

сем привет, у меня к вам вопрос: кто знает язык програмирования дэлфи???

Мне в институте дали задание, я наврал что у меня нету дома компьютера что что я вообще некогда не програмировал ну и все такое.....(хотя я некогда непрограмировал), так вот кто мне поможет написать эту программку?? она простая очень для тех кто знает хотябы что это за язык.

Нужно написать:

Тема: определение стоимости продукции
Дано: N - число видов продукции (их 5, A, C, D, F)
для каждого из видов известн количество и стоимость (любые цифры)
Найти: Общую стоимость всех N- видов и среднюю цену всей продукции.

Если кто сможет написать это програмку большая просьба выложить ее тут, мне нужен только текст программы, надеюсь на вашу поддержку

← →
Antonn © (2005-11-23 10:15) [1]

обманывать - не хорошо.

← →
Плохиш © (2005-11-23 10:41) [2]

> Пётр (23.11.05 10:13)
> сем привет, у меня к вам вопрос: кто знает язык програмирования
> дэлфи???

Хм, сейчас в округе поспрашаю, может кто и откликнется.

> Если кто сможет написать это програмку большая просьба выложить
> ее тут,

Ты, эта, сумму забыл выложить.

← →
clickmaker © (2005-11-23 10:43) [3]

http://borlpasc.narod.ru/schedule.htm

← →
Holy © (2005-11-23 11:55) [4]

Может и демпингую, но именно столько я должен соседу :) 20 у.е. и накатаю, но без комментариев... С подробным и понятным комметированием строк не менее 80...

← →
Igorek © (2005-11-23 12:01) [5]

а что, предлагаю написать методом "пост-строка"

← →
TUser © (2005-11-23 12:03) [6]

> Igorek © (23.11.05 12:01) [5]

А можно начать с конца?

end.

← →
Igorek © (2005-11-23 12:12) [7]

> TUser © (23.11.05 12:03) [6]

Запросто. :)
WriteLn(MiddlePrice);

← →
clickmaker © (2005-11-23 12:13) [8]

WriteLn(TotalPrice);

← →
Жук © (2005-11-23 12:16) [9]

Зачем ему две предпоследние строки ?

← →
Igorek © (2005-11-23 12:18) [10]

MiddlePrice := TotalPrice / TotalCount;

← →
Вольный Стрелок © (2005-11-23 12:47) [11]

> 20 у.е.
это украинские евротугрики?

← →
SergGG © (2005-11-23 13:27) [12]

Может каряво написано, но считает:
"Начало положено", что хочешь с нм то и делай

unit UHaliavchick; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Grids, ValEdit, StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; StringGrid1: TStringGrid; LabeledEdit1: TLabeledEdit; procedure FormCreate(Sender: TObject); procedure StringGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; type TTovar = record Name : WChar; Price : Real; Count : integer; Sum :Real; end; TRes = record Count :integer; Tovar :array of TTovar; Sum:Real; end; var Form1: TForm1; Res:TRes; implementation uses Math; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i,j:integer; begin Res.Count:=5; SetLength(Res.Tovar,Res.Count); with StringGrid1 do begin Cells[0,0]:="Òîâàð"; Cells[1,0]:="Êîëè÷åñòâî"; Cells[2,0]:="Ñòîèìîñòü"; Cells[3,0]:="Ñóììà"; RowCount:=Res.Count+1; for j:=1 to 3 do for i:=1 to Res.Count do begin Cells[0,i]:="Òîâàð"+IntToStr(i); Cells[j,i]:="0"; end; end; end; procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var i,j:integer; Summ:Real; begin j:=StringGrid1.row; for i:=1 to Res.Count do begin Res.Tovar[j-1].Count:= StrToInt(StringGrid1.Cells[1,j]); Res.Tovar[j-1].Price:=StrToFloat(StringGrid1.Cells[2,j]); Res.Tovar[j-1].Sum:=Res.Tovar[j-1].Count*Res.Tovar[j-1].Price; StringGrid1.Cells[3,j]:=FloatToStr(Res.Tovar[j-1].Sum); Summ:= Summ+Res.Tovar[i-1].Sum; end; Res.Sum:=Summ/Res.Count; LabeledEdit1.Text:=FloatToStr(Res.Sum); end; end.

DFM-файл
object Form1: TForm1 Left = 305 Top = 200 Width = 621 Height = 247 AutoSize = True Caption = #1061#1072#1083#1103#1074#1097#1080#1082 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 Panel1: TPanel Left = 0 Top = 0 Width = 613 Height = 161 Align = alTop Caption = "Panel1" TabOrder = 0 object StringGrid1: TStringGrid Left = 1 Top = 1 Width = 611 Height = 159 Align = alClient ColCount = 4 DefaultColWidth = 150 RowCount = 6 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor] TabOrder = 0 OnKeyUp = StringGrid1KeyUp end end object LabeledEdit1: TLabeledEdit Left = 48 Top = 192 Width = 121 Height = 21 EditLabel.Width = 100 EditLabel.Height = 13 EditLabel.Caption = #1057#1088#1077#1076#1085#1103#1103" "#1089#1090#1086#1080#1084#1086#1089#1090#1100 TabOrder = 1 end end

> SergGG © (23.11.05 13:27) [12]

Э, мы так не договаривались. С каждого - по строчке, бабло - пополам. А ты походу хочешь один все забрать? не пойдет

Можно перевести с экселя на делфи...
10 22 "=A1*B1" 23 31,53 "=A2*B2" 45 15,61 "=A3*B3" 54 12,7 "=A4*B4" 34 19 "=A5*B5" "=SUM(A1:A5)" "=C6/A6" "=SUM(C1:C5)"

← →
Пётр (2005-11-23 14:52) [17]

Большое спасибо вам за понимание и помощ :))

← →
Progger (2005-11-23 14:59) [18]

"Спасибо" в стакане не забулькает...

помогите плиз Найти похожие ветки