Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 15
1

кто нибудь до вечера может сделать?

17.10.2010, 13:09. Просмотров 585. Ответов 8
Метки нет (Все метки)

Разработать процедуру, определяющую тип, количество и значения корней квадратного уравнения.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2010, 13:09
Ответы с готовыми решениями:

Кто-нибудь может сделать код для следующих заданий?
Задание:

Может кто нибудь объяснить на любом примере как сделать данное задание?
Спроектировать сеть и построить её модель в Cisco Packet Tracer. Сеть должна включать в себя 4 под...

Может кто-нибудь пошагово обьяснить как сделать блок-схему к этой программе?
var s,b,t:string; * * a:array of string; * * i,q,w:integer; begin write(#13,'S= ');...

Кто-нибудь может сделать полуавтоматическую обработку поиска слов для игры слово за слово
Кто может сделать программу помощник для полуавтоматической обработки поиска слов для игры слово за...

8
1 / 1 / 1
Регистрация: 23.12.2009
Сообщений: 56
17.10.2010, 13:12 2
тебе через теорему виета или через дискриминант?)
0
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 15
17.10.2010, 13:17  [ТС] 3
Через дискриминант

Добавлено через 1 минуту
Кстати..... если шариш=))) можеш помочь потом еще в нескольких я отблагодарю... просто завтра перездача если не здам... то отчисление из института.... Врать не буду потому что это реальная правда
0
190 / 171 / 37
Регистрация: 19.01.2010
Сообщений: 610
Записей в блоге: 1
17.10.2010, 13:24 4
Что значит тип корня?
0
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 15
17.10.2010, 13:28  [ТС] 5
ну наверно ... Дискриминант есть из него иль нет
0
190 / 171 / 37
Регистрация: 19.01.2010
Сообщений: 610
Записей в блоге: 1
17.10.2010, 13:31 6
Цитата Сообщение от Demon159 Посмотреть сообщение
ну наверно ... Дискриминант есть из него иль нет
Ок 10 мин и напишу)....Просто дельфи тут нету на компе(...Сча установлю))....
0
1 / 1 / 1
Регистрация: 23.12.2009
Сообщений: 56
17.10.2010, 13:44 7
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x1, x2 : real;
  a, b, c : real;
  d :real;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  c := StrToFloat(Edit3.Text);
 
  D := sqr(b)-4*a*c;
    If d<0 then
      ShowMessage('Äèñêðèìèíàíò <0, óðîâíåíèå ðåøåíèÿ íå èìååò')
    else
      begin
        x1 := (-b+sqrt(d))/2*a;
        x2 := (-b-sqrt(d))/2*a;
          ShowMessage('x1= '+FloatTostr(x1)+' x2= ' +FloatToStr(x2));
      end;
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if MessageDlg('Âû óâåðåíû ÷òî õîòèòå âûéòè', MtWarning,[MbYes,MbNo],0) = mrYes
    then Form1.Close;
end;
 
end.
0
geJI<|>eP
188 / 187 / 19
Регистрация: 22.07.2010
Сообщений: 735
17.10.2010, 14:02 8
вот прога давно писал такое
0
190 / 171 / 37
Регистрация: 19.01.2010
Сообщений: 610
Записей в блоге: 1
17.10.2010, 14:26 9
А вот мой вариантик))
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure SqrUravnenie(A,B,C:Real;var x1,x2:Real;var S:String);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Button1.Caption:='Посчитать';
  Label1.Caption:='A';
  Label2.Caption:='B';
  Label3.Caption:='C';
end;
 
Procedure TForm1.SqrUravnenie(A,B,C:Real;var x1,x2:Real;var S:String);
var
  D:Real;
Begin
  D:=Sqr(B)-4*A*C;
  If D>=0 Then
  Begin
    x1:=(-B+Sqrt(D))/2*A;
    x2:=(-B-Sqrt(D))/2*A;
  End;
  If D=0 Then S:='D=0 => Уравнение имеет 1 корень';
  If D>0 Then S:='D>0 => Уравнение имеет 2 корня';
  If D<0 Then S:='D<0 => Уравнение не имеет корней';
End;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x1,x2:Real;
  S:String;
begin
  SqrUravnenie(StrToFloat(edit1.Text),
               StrToFloat(edit2.Text),
               StrToFloat(edit3.Text),x1,x2,S);
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  If S='D=0 => Уравнение имеет 1 корень' Then
  Begin
    Edit1.Text:=FloatToStr(x1);
    Edit2.Text:=S;
  End;
  If S='D<0 => Уравнение не имеет корней' Then Edit1.Text:=S;
  If S='D>0 => Уравнение имеет 2 корня' then
  Begin
    Edit1.Text:=FloatToStr(x1);
    Edit2.Text:=FloatToStr(x2);
    Edit3.Text:=S;
  End;
end;
 
end.
1
Вложения
Тип файла: rar Diskr.rar (3.2 Кб, 12 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2010, 14:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Может кто-нибудь сталкивался?
Задача: по какому-либо действию в лотусе запускаем сканер, сканируем документ, полученное...

Кто нибудь может объяснить?
Посмотрите на глю! Кэто как?

Кто-нибудь может перевести Паскаль в C#?
Отзовитесь! Кто сможет перевести

может кто-нибудь перевести Pascal на C++?
const A1=5/9; A2=8/9; t=-0.77459 type func=function(x,c,d:real):real var a,b,eps:real c:array of...

Кто нибудь может ответить на эти ?
1. Что понимается под термином «.NET Framework»? 2. Зависят ли приложения, разрабатываемые в .NET,...

Может кто-нибудь помочь с Яндексом?
Ребята, может найдется, кто-то, кто поможет решить проблему с Яшей. Упорно не хочет индексировать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.