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

Создать файл f1 из целых чисел...

10.03.2009, 20:44. Просмотров 810. Ответов 5
Метки нет (Все метки)

Создать файл f1 из целых чисел. Записать в файл f2 наибольшее из первых 5 компонент, затем из следующих 5 и т.д. Последняя группа может содержать меньше десяти компонент.
Общее примечание.
В данной лабораторной работе необходимо сделать типизированный файл, где каждой компонентой будет число, массив или матрица. Количество компонент заранее не определено, поэтому, при обработке файла необходимо использовать либо булевское значение функции EOF (конец файла), либо значение функции FILESIZE (размер файла).
Сами значения каждой компоненты можно задавать генератором случайных чисел.
Вывод исходного файла и файла с результатами сделать процедурой (и, если файлы одного типа, то одной процедурой).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2009, 20:44
Ответы с готовыми решениями:

Создать файл целых чисел, определить суммы чисел до локальных минимумов, записав их в новый файл
Локальным минимумом является число, у которого соседние значения слева и справа...

Создать целочисленный файл с помощью гениратора целых чисел через процедуру
Нужно создать целочисленный файл, с помощью гениратора целых чисел , сделать...

Написать программу, которая создает файл целых чисел, а затем формирует список целых чисел файла
Написать программу, которая создает файл целых чисел, а затем формирует список...

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

Создать типизированный файл, куда записать n целых чисел. Из файла создать
Создать типизированный файл, куда записать n целых чисел. Из файла создать...

5
Arriba
255 / 171 / 27
Регистрация: 17.10.2008
Сообщений: 770
10.03.2009, 23:13 2
Поясни почему последняя группа может содержать менее десяти компонент а не пяти? Может ты ошиблась?
0
Liza
1 / 1 / 0
Регистрация: 01.02.2009
Сообщений: 14
11.03.2009, 16:30  [ТС] 3
Да, меньше пяти
0
Liza
1 / 1 / 0
Регистрация: 01.02.2009
Сообщений: 14
12.03.2009, 17:22  [ТС] 4
АП
0
Батыр
0 / 0 / 0
Регистрация: 17.01.2016
12.03.2009, 17:40 5
А можно без процедуры?
0
Arriba
255 / 171 / 27
Регистрация: 17.10.2008
Сообщений: 770
12.03.2009, 21:40 6
Liza, вот твоя програмка решёная...
Я чуток пояснил даже, тестируй и проверяй или пользуйся...
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
program Project2;
 
procedure ReadDataFile(FileName:string);
var i,vrem:integer;
    t:file of integer;
begin
    Assign(t,FileName);
    Reset(t);
     for i:=1 to FileSize(t) do
      begin
         Read(t,vrem);
         Write(vrem,' ');
      end;
    Close(t);
end;
 
var
    t1,t2:file of integer;
    i,j,k,max:integer;
    Number,Chisl,vrem:integer;
    mas:array[1..5] of integer;
begin
     {Начало 1}{Запрашиваем число чисел и записываем
      в фаил  "f1.txt" }
    Assign(t1,'f1.txt');
    ReWrite(t1);
    Write('Number=');
    ReadLn(Number);
    vrem:=0;
      if Number>=1 then
        for i:=1 to Number do
          begin
             Write('Number[', i ,']=');
             ReadLn(vrem);
             Write(t1,vrem);
          end;
    Close(t1);
      {Конец 1}
    ReadDataFile('f1.txt'); {выводим значения из "f1.txt" }
    WriteLn;
    Assign(t1,'f1.txt');
    Reset(t1);
    Assign(t2,'f2.txt');
    ReWrite(t2);
    Chisl:=FileSize(t1) div 5;
     if Chisl<>0 then
       begin
          {Начало 2} {если у нас чисел больше пяти штук}
          for i:=1 to Chisl do
           begin
               for j:=1 to 5 do
                begin
                   Read(t1,vrem);
                   mas[j]:=vrem;
                end;
              {Определение максимума}
          max:=mas[1];
          mas[1]:=-9999;
           for k:=2 to 5 do
        begin
            if max<mas[k] then
              max:=mas[k];
           mas[k]:=-9999;
                end;
              Write(t2,max);{максимум из 5 в фаил}
              {Конец определение максимума}
           end;
         {вдруг осталось ещё что нить}
        if (FileSize(t1)-Chisl*5)<>0 then
         begin
             for j:=1 to (FileSize(t1)-Chisl*5) do
               begin
                   Read(t1,vrem);
                   mas[j]:=vrem;
               end;
         {Конец вдруг осталось ещё что нить}
              {Определение максимума для вдруг}
            max:=mas[1];
        mas[1]:=-9999;
          for k:=2 to (FileSize(t1)-Chisl*5) do
        begin
            if max<mas[k] then
              max:=mas[k];
          mas[k]:=-9999;
                end;
            Write(t2,max);
              {Конец определение максимума для вдруг}
         end;
            {Конец 2}
       end
     else
       begin
           {Начало 3} {Если изначально число чисел меньше 5}
           for j:=1 to (FileSize(t1)-Chisl*5) do
             begin
                Read(t1,vrem);
                mas[j]:=vrem;
             end;
          max:=mas[1];
      mas[1]:=-9999;
          for k:=2 to (FileSize(t1)-Chisl*5) do
        begin
            if max<mas[k] then
              max:=mas[k];
          mas[k]:=-9999;
                end;
            Write(t2,max);
           {Конец 3}
       end;
    Close(t2);
    Close(t1);
    WriteLn('Max:');
    ReadDataFile('f2.txt'); {выводим значения из "f2.txt"---Максимумы}
    ReadLn;
end.
1
12.03.2009, 21:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2009, 21:40

Создать типизированный файл целых чисел, скопировать во 2 файл из исходного записи, хранящие простые числа
создать типизированный файл целых чисел, скопировать во 2 файл из исходного...

Создать файл из 100 целых чисел, лежащих на отрезке [150,9000], используя генератор случайных чисел
Создать файл из 100 целых чисел, лежащих на отрезке , используя...

Создать файл f1 из целых чисел
Создать файл f1 из целых чисел. Записать в файл f2 наибольшее из первых 5...


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

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

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