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

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

26.10.2013, 13:02. Показов 2788. Ответов 3
Метки нет (Все метки)

Задан файл действительных чисел (создать программным путем). Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными номерами (1, 3, ...), а второй - с четными (0, 2, 4, ...)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2013, 13:02
Ответы с готовыми решениями:

Создать два новых файла, первый из которых содержит элементы исходного файла с четными номерами, а второй — с нечетными.
Дан файл вещественных чисел с именем Name1. Создать два новых файла с именами Name2 и Name3, первый...

Сформировать два массива: в первый включить элементы исходного с четными номерами, а во второй с нечетными
помогите пожалуйста решить задачи=) язык программирования паскаль №2) задан массив а размерности...

Сформировать два массива : в первый включить элементы исходного с черными номерами, во второй с нечетными
Задан массив с количеством элементов n. Сформировать два массива : в первый включить элементы...

Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами
Задан массив размером K. Сформировать два массива, включая в первый четные элементы исходного...

3
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.10.2013, 18:47 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Создание файла
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var f:file of real;
    n,i:integer;
    a:real;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=10*random;
  write(f,a);
 end;
writeln('Файл записан');
readln
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
42
43
uses crt;
var f,g,h:file of real;
    i:integer;
    a:real;
begin
clrscr;
randomize;
assign(f,'fileF');
reset(f);
assign(g,'fileG');
rewrite(g);
assign(h,'fileH');
rewrite(h);
writeln('Содержание исходного файла:');
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  if odd(i)then write(g,a)
  else write(h,a)
 end;
writeln;
writeln;
seek(g,0);
writeln('Содержание файла чисел с нечетными номерами:');
while not eof(g) do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
writeln;
writeln;
seek(h,0);
writeln('Содержание файла чисел с четными номерами:');
while not eof(h) do
 begin
  read(h,a);
  write(a:0:2,' ');
 end;
close(h);
readln
end.
0
4 / 4 / 0
Регистрация: 24.09.2013
Сообщений: 147
26.10.2013, 21:32  [ТС] 3
Можно поподробнее что с этими 2 кодами делать, вот первые запустил, файл записуеться,а второй его куда пихать?
0
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.10.2013, 07:30 4
Цитата Сообщение от kunkka1 Посмотреть сообщение
а второй его куда пихать?
Можешь в одно известное место. А вообще это 2 разные программы.Первая создает типизированный файл действительных чисел, как написано в задании
(создать программным путем)
А вторая программа собственно для выполнения условия задачи
Цитата Сообщение от kunkka1 Посмотреть сообщение
Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными номерами (1, 3, ...), а второй - с четными (0, 2, 4, ...)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2013, 07:30
Помогаю со студенческими работами здесь

Переписать в массив вначале все элементы исходного массива с четными номерами, а затем — с нечетными
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B того же размера...

дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить все элементы с четными номерами на первый элемент.
дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить...

поменять местами элементы с четными и нечетными номерами
поменять местами элементы с четными и нечетными номерами

Поменять местами элементы с четными и нечетными номерами.
Дано 20 чисел. Поменять местами элементы с четными и нечетными номерами.


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

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

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