|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
18.11.2011, 23:13 | #1 |
Регистрация: 18.11.2011
Сообщений: 6
|
Ошибка в коде программы. Не выполняется.
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,math; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; edt1: TEdit; edt2: TEdit; edt3: TEdit; btn1: TButton; btn2: TBitBtn; mmo1: TMemo; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x,xn,xk,s,y,h,a,i,F:extended; n:integer; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin mmo1.Clear; mmo1.Lines.add('Âû÷èñëåíèå òàáëèöû çíà÷åíèé ôóíêöèè'); mmo1.Lines.Add('Èñõîäíûå äàííûå'); n:=strtoint(edt1.Text); mmo1.Lines.Add('n='+FloatToStrf(n,f fFixed,6,2)); xn:=Strtofloat(edt2.Text); Mmo1.Lines.Add('xn='+FloatToStrf(xn ,ffFixed,6,2)); xk:=StrToFloat(Edt3.Text); Mmo1.Lines.Add('xk='+FloatToStrF(xk ,ffFixed,6,2)); Mmo1.Lines.Add('Òàáëèöà çíà÷åíèé ôóíêöèè'); Mmo1.Lines.Add(' x S(x) Y(x) n'); x:=xn; F:=2; s:=1; h:=(xk-xn)/n; For i:=1 To n do Begin F:=F*i; a:=cos(n*pi/4)*Power(n,x)/F; s:=s+a; y:=exp(x*cos(pi/4))*cos(x*sin(pi/4)); x:=x+h; Mmo1.Lines.Add(FloatToStrF(x,ffFixe d,6,2)+' '+FloatToStrF(s,ffFixed, 8,4)+' '+FloatToStrF(y,ffFixed,8,4)+' '+FloatToStr(n)); end; end; end. Вот весь код программы. при попытке выполнить программу выдает следующее : [Fatal Error] Unit1.pas(66): Internal error: C1118 Указывает на 66-ую строку (2-ая снизу , а именно End Помогите решить проблему. |
18.11.2011, 23:14 | #2 |
Регистрация: 18.11.2011
Сообщений: 6
|
там где корявые буквы находится текст
|
19.11.2011, 03:25 | #3 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
переменная i в цикле должна быть порядкового типа.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка в коде программы | eXtrem | Помощь студентам | 5 | 09.04.2011 19:34 |
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? | ankris | HTML и CSS | 5 | 23.11.2010 16:58 |
C#, ошибка в коде | StudentPolitech | Общие вопросы .NET | 3 | 19.09.2010 21:34 |
Ошибка в коде шифрующей программы. как исправить | Dima_Sat | Помощь студентам | 0 | 18.12.2009 13:35 |
[C++] ошибка в коде программы!! | jazzben | Помощь студентам | 12 | 27.09.2008 19:25 |