Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
PoyPoy
0 / 0 / 0
Регистрация: 27.06.2016
Сообщений: 24
1

Создать файл, компоненты которого случайные целые числа

28.06.2016, 18:26. Просмотров 1105. Ответов 6
Метки нет (Все метки)

1. Используя типизированные файлы(вывод исходного и вновь создаваемого файлов осуществить программным путем).
Создать файл, компоненты которого случайные целые числа. Подсчитать, сколько из них нечетных или кратных трем.

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

Создать файл, компоненты которого целые числа и найти их сумму
Создать файл, компоненты которого целые числа и найти их сумму. напишите...

Создать файл, компоненты которого целые числа и найти их сумму
напишите полный код в паскале пожалуйста и скажите файл должен быть *.txt и как...

Создать файл, компоненты (<=7) которого...
Решите пожалуйста кто сможет .. Создать файл, компоненты (&lt;=7) которого...

Создать файл Y, компоненты которого вычисляются по формуле
Добрый вечер! Помогите пожалуйста с задачей. Создать файл Y, компоненты...

Создать файл компоненты которого являются целыми числами
Помогите решить задачи (программа и алгоритм) много пропустил теперь вот не...

6
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
29.06.2016, 04:48 2
Подсчитать, сколько чисел файла нечетных или кратных трем
1
PoyPoy
0 / 0 / 0
Регистрация: 27.06.2016
Сообщений: 24
29.06.2016, 08:20  [ТС] 3
спс
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
29.06.2016, 10:04 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
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
{$MODE TP}
var
    f: File Of Integer;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb);
    end;
    Close(f); ReSet(f);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
            Inc(count);
    end;
    Close(f);
    WriteLn('Asnwer: ', count);
end.
2.
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
{$MODE TP}
var
    f: Text;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb:6);
    end;
    Close(f); ReSet(f);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
            Inc(count);
    end;
    Close(f);
    WriteLn('Asnwer: ', count);
end.
1
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
29.06.2016, 12:58 5
JokeR.BY, а где
Цитата Сообщение от PoyPoy Посмотреть сообщение
Создать новый файл, содержащий такие числа.
1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
29.06.2016, 19:24 6
Лучший ответ Сообщение было отмечено PoyPoy как решение

Решение

Не по теме:

Joy, там же, где и читабельное форматирование текста.


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
{$MODE TP}
var
    f, g: File Of Integer;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb);
    end;
    Close(f); ReSet(f);
    Assign(g, 'g.dat'); ReWrite(g);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
        begin
            Inc(count);
            Write(g, numb);
        end;
    end;
    Close(f); Close(g);
    WriteLn('Asnwer: ', count);
    ReSet(g);
    while (Not EoF(g)) do
    begin
        Read(g, numb);
        Write(numb:6);
    end;
    Close(g);
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
{$MODE TP}
var
    f, g: Text;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb:6);
    end;
    Close(f); ReSet(f);
    Assign(g, 'g.txt'); ReWrite(g);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
        begin
            Inc(count);
            Write(g, numb);
        end;
    end;
    Close(f); Close(g);
    WriteLn('Asnwer: ', count);
    ReSet(g);
    while (Not EoF(g)) do
    begin
        Read(g, numb);
        Write(numb:6);
    end;
    Close(g);
end.
1
Cyborg Drone
30.06.2016, 10:40     Создать файл, компоненты которого случайные целые числа
  #7

Не по теме:

PoyPoy, прекращайте плодить дублей, не то я с Вами нехорошо поступлю.

0
30.06.2016, 10:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2016, 10:40
Привет! Вот еще темы с ответами:

Сформировать файл, компонентами которого являются целые числа, определяемые по формуле
Дано натуральное n. Сформировать файл G, компонентами которого являются целые...

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

Создать новый файл, компонентами которого являеются числа исходного, кратные 3
Создать типизированный файл Р содержащий последовательность целых чисел....


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

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

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