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

Заполнить линейный массив из текстового файла

29.03.2014, 09:55. Просмотров 978. Ответов 1
Метки нет (Все метки)

Написать программу, которая с помощью различных процедур:
а) Заполняет линейный массив из текстового файла
б) обернуть массив (перевернуть массив относительно середины)
в) записать новый массив в другой файл
Помогите пожалуйста!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2014, 09:55
Ответы с готовыми решениями:

Заполнить одномерный массив данными типа real из текстового файла
Здравствуйте, помогите мне решить задание! Замена элементов файла. В текстовом файле, содержащем...

Заполнить двумерный массив(9 строк на 9 столбцов) логическими значениями из входного текстового файла
помогите пожалуйста написать програмку: Заполнить двумерный массив(9 строк на 9 столбцов)...

Заполнить линейный массив, элементы которого вычисляются по формуле
Заполнить линейный массив, элементы которого вычисляются по формуле a=(5i!-d)/i!-1. Вычисление по...

составить из типизированного файла линейный массив
помогите пожалуйста. буду очень благодарна. Дан типизированный файл, содержащий целые числа....

1
Модератор
62279 / 46553 / 32092
Регистрация: 18.05.2008
Сообщений: 112,542
29.03.2014, 10:09 2
Лучший ответ Сообщение было отмечено Anastasia98 как решение

Решение

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
type mas=array[1..100] of integer;
procedure readfile(var f:text;var a:mas;var n:integer);
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n])
 end;
close(f)
end;
procedure revers(var a:mas;n:integer);
var i,x:integer;
begin
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x
 end;
end;
procedure writefile(var f:text;a:mas;n:integer);
var i:integer;
begin
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
write(f,' ',a[i]);
close(f);
write('Массив обработан и записан в файл output.txt')
end;
var f:text;
    a:mas;
    n:integer;
begin
readfile(f,a,n);
revers(a,n);
writefile(f,a,n);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2014, 10:09

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

Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов
Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его...

получить линейный массив из четных элементов файла
очень нужна помощь. буду очень благодарна. Дан текстовый файл, содержащий целые числа. Получить...

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

ВВести исходный массив из текстового файла
Задача: 1)Дан двумерный массив F(4,6); 2)ВВести исходный массив из текстового файла; 3)Вывести...


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

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

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