Предмет: Информатика, автор: Travka24

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

Aillianna: хм это приложение с формой. Точна нужна форма а не консольное приложение?

Aillianna: нужен полный текст этого файла так как не понятно как делать ввод и вывод

Aillianna: что еще есть на форме?

Travka24: unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

archery: procedure TForm1.Button1Click(Sender: TObject);
var
r: real;
i: integer;

begin
r := StrToFloat(Edit1.Text);
i := Trunc(r * 1000);
if (i mod 10 = 0) or (i div 10 mod 10 = 0) or (i div 100 mod 10 = 0) then
Edit1.Text := '1'
else Edit1.Text := '0';
end;

archery: А зачем вам такая неоднозначная программа на делфи для первого раза? Хеллоу Волд уже устарел совсем что ли?

Travka24: если бы я знал

Travka24: большое вам спасибо

Travka24: можно я буду к вам обращатся если в дальнейшем будут проблемы ?

Aillianna: делфи у меня нет. а пробовать можете

Ответы

Автор ответа: Aillianna

var
    r: real;
    i: integer;

begin
    Readln(r);
    i := Trunc(r * 1000);
    if (i mod 10 = 0) or (i div 10 mod 10 = 0) or (i div 100 mod 10 = 0) then
        writeln(1)
    else writeln(0);
end.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: География, автор: anna070309

История открытия и освоения материка южной америки

6 лет назад

Предмет: Математика, автор: Marinikocn3

Помогите пожалуйста!!!!!!!!

6 лет назад

Предмет: Математика, автор: zarynka

Решите уровнение
3 5/6: 2 5/9= 4 1/8 : х

6 лет назад