0 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 10
1

Получить в файле g все компоненты файла f, кратные и 3, и 5

02.06.2011, 18:15. Показов 539. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program a;
var
f:integer;
m:array [1..1000] of integer;
input, output: file of integer;
begin
assign (input,'f.txt');
assign (output,'g.txt');
reset(input);
rewrite(output);
while not EOF (input)do
begin
read ( input, f);
if(m[f]  mod 3=0 ) and (m[f] mod 5=0) then write(output, f);
 end;
close(input);
close(output);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2011, 18:15
Ответы с готовыми решениями:

Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратные K
Записать в файл f последовательного доступа N натуральных чисел. Получить в другом файле...

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и
Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла...

Дан файл f, компоненты которого являются действительными числами. Получить в файле g все компоненты файла f
Дан файл f, компоненты которого являются действительными числами. Получить в файле g все компоненты...

Получить в файле g все четные компоненты файла f, а в файле h все нечетные
1. Дан файл f компоненты которого являются целыми числами. Получить в файле g все четные компоненты...

3
40 / 13 / 8
Регистрация: 15.12.2009
Сообщений: 70
02.06.2011, 18:29 2
Ты бы задачу написал бы для начала.
0
0 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 10
02.06.2011, 18:33  [ТС] 3
Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 3, и 5.
0
40 / 13 / 8
Регистрация: 15.12.2009
Сообщений: 70
02.06.2011, 18:45 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program a;
var
f:integer;
input, output: file of integer;
begin
assign (input,'f.txt');
assign (output,'g.txt');
reset(input);
rewrite(output);
while not EOF (input)do
begin
read ( input, f);
if(f mod 3=0 ) [B]or[/B] (f mod 5=0) then write(output, f);
end;
close(input);
close(output);
end.
Я тоже не очень могу понять зачем ты его там использовал.
И там не and а or
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2011, 18:45
Помогаю со студенческими работами здесь

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

Получить в файле g все компоненты файла f
Задание звучит так: Дано файл f компоненты которого являются целыми числами. Получить в файле g...

Дан файл f, компоненты которого являются натуральными числами. Получить в файле g все компоненты файла f, делящиеся на 3 и не делящиеся на 7.
Дан файл f, компоненты которого являются натуральными числами. Получить в файле g все компоненты...

Получить в файле все компоненты другого файла
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:...

Получить в файле g все компоненты файла f, удовлетворяющие условиям
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:...

Получить в файле Q все компоненты файла F, отвечающие условию
Также нужна помощь в решении этой задачи.Снимаю шляпу перед теми,кто поможет в этом. Дано файл F ,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru