динамическая память

@Zeleniy · Регистрация: 24.03.2010

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

Уважаемые эксперты написал программу но со статическими переменными , а необходимо было написать с помощью динамических. помогите пожалуйста переписать

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
program l5;
 
uses crt;
var i,j,kol:word;
    sub:string;
    a: array [1..100] of string;
    fname1, fname2:string;
    buf:char;
    f1,f2:text;
 
  begin
   clrscr;
   writeln('Введите имя входного файла ');
   readln(fname1);
    assign(f1, fname1);
    reset(f1);
    writeln('Введите имя выходного файла ');
    readln(fname2);
    assign(f2,fname2);
    rewrite(f2);
    i:=1;
     while not EOF(f1) do
       begin
        read(f1,buf);
        if (buf<>' ') then a[i]:=a[i]+buf
        else
        inc(i);
        end;
       kol:=i;
       for i:=1 to kol-1 do
           for j:=1 to kol-1 do
           begin
                if a[j]>a[j+1] then
                begin
                     sub:=a[j];
                     a[j]:=a[j+1];
                     a[j+1]:=sub;
                end;
           end;
       for i:=1 to kol do
           writeln(f2,a[i]);
       writeln('TEKCT OTCOPTИPOBAH');
      close(f1);
      close(f2);
    readln;
   end.

@Wizzy · 27.05.2010, 01:32

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
program l5;
 
uses crt;
type tvector=array [1..100] of string;
var i,j,kol:word;
    sub:string;
    a:^tvector;
    fname1, fname2:string;
    buf:char;
    f1,f2:text;
 
  begin
   clrscr;
   writeln('Введите имя входного файла ');
   readln(fname1);
    assign(f1, fname1);
    reset(f1);
    writeln('Введите имя выходного файла ');
    readln(fname2);
    assign(f2,fname2);
    rewrite(f2);
    i:=1;
    new(a);
     while not EOF(f1) do
       begin
        read(f1,buf);
        if (buf<>' ') then a^[i]:=a^[i]+buf
        else
        inc(i);
        end;
       kol:=i;
       for i:=1 to kol-1 do
           for j:=1 to kol-1 do
           begin
                if a^[j]>a^[j+1] then
                begin
                     sub:=a^[j];
                     a^[j]:=a^[j+1];
                     a^[j+1]:=sub;
                end;
           end;
       for i:=1 to kol do
           writeln(f2,a^[i]);
       dispose(a);
       writeln('TEKCT OTCOPTИPOBAH');
      close(f1);
      close(f2);
    readln;
   end.

как-то так

@Zeleniy · 27.05.2010, 01:41 **[ТС]**

Wizzy что то не так он не записывает в файл

@Wizzy · 27.05.2010, 02:09

странно ничего кардинально не изменил... Щас посмотрю...

Добавлено через 17 минут
у меня файл заполняет. Не знаю правильно ли выполняется задача, но на ход решения мои изменения не должны были повлиять та и я ошибки не наблюдаю (

@Zeleniy · 27.05.2010, 02:13 **[ТС]**

Ой это я тупанул по страшному, извини. запустил в не той директории где располагаются файлы для работы. Еще раз извиняюсь и спасибо

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
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. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Zeleniy 0 / 0 / 1 Регистрация: 24.03.2010 Сообщений: 46
	27.05.2010, 01:41 [ТС]
	Wizzy что то не так он не записывает в файл 0

@Wizzy 41 / 40 / 11 Регистрация: 12.11.2009 Сообщений: 115
	27.05.2010, 02:09
	странно ничего кардинально не изменил... Щас посмотрю... Добавлено через 17 минут у меня файл заполняет. Не знаю правильно ли выполняется задача, но на ход решения мои изменения не должны были повлиять та и я ошибки не наблюдаю ( 1

@Zeleniy 0 / 0 / 1 Регистрация: 24.03.2010 Сообщений: 46
	27.05.2010, 02:13 [ТС]
	Ой это я тупанул по страшному, извини. запустил в не той директории где располагаются файлы для работы. Еще раз извиняюсь и спасибо 0