Вот код программы
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
CheckBox1: TCheckBox;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '0,1'; // Ïî÷àòêîâå çíà÷åííÿ Õ
Edit2.Text := '0,356'; // Ïî÷àòêîâå çíà÷åííÿ Y
Edit3.Text := '0'; // Ïî÷àòêîâå çíà÷åííÿ Z
Memo1.Clear; //Î÷èùåííÿ â³êíà ðåäàêòîðè Memo1
// Âèâåäåííÿ ðÿäêà â áàãàòîðÿäêîâèé ðåäàêòîð Memol
Memo1.Lines.Add('Ëà6.ðàá.N3. Ñò.ãð. 2ÝÊ ²âàíîâ À.À.');
end;
procedure TForm1.Button1Click(Sender: TObject);
var x, y, z, a, u, f, p, ma : Extended;
begin
x := StrToFloat(Edit1.Text);
Memo1.Lines.Add('Õ = '+Edit1.Text);
Y := StrToFloat(Edit2.Text);
Memo1.Lines.Add('Y ='+Edit2.Text);
Z := StrToFloat(Edit3.Text);
Memo1.Lines.Add('Z = '+Edit3.Text);
case RadioGroup1.ItemIndex of
0: u := cos(x);
1: u := sin(x);
2: u := sin(x)/cos(x);
end;
if CheckBox1.Checked then
begin
u := 2*f*f*f +3*p*p
y := abs(f-p);
z := sqr(f-p);
end;
if x>p then ma := u
if 3<x<abs(p) then ma := y;
if x=p then ma := z;
else
close
end;
end.
Ошибку выдает:
begin
u := 2*f*f*f +3*p*p
y := abs(f-p); --- В этой строке
z := sqr(f-p);
end;
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.