Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Max058
0 / 0 / 1
Регистрация: 23.05.2012
Сообщений: 6
#1

Работа с файлами. Я новичок и что то вообще не могу сделать задачу - Delphi

30.05.2012, 23:44. Просмотров 351. Ответов 4
Метки нет (Все метки)

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, делящиеся на 2 и не делящиеся на 7.
http://www.cyberforum.ru/delphi-beginners/thread765820.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2012, 23:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Работа с файлами. Я новичок и что то вообще не могу сделать задачу (Delphi):

Помогите пожалуйста решить задачу, у меня что-то вообще не получается.
Составить процедуру построения строки символов, являющейся записью заданного...

Люди помогите сделать задачу с записями и файлами.
Напишите программу, организующую хранение в файле 5 записей о дневной...

Не могу запустить файл и вообще с ним ничего сделать
Итак, не могу запустить не могу разархивировать фаил (именно с этого...

Не могу сделать задачу
Есть задача Разработать функцию create_calendar_page(month,year) какая...

Не могу сделать задачу
Дано число N, означающее ширину исходного рулона, и текстовый файл, содержащий...

4
Nikitko_Cent
144 / 114 / 37
Регистрация: 27.10.2011
Сообщений: 690
Завершенные тесты: 3
31.05.2012, 03:03 #2
Delphi
1
2
3
4
5
6
7
while not eof(f) do
  begin
    readln(f,n);
    
    if (strtoint(n) mod 2 = 0) and (strtoint(n) mod 7 <> 0) then
      writeln(g,n);
  end;
Это лишь набросок, думаю допилишь сам
0
vilag
69 / 68 / 13
Регистрация: 24.05.2012
Сообщений: 146
31.05.2012, 03:08 #3
Рекомендую немного исправить:

Delphi
1
2
3
4
5
6
7
8
9
10
n: integer;
...
 
while not eof(f) do
  begin
    read(f,n);
    
    if (n mod 2 = 0) and (n mod 7 <> 0) then
      writeln(g,n);
  end;
0
Nikitko_Cent
144 / 114 / 37
Регистрация: 27.10.2011
Сообщений: 690
Завершенные тесты: 3
31.05.2012, 03:09 #4
Цитата Сообщение от vilag Посмотреть сообщение
Рекомендую немного исправить:

Delphi
1
2
3
4
5
6
7
8
9
10
n: integer;
...
 
while not eof(f) do
  begin
    read(f,n);
    
    if (n mod 2 = 0) and (n mod 7 <> 0) then
      writeln(g,n);
  end;
Ну да
0
Max058
0 / 0 / 1
Регистрация: 23.05.2012
Сообщений: 6
31.05.2012, 09:30  [ТС] #5
Ага спасибо, думаю дальше сам напишу))
0
31.05.2012, 09:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 09:30
Привет! Вот еще темы с решениями:

Не могу сделать задачу
Пожалуйста помогите решить,срочно надо

Спасайте мой мозг. Я новичок и не могу сделать задания .1) Написать метод определяющий равны ли первый и последний символ строки
Уважаемые форумчане, помогите пожалуйста написать решения задач на лекцию ...

Никак не могу сделать задачу
Помогите пожалуйста с задачей: http://www.e-olymp.com/ru/problems/2302. Код не...

Не могу сделать простую задачу по Java
Кому не сложно помогите написать простую задачу про дерево, на котором растут...


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

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

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