Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
#1

Создание и обработка типизированных файлов

27.05.2012, 11:51. Просмотров 623. Ответов 4
Метки нет (Все метки)

Сведения о комплектующих компьютера:
- название устройства;
- фирма изготовитель;
- главная техническая характеристика;
- гарантия;
- цена.
Получите сведения о комплектующих компьютера с гарантией до двух лет в порядке убывания цен.
Помогите пожалуйста, осталось сделать только сортировку.
0
Вложения
Тип файла: rar l23_v13.rar (8.6 Кб, 14 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2012, 11:51
Ответы с готовыми решениями:

Обработка типизированных файлов
Дан файл вещественных чисел. Поменять в нем местами минимальный и максимальный...

Чтение-запись типизированных файлов
Доброе время суток! Несколько запутался, прошу вашей помощи. Есть...

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

Обработка файлов XML
Здравствуйте! Никак не пойму в чем ошибка подскажите пожалуйста! Указывает на...

обработка файлов данных
посмотрите что не так с кодом исправьте что не так

4
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
27.05.2012, 19:37  [ТС] #2
помогите
0
alexmcoder
103 / 103 / 74
Регистрация: 27.05.2009
Сообщений: 201
27.05.2012, 20:26 #3
Delphi
1
2
3
4
5
6
7
zapis=record
    name:string[50];
    firm:string[50];
    characteristic:string[50];
    guarantee:string[50];
    cost:string[50];
  end;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
m:array[1..100] of zapis;
i:integer;
changed :boolean;
buf :zapis;
begin
 repeat
   changed:=false;
   for i:=1 to length(m)-1 do
     if strtoint(m[i].cost)<strtoint(m[i+1].cost) then begin
       buf:=m[i];
       m[i]:=m[i+1];
       m[i+1]:=buf;
       changed:=true;
     end;
 until not changed;
 
end;
0
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
28.05.2012, 15:34  [ТС] #4
спасибо. но тут выскакивает ошибка.

Добавлено через 5 часов 51 минуту
помогите
0
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
30.05.2012, 15:34  [ТС] #5
помогите исправить здесь сортировку:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  m:array[1..100] of zapis;
  i:integer;
  changed :boolean;
  buf :zapis;
begin
 repeat
   changed:=false;
   for i:=1 to length(m)-1 do
     if m[i].guarantee<m[i+1].guarantee then
     begin
       buf:=m[i];
       m[i]:=m[i+1];
       m[i+1]:=buf;
       changed:=true;
     end;
 until not changed;
Добавлено через 20 часов 56 минут
помогите
0
30.05.2012, 15:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 15:34

Обработка текстовых файлов.
Помогите, а то я в них вообще запутался.... Добавлено через 1 час 2 минуты...

Пакетная обработка файлов
Нужно переводить большие группы файлов *.txt *.hmtl *.php и т.д. из кодировки...

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


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

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

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