try-except Диалоговые окна ввода/вывода сообщений Типизированные файлы

[Ko$]

Помогите сделать несколько задачек! В DELPHI !!!

1)Вывести на экран 1 или 0 в зависимости от того, есть ли среди первых трех цифр дробной части заданного положительного вещественного числа цифра ноль.

Пока что то такое придумывается помогите доделать

procedure TForm1.btn1Click(Sender: TObject);
 var
z:integer;
begin
z:=StrToint(Edt1.Text);
if (z mod 10)=0 then
ShowMessage('3Я цифра 0')
else
 z:=int(z/10)
if (z mod 10)=0 then
ShowMessage('2Я цифра 0');
else int(z/10_=0 then
ShowMessage('1Я цифра 0');
else
ShowMessage('Нет нуля');
end;
end;
end.

2)Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Разбить исходную строку на две подстроки, причем первая длиной k-символов (если на k-ю позицию попадает слово, то его следует отнести ко второй строке, дополнив первую пробелами до k-позиций).

3)Создать типизированные файлы f и g, компонентами которых являются случайные целые числа. Записать в файл h сначала компоненты файла f, а затем компоненты файла g с сохранением порядка.

Заранее всем благодарен за вниманее!!

[Ko$]

Это надo сделать в DELPHI

[veniside]

1)

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
  f: double;
  n: integer;
begin
  f := 1.01234;
  n := trunc(frac(f) * 1000);
  if (n < 100) or (0 = (n mod 10)) or (0 = ((n div 10) mod 10)) then
    ShowMessage('1')
  else
    ShowMessage('0');
end; 


[Ko$]

он всё время открывает окно Project1 и в нём написано 1

[GetMax]

он всё время открывает окно Project1 и в нём написано 1

Ничего странного. Вам всего лишь привели пример, когда переменная f имеет фиксированное значение. Вам нужно считывать значения в эту переменную например из Edit.

F:=StrToFloat(Edit1.Text)

[Ko$]

Вот так получилось полностью работает.

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
s : string;
begin
s:= edit1.Text;
for i := 0 to length (edit1.Text) do
if s[i] =',' then
begin
if s[i+1] = '0' then Label1.caption:=('0')
else
Label1.Caption:=('Нет нуля');
if s[i+2] = '0' then Label2.caption:=('0')
else
Label2.Caption:=('Нет нуля');
if s[i+3] = '0' then Label3.caption:=('0')
else
Label3.Caption:=('Нет нуля');
end;
end;
end.