|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.03.2018, 16:29 | #1 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
Где ошибка?Должно быть тоже самое число в минусе
unit Unit1;
{$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Label1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; a,s:real;n:integer; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin a:=StrToFloat(Edit1.Text); s:=a; n:=1; while s>=0 do begin a:=a-8; s:=s+a; n:=n+1; end; Label1.Caption:=FloatToSTR(s); end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.BorderStyle := bsSingle; Form1.BorderStyle:=bsDialog; end; procedure TForm1.Label1Click(Sender: TObject); begin end; end. |
19.03.2018, 17:01 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
А какое тоже самое?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
19.03.2018, 20:50 | #3 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
Ну я к примеру пишу число 36 ,оно должно показать -36 ,а в итоге показывает левое число
|
19.03.2018, 21:08 | #4 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать что бы самое длинное слово и самое короткое тоже выводились? | weqw121 | Помощь студентам | 1 | 23.10.2017 23:50 |
Тоже самое что и preg_match? | kroŧ | PHP | 0 | 26.02.2011 15:23 |
ошибка linkfields должно быть уникальным | bnik | БД в Delphi | 2 | 28.09.2010 13:08 |
Ошибка «Incompatible Type», которой, вроде бы, не должно быть. | seagull | Общие вопросы Delphi | 2 | 29.05.2010 13:19 |
В С++ if (!f) это тоже самое что и if (f==0)? | GaJIbI4 | Помощь студентам | 2 | 05.12.2009 17:37 |