Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.09.2010, 00:19   #1
grustniy
Новичок
Джуниор
 
Регистрация: 04.09.2010
Сообщений: 2
По умолчанию Ошибки при выполнении программы

в общем, после запуска выполнения программы идут эроры и она обрывается
вот код
Код:
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;
    Memo1: TMemo;
    Button1: TButton;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='3.74*10^(-2)';
  Edit2.Text:='-0.825';
  Edit3.Text:='0.16*10^2';
  Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,v,x,y,z:Extended;
begin
  Memo1.Clear;
  //Çàïîëíåíèå Memo1
  Memo1.Lines.Add('Ââåäåííûå äàííûå');
  x:=StrToFloat(Edit1.Text);
  Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
  y:=StrToFloat(Edit2.Text);
  Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,5));
  z:=StrToFloat(Edit3.Text);
  Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,5));
  // Âûïîëíåíèå ðàññ÷åòîâ
  a:=1+sqr(Sin(x+y));
  b:=abs(x-2*y/(1+sqr(x)*sqr(y)));
  d:=Abs(y)
  c:=(a/b)*(x^(d));
  v:=c+sqr(arctan(1/z));
  // Âûâîä äàííûõ
  Memo1.Lines.Add(' Ðåçóëüòàò v = '+FloatToStrF(v,fffixed,8,5));
end;
end.
p.s. кракозябры просто не распознает почему-то при копипасте. там - русский текст
вот лог
Код:
  [Error] Unit1.dpr(59): Missing operator or semicolon
  [Error] Unit1.dpr(59): Pointer type required
  [Error] Unit1.dpr(22): Unsatisfied forward or external declaration: 'TForm1.Memo1Change'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.dpr'
выручайте. пытался самостоятельно выучить дельфи, и вот уже с первыми заданиями траблы
grustniy вне форума Ответить с цитированием
Старый 04.09.2010, 01:05   #2
Selestis
Форумчанин
 
Аватар для Selestis
 
Регистрация: 21.01.2009
Сообщений: 719
По умолчанию

Всё же вам написали в логе:
- строка 59: нет ";" (кажется, d там что-то присваивается)
- строка 59: символ ^ означает отнюдь не возведение в степень. Полистайте справочник.
А про мемо просто сотрите сверху строчку с ней(из описания формы)
Изобретатель велосипедов
Selestis вне форума Ответить с цитированием
Старый 04.09.2010, 07:19   #3
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

Даже исправив эти ошибки, программа не заработает
_Engine_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зависание программы при выполнении GET запроса iHikita Общие вопросы .NET 1 16.07.2010 00:20
Как организовать паузу/остановку при выполнении программы Manonia Общие вопросы .NET 3 06.07.2010 17:25
критическая ошибка при выполнении программы Познающий Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 18.11.2009 16:51
Игнорирование ошибок при выполнении программы NecroSlider Общие вопросы Delphi 5 25.09.2009 13:02
Ошибка и падение (выход) Excel при выполнении сложной программы на VBA Serge_Bliznykov Microsoft Office Excel 6 13.08.2008 16:50