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

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

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

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, делящиеся на 2 и не делящиеся на 7.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2012, 23:44
Ответы с готовыми решениями:

Вообще ничего не могу сделать
Если не сможете рассмотреть картинку, могу в txt выложить

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

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

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

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

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
70 / 69 / 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 / 0
Регистрация: 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

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

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

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


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

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

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