Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Max058
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 6
#1

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

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

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

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

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

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

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

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

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

4
Nikitko_Cent
143 / 113 / 12
Регистрация: 27.10.2011
Сообщений: 684
Завершенные тесты: 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 / 2
Регистрация: 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
143 / 113 / 12
Регистрация: 27.10.2011
Сообщений: 684
Завершенные тесты: 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
Привет! Вот еще темы с ответами:

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

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

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

Задачу не могу сделать идеально с двумя условиями хитрыми - MySQL
есть задача от Яндекса для решения задачи я бы написал 2 разных запроса элементарных! но тут скорее всего надо написать...


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

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

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