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

@Вова59 · Регистрация: 22.01.2014

Студворк — интернет-сервис помощи студентам

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

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

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

(Перенесено из раздела "Паскаль")

@JokeR.BY · 30.05.2014, 01:50

формируете файл. далее в массив или строку читаете чётные положительные. далее с конца строки или массива пишете в новый файл. в чём проблема-то?

@Вова59 · 30.05.2014, 13:33 **[ТС]**

так напишите эту задачу. Я просто сам не могу написать её, не понимаю эту тему, поэтому прошу чтобы написали саму задачу.

@JokeR.BY · 30.05.2014, 17:48

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.

@Вова59 · 31.05.2014, 11:52 **[ТС]**

Спасибо вам большое.

@Вова59 · 02.06.2014, 14:03 **[ТС]**

А что вот это за ошибка?
Вот в этой строчке mass : array of ShortInt; вот такая ошибка Предполагается "[" или "(."

@APALoff · 02.06.2014, 16:20

Вова59, это говорит о том, что Вы запостили тему в общий раздел, не указав в какой версии Паскаля все надо делать - поэтому Вам и сделали в некой версии Паскаля, которая не очень совместима с Вашей.

@Вова59 · 02.06.2014, 18:36 **[ТС]**

Так можете написать эту программу в Free Pascal?

@volvo · 03.06.2014, 16:16

В FPC приведенный выше код прекрасно компилируется. И работает.

Новые блоги и статьи Все статьи Все блоги /
Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .

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

	Переписать в файл V все чётные положительные числа из файла в убывающем порядке 30.05.2014, 01:07. Показов 751. Ответов 8 Метки нет (Все метки) Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа из файла в убывающем порядке. Найти их сумму. Добавлено через 21 час 21 минуту Решите задачу. Срочно нужно. Пожалуйста. Добавлено через 9 часов 22 минуты Решите пожалуйста. (Перенесено из раздела "Паскаль") 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	30.05.2014, 01:50
	формируете файл. далее в массив или строку читаете чётные положительные. далее с конца строки или массива пишете в новый файл. в чём проблема-то? 0

@Вова59 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 99
	30.05.2014, 13:33 [ТС]
	так напишите эту задачу. Я просто сам не могу написать её, не понимаю эту тему, поэтому прошу чтобы написали саму задачу. 0

@Вова59 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 99
	31.05.2014, 11:52 [ТС]
	Спасибо вам большое. 0

@Вова59 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 99
	02.06.2014, 14:03 [ТС]
	А что вот это за ошибка? Вот в этой строчке mass : array of ShortInt; вот такая ошибка Предполагается "[" или "(." 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	02.06.2014, 16:20
	Вова59, это говорит о том, что Вы запостили тему в общий раздел, не указав в какой версии Паскаля все надо делать - поэтому Вам и сделали в некой версии Паскаля, которая не очень совместима с Вашей. 0

@Вова59 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 99
	02.06.2014, 18:36 [ТС]
	Так можете написать эту программу в Free Pascal? 0

@volvo Супер-модератор 33169 / 21461 / 8224 Регистрация: 22.10.2011 Сообщений: 36,816 Записей в блоге: 10
	03.06.2014, 16:16
	В FPC приведенный выше код прекрасно компилируется. И работает. 0

Опции темы