файлы

@wilden · Регистрация: 30.09.2009

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

процедура записи массива в файл
процедура считывания массива с файла

записать массив в файл потом считать его с файла сделать сортировку и записать в файл

@Puporev · 13.10.2009, 15:23

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
uses crt;
var a:array[1..100] of integer;
    f:text;
    n,i,j,x:integer;
    s:string;
begin
clrscr;
randomize;
assign(f,'massiv.txt');
rewrite(f);
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
writeln(f,'Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(' ',a[i]);
  write(f,' ',a[i]);
 end;
writeln;
reset(f);
readln(f,s);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f);
writeln('Масив из файла:');
for i:=1 to n do
write(' ',a[i]);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
append(f);
writeln(f,'');
writeln('Массив после сортировки:');
writeln(f,'Massiv posle sortirovki:');
for i:=1 to n do
 begin
  write(' ',a[i]);
  write(f,' ',a[i]);
 end;
writeln;
close(f);
write('Файл Massiv записан!');
readln
end.

@wilden · 13.10.2009, 23:06 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure read(var b:mas;var f:text);
var i:integer;
begin
assign(f,'mass.txt');
reset(f);
while not eof(f) do
 begin
  inc(i);
  read(f,b[i]);
 end;
close(f);
end;

что не так, пре запуске пишет 26: type mismatch
в 9й строчке
mas=array[0..n] of integer

@Puporev · 14.10.2009, 07:04

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

procedure read

Зачем Вы даете название своей процедуры такое, какое уже есть в Паскале? Это нельзя. Назовите по другому, например procedure ReadFile

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@wilden 1 / 1 / 0 Регистрация: 30.09.2009 Сообщений: 17

	файлы 13.10.2009, 14:24. Показов 657. Ответов 3 Метки нет (Все метки) процедура записи массива в файл процедура считывания массива с файла записать массив в файл потом считать его с файла сделать сортировку и записать в файл 0