Предмет: Информатика,
автор: Travka24
(DELPHI 7) Вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (DELPHI 7)
Aillianna:
хм это приложение с формой. Точна нужна форма а не консольное приложение?
нужен полный текст этого файла так как не понятно как делать ввод и вывод
что еще есть на форме?
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.
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.
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;
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;
А зачем вам такая неоднозначная программа на делфи для первого раза? Хеллоу Волд уже устарел совсем что ли?
если бы я знал
большое вам спасибо
можно я буду к вам обращатся если в дальнейшем будут проблемы ?
делфи у меня нет. а пробовать можете
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: sagyndykalina000
Предмет: Математика,
автор: ksukul13
Предмет: Физика,
автор: zadvernyakliza
Предмет: Математика,
автор: sadko112233