Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Алла23
0 / 0 / 1
Регистрация: 23.11.2015
Сообщений: 47
1

Заменить элементы файла кратные трем

03.02.2016, 19:07. Просмотров 271. Ответов 3
Метки нет (Все метки)

Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. Заменить элементы файла, созданного в задании 1, кратные трём на 0, дающие при делении на три остаток 1 на один, а остальные – на 2, и полученные значения записать в новый файл.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.02.2016, 19:07
Ответы с готовыми решениями:

Удалить из матрицы все элементы, не кратные семи, но кратные трем
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все элементы, не кратные семи,...

Вывести на печать элементы массива, кратные трем
КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно) #47. Вычислить значения функции z=x√(x*y), где x...

Все элементы массива, кратные числу 10, заменить 0.
Дан массив целых чисел. а)Все элементы, кратные числу 10, заменить 0.

Все элементы массива, кратные числу 10, заменить нулем
Дан массив целых чисел. Все элементы, кратные числу 10, заменить нулем

Заменить все положительные элементы массива, кратные пяти, на максимальный элемент
Текст задания Создать программу, обеспечивающую работу следующих пунктов меню. 1. Ввод массива...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4055 / 2970 / 3706
Регистрация: 05.06.2014
Сообщений: 14,713
04.02.2016, 19:28 2
Похожая задача:
Создать файл из N целых чисел и вывести его содержимое на экран
0
Cyborg Drone
Модератор
5414 / 3222 / 2457
Регистрация: 17.08.2012
Сообщений: 10,321
05.02.2016, 00:27 3
Цитата Сообщение от Алла23 Посмотреть сообщение
Заменить элементы файла, созданного в задании 1, кратные трём на 0, дающие при делении на три остаток 1 на один, а остальные – на 2
Иными словами, Заменить элементы файла, созданного в задании 1, на их остаток от деления на 3.

Не по теме:

Кто писал задачу? Captain Obvious?

0
Peoples
1354 / 842 / 750
Регистрация: 06.02.2016
Сообщений: 2,246
Записей в блоге: 18
Завершенные тесты: 4
06.02.2016, 12:48 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pr; // программ для создание файла задания 1
var
    f: file of integer;
    i, n:integer;
    a:array [-100..100]of integer;
 
begin
    assign (f, 'c:\file.txt');
    rewrite (f);
    writeln('Введите ограничение по количество целых чисел n'); // количество чисел N
    readln (n);
 
for i:=-n to n do begin
a[i]:=i;
write(a[i]:3);
write(f,a[i]);
 
 end;
    close (f);
 
 
end.
Pascal
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program pr;               //  для замены и записи полученного в новый файл
var
f,f1:file of integer;
i, n:integer;
    a,b:array [-100..100]of integer;
begin
assignfile(f,'c:\file.txt');
reset(f);
assignfile(f1,'c:\g.txt');
rewrite(f1);
writeln('Введите количество читаемых элементов элементов n'); // сколько элементов из файла надо вывести
readln(n);
for i:=-n to n do begin
read(f,a[i]); write(a[i]:4);
if (abs(a[i] mod 3)=0) then             // если делится на цело на 3, в остатке 0
a[i]:=0;
b[i]:=a[i];
if (abs(a[i] mod 3)=1) then   // 1 подразумевается если в остатке получается чисто пере одическая дробь(10/3=3,(3))
a[i]:=1;
b[i]:=a[i];
if (abs(a[i] mod 3)<>0) and (abs(a[i] mod 3)<>1) then // если в остатке не 0 и не период 3 
a[i]:=2;
b[i]:=a[i];
end;
for i:=-n to n do
write(f1,b[i]); // можно сразу вывести замену если дописать write(b[i]:3);
close(f);
close(f1);  readln;
end.
// abs(модуль) используется на случай если число будет отрицательным
 
program pr; // отдельная программа для просмотра замены записанной в новый файл 
var
    g: file of integer;
    i, n:integer;
    a:array [1..10]of integer;
 
begin
    assign (g, 'c:\g.txt');
   reset (g);
 
while not eof (g) do begin
        read (g, i);
        write (i:3);
 
 end;
    close (g);
 
 
end.
Вроде работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2016, 12:48

Создание Блок-схема. В массиве все элементы, кратные 4, заменить на минимальный элемент строки, в котором он расположен
Помогите пожалуйста,составить блок -схему программы . Заранее спасибо!!) {V massive vse...

Дан массив целых чисел. Заменить все элементы массива кратные 3, на третий элемент массива
Здравствуйте. Прошу опять помощи :-) Задача следующая: Дан массив целых чисел. Заменить все...

Среди заданной последовательности целых чисел найти нечетные числа кратные трем
Среди заданной последовательности целых чисел найти нечетные числа кратные трем.


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

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

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