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

Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой

14.06.2013, 07:40. Показов 1143. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2013, 07:40
Ответы с готовыми решениями:

Сохранение четных чисел в один файл, а нечетных - в другой
В исходном файле записаны числа через пробел. Сформировать 2 новых файла: 1-й содержит четные...

Массив. Сформировать из исходного два массива - один четных чисел, другой нечетных чисел
Задание есть из массива а сформировать два массива один четных чисел другой не четных чисел ?...

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

Числа. Подсчитать количество четных и нечетных чисел- разрядов. Найти суммы только всех четных и только нечетных, проверить какая из сумм больше
Добрый день, не могу понять как же составить программу для этой задачи без использования массивов....

1
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
15.06.2013, 10:22 2
Лучший ответ Сообщение было отмечено Pedroni как решение

Решение

а в файлы записывать только массивы? если да - то так:
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
var
  a: array[1..100] of integer;
  n,i,k1,k2,s1,s2,m: integer;
  f1,f2: text;
begin
  write('Ââåäèòå ðàçìåð ìàññèâà n: N=');
  readln(n);
  assign(f1,'1.txt');
  rewrite(f1);
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    if odd(a[i]) then
    begin
      inc(k1);
      s1:=s1+a[i];
    end else
    begin
      inc(k2);
      s2:=s2+a[i];
    end;
    write(a[i]:4);
    write(f1,a[i]:4);
  end;
  close(f1);
 
  assign(f2,'2.txt');
  rewrite(f2);
  reset(f1);
  while not eoln(f1) do
  begin
    read(f1,m);
    write(f2,m:4);
  end;
  writeln;
  close(f1);
  close(f2);
  writeln('Êîëè÷åñòâî íå÷åòíûõ = ',k1,', èõ ñóììà = ',s1);
  writeln('Êîëè÷åñòâî ÷åòíûõ = ',k2,', èõ ñóììà = ',s2);
  writeln;
end.
0
15.06.2013, 10:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2013, 10:22
Помогаю со студенческими работами здесь

Определить в текстовом файле количество нечетных чисел и записать их в другой текстовый файл
Очень Простая задача

Из данного файла скопировать элементы, стоящие на нечётных местах, в один файл, стоящие на чётных - в другой
Дан типизированный файл целых чисел. Записать в первый выходной файл все числа, стоящие на нечетных...

Модуль. Записать в один массив элементы, стоящие на чётных местах, а элементы на нечетных - в другой
Вот условие:Запишите подряд в массив К(N) элементы заданного массива С(2*N), стоящие на чётных...

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

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

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


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

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

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