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

Переписать в файл V все чётные положительные числа из файла в убывающем порядке

30.05.2014, 01:07. Показов 663. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа из файла в убывающем порядке. Найти их сумму.

Добавлено через 21 час 21 минуту
Решите задачу. Срочно нужно. Пожалуйста.

Добавлено через 9 часов 22 минуты
Решите пожалуйста.

(Перенесено из раздела "Паскаль")
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2014, 01:07
Ответы с готовыми решениями:

Переписать в файл V все чётные положительные числа из файла в убывающем порядке
Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа...

Переписать все числа из одного файла в другой файл в порядке возрастания
В файле записаны несколько чисел.Напишите программу,которая запишет все числа в другой файл в...

Переписать все вложеные числа файла в массив в этом же порядке
Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все вложеные числа файла...

Распечатать в убывающем порядке все цифры, входящие в десятичную запись натурального числа N.
Помогите сделать задач: Распечатать в убывающем порядке все цифры входящие в десятичную запись...

8
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
30.05.2014, 01:50 2
формируете файл. далее в массив или строку читаете чётные положительные. далее с конца строки или массива пишете в новый файл. в чём проблема-то?
0
1 / 1 / 0
Регистрация: 22.01.2014
Сообщений: 99
30.05.2014, 13:33  [ТС] 3
так напишите эту задачу. Я просто сам не могу написать её, не понимаю эту тему, поэтому прошу чтобы написали саму задачу.
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
30.05.2014, 17: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
23
24
25
26
27
28
29
30
var
  f, g : Text;
  mass : array of ShortInt;
  a : ShortInt;
  i, n : Byte;
  
begin
  Randomize;
  Assign(f, 'fff'); ReWrite(f);
  Write('Input n='); ReadLn(n);
  SetLength(mass, n);
  for i := 0 to n-1 do
    WriteLn(f, Random(201) - 100);
  Close(f); Reset(f);
  SetLength(mass, 0);
  while not Eof(f) do
  begin
    ReadLn(f, a);
    if ((a > 0) and (not Odd(a))) then
    begin
      SetLength(mass, Length(mass) + 1);
      mass[Length(mass) - 1] := a;
    end;
  end;
  Close(f);
  Assign(g, 'ggg'); ReWrite(g);
  for i := Length(mass) - 1 downto 0 do
    WriteLn(g, mass[i]);
  Close(g);
end.
1
1 / 1 / 0
Регистрация: 22.01.2014
Сообщений: 99
31.05.2014, 11:52  [ТС] 5
Спасибо вам большое.
0
1 / 1 / 0
Регистрация: 22.01.2014
Сообщений: 99
02.06.2014, 14:03  [ТС] 6
А что вот это за ошибка?
Вот в этой строчке mass : array of ShortInt; вот такая ошибка Предполагается "[" или "(."
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
02.06.2014, 16:20 7
Вова59, это говорит о том, что Вы запостили тему в общий раздел, не указав в какой версии Паскаля все надо делать - поэтому Вам и сделали в некой версии Паскаля, которая не очень совместима с Вашей.
0
1 / 1 / 0
Регистрация: 22.01.2014
Сообщений: 99
02.06.2014, 18:36  [ТС] 8
Так можете написать эту программу в Free Pascal?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32878 / 21210 / 8154
Регистрация: 22.10.2011
Сообщений: 36,469
Записей в блоге: 8
03.06.2014, 16:16 9
В FPC приведенный выше код прекрасно компилируется. И работает.
0
03.06.2014, 16:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2014, 16:16
Помогаю со студенческими работами здесь

Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все положительные числа,а потом все отрицательные
Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все...

Из файла f переписать в файл g все числа, являющиеся полными квадратами
Из файла f переписать в файл g все числа, являющиеся полными квадратами.

Переписать компоненты файла f в файл g, сначала положительные, затем отрицательные
Дано файл целых чисел f . Переписать компоненты файла f в файл g так , чтобы сначала были записаны...

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


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

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

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