Даны три вещественных числа. Вывести на экран те из них,которые являются четными

@infernus228 · Регистрация: 16.12.2019

Доброго времени суток всем!
Не так давно начали писать программы с помощью Lazarus.
Возникла проблема с решением данной задачи:

Даны три вещественных числа. Вывести на экран те из них, которые являются четными.
Загвоздка в том, что "Известные переменные считываются из созданного файла формата
*.txt. Результат отобразить в визуальной форме в свободном виде."

Попытался для начала вывести данные в окошко Memo, но пишет следующую ошибку!
unit1.pas(46,7) Error: identifier idents no member "Lines".

Код:

Delphi

var
  f: textfile;
  s: string;
  Form1: TForm1;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
begin
AssignFile(f, 'C:\crutak.txt');
Reset(f);
 
while (not EOF(f)) do begin
Readln(f, s);
Form1.Lines.Add(s);
end;
 
CloseFile(f);
 
 
 
end;
 
end;
end.

Прошу помочь разобраться! 2-й час сижу не могу разобраться..

@ZX Spectrum-128 · 16.12.2019, 20:00

Сообщение от infernus228

три вещественных числа

Сообщение от infernus228

те из них,которые являются четными

Вещественные числа не могут быть чётными. Может быть, их целые части?

@D1973 · 17.12.2019, 12:02

Сообщение от infernus228

Error: identifier idents no member "Lines".

С этим понятно: у формы Form1 нет свойства Lines - оно есть у компонента Memo1...

Сообщение от infernus228

Попытался для начала вывести данные в окошко Memo

Ну так и выводите. При чем тут эти древнепаскалевские выпендрасы с AssignFile - CloseFile? Мемо сам прекрасно справляется со считыванием текстового файла:

Pascal

1	Memo1.Lines.LoadFromFile('C:\crutak.txt');

@ZX Spectrum-128 6369 / 4307 / 4633 Регистрация: 05.06.2014 Сообщений: 21,041
	16.12.2019, 20:00	2
	Сообщение от infernus228 три вещественных числа Сообщение от infernus228 те из них,которые являются четными Вещественные числа не могут быть чётными. Может быть, их целые части? 0

Опции темы