Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные

@Wertys · Регистрация: 29.06.2011

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

Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй - нечетные (в том же порядке). Если числа отсутствуют, оставить файл пустым.

@Puporev · 04.07.2011, 13:48

В принципе задача раз плюнуть, но я не умею определять четность вещественных чисел, например число 2,356 четное или нет?

@Wertys · 04.07.2011, 14:36 **[ТС]**

Хм... А можно сделать путем перевода вещественного в целое?

@p@$#@ · 04.07.2011, 14:41

Сообщение от Wertys

Хм... А можно сделать путем перевода вещественного в целое?

Как 2,1548 в целое перевести. Округлить? А как? Целую часть взять или мат. округление?

@Puporev · 04.07.2011, 14:54

Сообщение от p@$#@

Как 2,1548 в целое перевести.

Да не нужно ничего переводить, просто не бывает четных и нечетных вещественных чисел. Четность или нечетность проверяется или x mod 2, или odd(x), и то и другое работает только с целыми числами.

@Wertys · 04.07.2011, 15:05 **[ТС]**

Не знаю... Я читал, что у вещественных чисел не такого понятия как четное/нечетное. Ну, читал на форуме - может быть и не правда. Чем они так отличаются, что так сложно определить четность? Для меня вещественное число - это число, не обязательно целое, используемое, вроде, в измерениях О_о

Добавлено через 3 минуты
ха) я долгова-то писал

Добавлено через 6 минут
А че делать? Надо с преподом консультироваться.

@p@$#@ · 04.07.2011, 15:20

Сообщение от Puporev

Да не нужно ничего переводить, просто не бывает четных и нечетных вещественных чисел. Четность или нечетность проверяется или x mod 2, или odd(x), и то и другое работает только с целыми числами.

Я знаю, что не бывает (математик всё-таки)

... Просто в таких случаях я спрашиваю: "а не будет подляны с дробными числами" , и в разных случаях по-разному...

@Puporev · 04.07.2011, 15:31

Сообщение от p@$#@

Как 2,1548 в целое перевести. Округлить? А как? Целую часть взять или мат. округление?

Взять целую часть x:=trunc(y); x:integer; y:real;
Округлить x:=round(y);

@Wertys · 05.07.2011, 09:24 **[ТС]**

Ну так сделай для целых, пожалуйста.

@Puporev · 05.07.2011, 09:37

Сделаем компромисс....

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
51
52
53
54
55
56
57
uses crt;
var f1,f2,f3:file of real;
    a:real;
    n,i:integer;
begin
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
assign(f3,'file3');
rewrite(f3);
write('Сколько чисел ввести в файл n=');
read(n);
writeln('Введите в файл ',n,' вещественных чисел с дробной частью и без дробной части:');
for i:=1 to n do
 begin
  write('a',i,'=');
  read(a);
  write(f1,a);
 end;
clrscr;
writeln('Соджержание исходного файла:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a:0:2,' ');
  if frac(a)=0 then
   begin
    if trunc(a) mod 2=0 then write(f2,a);
    if trunc(a) mod 2<>0 then write(f3,a);
   end;
 end;
close(f1);
writeln;
writeln('Содержание файла четных чисел:');
reset(f2);
if filesize(f2)=0 then writeln('Четных чисел нет')
else
 while not eof(f2) do
 begin
  read(f2,a);
  write(a:0:0,' ');
 end;
close(f2);
writeln;
writeln('Содержание файла нечетных чисел:');
reset(f3);
if filesize(f3)=0 then writeln('Нечетных чисел нет')
else
 while not eof(f3) do
 begin
  read(f3,a);
  write(a:0:0,' ');
 end;
close(f3);
end.

@Wertys · 05.07.2011, 09:45 **[ТС]**

Puporev, ты рулишь!))

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94

	Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные 04.07.2011, 13:38. Показов 3803. Ответов 10 Метки нет (Все метки) Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй - нечетные (в том же порядке). Если числа отсутствуют, оставить файл пустым. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	04.07.2011, 13:48
	В принципе задача раз плюнуть, но я не умею определять четность вещественных чисел, например число 2,356 четное или нет? 0

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94
	04.07.2011, 14:36 [ТС]
	Хм... А можно сделать путем перевода вещественного в целое? 0

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94
	04.07.2011, 15:05 [ТС]
	Не знаю... Я читал, что у вещественных чисел не такого понятия как четное/нечетное. Ну, читал на форуме - может быть и не правда. Чем они так отличаются, что так сложно определить четность? Для меня вещественное число - это число, не обязательно целое, используемое, вроде, в измерениях О_о Добавлено через 3 минуты ха) я долгова-то писал Добавлено через 6 минут А че делать? Надо с преподом консультироваться. 0

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94
	05.07.2011, 09:24 [ТС]
	Ну так сделай для целых, пожалуйста. 0

@Wertys 1 / 1 / 0 Регистрация: 29.06.2011 Сообщений: 94
	05.07.2011, 09:45 [ТС]
	Puporev, ты рулишь!)) 0

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные

Решение