Выделяет красным строку if u>y then ma:=u else ma:=y; (в чём то ошибка)
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
CheckBox1: TCheckBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Memo1: TMemo;
Button1: TButton;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,u,ma:extended;
begin
// Ââîä èñõîäíûõ äàííûõ
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
// Âûâîä ââåäåííûõ èñõîäíûõ äàííûõ
Memo1.Lines.Add(' x='+FloatToStrF(x,ffFixed,8,4));
Memo1.Lines.Add(' y='+FloatToStrF(y,ffFixed,8,4));
Memo1.Lines.Add(' z='+FloatToStrF(z,ffFixed,8,4));
// Ïðîâåðêà íîìåðà íàæàòîé êíîïêè è âûáîð ôóíêöèè
case RadioGroup1.ItemIndex of
0: u:=cos(x);
1: u:=sqr(x);
2: u:=exp(x);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='0,1';
Edit2.text:='0,356';
Edit3.text:='0,53';
Memo1.Clear;
Memo1.Lines.Add('Ðåç-òû ñò. ãð. 552002 Ïåòðîâà È.Â.');
RadioGroup1.ItemIndex:=0; // Àêòèâíà ïåðâàÿ êíîïêà RadioGroup1
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
// Íàõîæäåíèå ìàêñèìàëüíîãî èç òðåõ ÷èñåë
if u>y then ma:=u else ma:=y;
if z>ma then ma:=z;
// Âûâîä ðåçóëüòàòà
if CheckBox1.Checked then // Ïðîâåðêà ñîñòîÿíèÿ êíîïêè CheckBox1
Memo1.Lines.Add(' max='+IntToStr(Round(ma))
else
Memo1.Lines.Add(' max='+FloatToStrF(ma,ffGeneral,8,2));
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.