Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.06.2010, 12:01
Lesha1111 Lesha1111 вне форума
Прохожий
 
Регистрация: 03.06.2010
Сообщения: 4
Репутация: 10
По умолчанию помогите решить пожалусто

Помогите новечку пожалусто решить задачу в делфи,

Подготовить модуль в среде Delphi для выполнения задачи расчета среднего балла каждого из N студентов группы сдавшего M экзаменов.
Построить гистограмму оценок по итогам сданных экзаменов (количество 5-к, 4-к, 3-к, 2-к.)

Буду очень благодарен за помощ.

Последний раз редактировалось Lesha1111, 04.06.2010 в 12:07.
Ответить с цитированием
  #2  
Старый 03.06.2010, 12:12
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Дуду говоришь? Что у тебя есть уже наработанного по данной теме?
Код в студию.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 03.06.2010, 12:37
Lesha1111 Lesha1111 вне форума
Прохожий
 
Регистрация: 03.06.2010
Сообщения: 4
Репутация: 10
По умолчанию 1

вот что то я начал так и не понял, может я совсем не то делаю.
Код:
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  
Старый 03.06.2010, 13:27
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию


Оператор присвоения :
Имя переменной := Выражение, значение или функция;

Имя переменной:
Должна начинаться с буквы но не как не с цифры!

Обязательно описать переменные!
перед begin
Пример:
Код:
procedure TF_preview.preview;
var i:integer;
Ttemp,Tfind:TComponent;
    st:integer;
begin
Ответить с цитированием
  #5  
Старый 03.06.2010, 13:33
Lesha1111 Lesha1111 вне форума
Прохожий
 
Регистрация: 03.06.2010
Сообщения: 4
Репутация: 10
По умолчанию 1

я вобще не понимаю в делфи.
Ответить с цитированием
  #6  
Старый 03.06.2010, 13:59
Lesha1111 Lesha1111 вне форума
Прохожий
 
Регистрация: 03.06.2010
Сообщения: 4
Репутация: 10
По умолчанию 1

помогите хотя бы начать решение.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:45.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025