![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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
|
|||
|
|||
|
помогите хотя бы начать решение.
|