Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
1

Сформировать файл, элементами которого являются массивы вещественных чисел, введенных с клавиатуры

23.02.2012, 21:42. Просмотров 1780. Ответов 6
Метки нет (Все метки)

Составить программы, с помощью которых:
-софрмировать файл, элементами которого являются массивы вещественных чисел, введенных с клавиатуры;
-добавить в файл компоненту, номер и значения которой ввести с клавиатуры.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2012, 21:42
Ответы с готовыми решениями:

Сформировать файл ,элементами которого является массивы вещественных чисел
помогите составить программу на паскаль составить программы с помощью которых; сформировать...

Файл: Сформировать новый файл, элементами которого являются числа а1, а1•а2, а1•а2•а3,..., al•a2•a3•...•an.
Записать в файл последовательного доступа n натуральных чисел: a1, a2,..., an (числа получить с...

Создать файл F, элементами которого являются целочисленные массивы
Создать файл F, элементами которого являются целочисленные массивы a1a2…a5. Для каждого массива...

Файл: Сформировать файл, элементами которого являются числа а1, а1 * а2, а1 * а2 *а3, ..., а1 *а2 * а3 * ... * аN.
Записать в файл последовательность натуральных чисел: а1, а2, ..., аn (числа получить с помощью...

6
trainspotting
1084 / 484 / 384
Регистрация: 11.11.2010
Сообщений: 773
24.02.2012, 00:09 2
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
58
59
60
61
62
63
64
65
66
const
  sizeMax=10;
type
  realArr=array[1..sizeMax] of real;
  fileRealArr=file of realArr;
var
  f:fileRealArr;
  a,b:realArr;
  i,j,nComp,insertComp,arrSize:integer;
begin
  write('Kolichestvo komponent faila=');
  readln(nComp);
  repeat
    write('Razmer massiva-komponenty, ne bolee ',sizeMax,'=');
    readln(arrSize);
  until arrSize in [1..sizeMax];
  assign(f,'1.dat');
  rewrite(f);
  for i:=1 to nComp do
    begin
      writeln('Vvedite elementy ',i,' massiva-komponenty faila');
      for j:=1 to arrSize do
        begin
          write('[',j,']=');
          readln(a[j]);
        end;
      write(f,a);
    end;
  writeln('Soderhzanie ishodnogo faila');
  seek(f,0);
  while not eof(f) do
    begin
      read(f,a);
      for j:=1 to arrSize do
        write(a[j]:6:1);
    end;
  writeln;
  repeat
    write('Vvedite nomer komponenty dlya vstavki [0..',nComp-1,']=');
    readln(insertComp);
  until insertComp in [0..nComp-1];
  writeln('Vvedite znacheniya komponenty dlya vstavki');
  for j:=1 to arrSize do
    begin
      write('[',j,']=');
      readln(b[j]);
    end;
  for i:=filesize(f) downto insertComp+1 do
    begin
      seek(f,i-1);
      read(f,a);
      seek(f,i);
      write(f,a);
    end;
  seek(f,insertComp);
  write(f,b);
  seek(f,0);
  writeln('Soderzhimoe faila posle vstavki');
  while not eof(f) do
    begin
      read(f,a);
      for j:=1 to arrSize do
        write(a[j]:6:1);
    end;
  close(f);  
end.
2
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
08.03.2012, 00:57  [ТС] 3
можно эту программу разбить на 2 ?
0
trainspotting
1084 / 484 / 384
Регистрация: 11.11.2010
Сообщений: 773
08.03.2012, 01:57 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
31
32
33
34
const
  sizeMax=5;{количество элементов в массиве}
type
  realArr=array[1..sizeMax] of real;
  fileRealArr=file of realArr;
var
  f:fileRealArr;
  a:realArr;
  i,j,nComp:integer;
begin
  write('Kolichestvo komponent faila=');
  readln(nComp);
  assign(f,'1.dat');
  rewrite(f);
  for i:=1 to nComp do
    begin
      writeln('Vvedite elementy ',i,' massiva-komponenty faila');
      for j:=1 to sizeMax do
        begin
          write('[',j,']=');
          readln(a[j]);
        end;
      write(f,a);
    end;
  writeln('Soderhzanie ishodnogo faila');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      for j:=1 to sizeMax do
        write(a[j]:6:1);
    end;
  close(f);
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
const
  sizeMax=5;
type
  realArr=array[1..sizeMax] of real;
  fileRealArr=file of realArr;
var
  f:fileRealArr;
  a,b:realArr;
  i,insertComp:integer;
begin
  assign(f,'1.dat');
  reset(f);
  repeat
    write('Vvedite nomer komponenty dlya vstavki [0..',filesize(f)-1,']=');
    readln(insertComp);
  until insertComp in [0..filesize(f)-1];
  writeln('Vvedite znacheniya komponenty dlya vstavki');
  for i:=1 to sizeMax do
    begin
      write('[',i,']=');
      readln(b[i]);
    end;
  for i:=filesize(f) downto insertComp+1 do
      begin
        seek(f,i-1);
        read(f,a);
        seek(f,i);
        write(f,a);
      end;
    seek(f,insertComp);
    write(f,b);
  reset(f);
  writeln('Soderzhimoe faila posle vstavki');
  while not eof(f) do
    begin
      read(f,a);
      for i:=1 to sizeMax do
        write(a[i]:6:1);
    end;
  close(f);
end.
размер массивов через константу, иначе, не зная размера и типа массива, его из типизированного файла не прочитать.
1
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
08.03.2012, 17:30  [ТС] 5
подскажите пожалуйста,в чем смысл этой программы? я так и не пойму(результат получается(например) 1.0 4.0 6.0 и т.д
0
trainspotting
1084 / 484 / 384
Регистрация: 11.11.2010
Сообщений: 773
08.03.2012, 17:47 6
Файл типизированный, его компоненты - массивы чисел, файл заполняем массивами вручную. После этого получаем на вход еще один массив и вставляем элементы полученного массива в файл на указанное место, сдвигая остальные компоненты - массивы(нумерация компонентов нач. с нуля).
1
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
15.03.2012, 20:32  [ТС] 7
(по условию)"""**номер**""" и значения которой ввести с клавиатуры (ПОДСКАЖИТЕ ПОЖАЛУЙСТА , НОМЕР ( что он нам дает? и где в программе эта команда?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2012, 20:32

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать файл последовательного доступа, элементами которого являются числа a1, a1*a2, a1*a2*a3,........,a1*a2*a3*......an
Записать в файл последовательность доступа N натуральных чисел: a1, a2,a3....an (числа получить с...

Сформировать файл, элементами которого являются двенадцать первых членов последовательности Фибоначчи
Кто может решити задачи я не разбираюсь в этом языке программирования 1. Сформировать файл,...

Сформировать массив B(m), элементами которого являются большие из двух рядом стоящих в массиве А чисел
Дан массив А(n). Сформировать массив B(m), элементами которого являются большие из двух рядом...

Сформировать массив В, элементами которого являются большие из двух рядом стоящих в массиве А чисел
Задание: Дан массив A(N). Сформировать массив В(М), элементами которого являются большие из двух...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.