![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите новечку пожалусто решить задачу в делфи,
Подготовить модуль в среде Delphi для выполнения задачи расчета среднего балла каждого из N студентов группы сдавшего M экзаменов. Построить гистограмму оценок по итогам сданных экзаменов (количество 5-к, 4-к, 3-к, 2-к.) Буду очень благодарен за помощ. Последний раз редактировалось Lesha1111, 04.06.2010 в 12:07. |
#2
|
||||
|
||||
![]() Дуду говоришь? Что у тебя есть уже наработанного по данной теме?
Код в студию. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
![]() вот что то я начал так и не понял, может я совсем не то делаю.
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Label4: TLabel; Label5: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin 5:=StrToFloat(edit1.Text); 4:=StrToFloat(edit2.Text); 3:=StrToFloat(edit3.Text); 2:=StrToFloat(edit1.Text); d:=b*b-4*a*c; if d>0 end. |
#4
|
|||
|
|||
![]() ![]() Оператор присвоения : Имя переменной := Выражение, значение или функция; Имя переменной: Должна начинаться с буквы но не как не с цифры! Обязательно описать переменные! перед begin Пример: Код:
procedure TF_preview.preview; var i:integer; Ttemp,Tfind:TComponent; st:integer; begin |
#5
|
|||
|
|||
![]() я вобще не понимаю в делфи.
|
#6
|
|||
|
|||
![]() помогите хотя бы начать решение.
|