Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 16.12.2019
Сообщений: 1
1

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

16.12.2019, 17:16. Просмотров 652. Ответов 2
Метки нет (Все метки)

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

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

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

Код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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-й час сижу не могу разобраться..
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2019, 17:16
Ответы с готовыми решениями:

Даны три целых числа. Вывести на экран те из них, которые Являются четными
Вот опять засела на задачка ,задали 13 задачек решить ....7 задач сама решила ,а вот эти не могу...

Даны 3 целых числа. Вывести на экран те из них, которые являются чётными
Пожалуйста, помогите! Завтра контрольная! Даны 3 целых числа. Вывести на экран те из них, которые...

Даны три вещественных числа. Вывести на экран те из них, которые принадлежат интервалу
Было задание: Даны три вещественных числа. Вывести на экран: а) те из них, которые принадлежат...

Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8)
Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8;...

2
Эксперт Pascal/Delphi
6369 / 4307 / 4633
Регистрация: 05.06.2014
Сообщений: 21,041
16.12.2019, 20:00 2
Цитата Сообщение от infernus228 Посмотреть сообщение
три вещественных числа
Цитата Сообщение от infernus228 Посмотреть сообщение
те из них,которые являются четными
Вещественные числа не могут быть чётными. Может быть, их целые части?
0
Модератор
6567 / 4204 / 1818
Регистрация: 21.01.2014
Сообщений: 17,643
Записей в блоге: 3
17.12.2019, 12:02 3
Цитата Сообщение от infernus228 Посмотреть сообщение
Error: identifier idents no member "Lines".
С этим понятно: у формы Form1 нет свойства Lines - оно есть у компонента Memo1...
Цитата Сообщение от infernus228 Посмотреть сообщение
Попытался для начала вывести данные в окошко Memo
Ну так и выводите. При чем тут эти древнепаскалевские выпендрасы с AssignFile - CloseFile? Мемо сам прекрасно справляется со считыванием текстового файла:
Pascal
1
Memo1.Lines.LoadFromFile('C:\crutak.txt');
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2019, 12:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8)
В делфи!!! Даны три вещественных числа, вывести на экран те из них, которые не принадлежат...

Даны три вещественных числа. Вывести на экран те из них, которые принадлежат интервалу (1,6-3,8)
помогите пожалуйста

Даны три целых числа. Вывести на экран те из них, которые являются положительными.
1. Даны три целых числа. Вывести на экран те из них, которые являются положительными. 2. Найти...

Даны три вещественных числа. Вывести на экран те из них которые принадлежат интервалу ( -∞,0)
Даны три вещественных числа. Вывести на экран те из них которые принадлежат интервалу ( -∞,0)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.