С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
1Set
1 / 1 / 0
Регистрация: 21.10.2015
Сообщений: 14
1

Сведения об автомобилях

25.05.2016, 16:24. Просмотров 93. Ответов 5
Метки нет (Все метки)

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

Delphi
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
TCar = Record
       carbrand:string[15];
       registr:string[15];
       lastname:string[15];
       date:string[15];
     End;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b:array of TCar;
      i,j,k,n,m:integer;
      found:boolean;
begin
  n:=Spinedit1.Value;
  SetLength(a,n);
 
  for i := 1 to n-1 do
      begin
        a[i].carbrand:=stringgrid1.cells[1,i];
        a[i].registr:=stringgrid1.cells[2,i];
        a[i].lastname:=stringgrid1.cells[3,i];
        a[i].date:= stringgrid1.Cells[4,i];
      end;
 
    repeat                                              // сравнивается не корректно, подскажите, что подправить               
      if (a[i].carbrand=edit1.Text) then found:=true else i:=i+1;
    until i>(n-1);
  
//если "марка авто" введенная в Едит1 = "марке авто" в СтрингГрид1, как вывести эту строку из массива в СтрингГрид2??
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    StringGrid1.Cells[0,0]:= '   #';
    StringGrid1.Cells[1,0]:= 'Марка';
    StringGrid1.Cells[2,0]:= 'Номерной знак';
    StringGrid1.Cells[3,0]:= 'Фамилия';
    StringGrid1.Cells[4,0]:= 'Дата тех осмотра';
 
    StringGrid2.Cells[1,0]:= 'Марка';
    StringGrid2.Cells[2,0]:= 'Номерной знак';
    StringGrid2.Cells[3,0]:= 'Фамилия';
    StringGrid2.Cells[4,0]:= 'Дата тех осмотра';
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2016, 16:24
Ответы с готовыми решениями:

Сведения об автомобилях
помогите решить задачу... Пожалуйста... Сведения об автомобилях: - марка;...

Сведения об автомобилях,продаваемых в авто магазине,содержат следующие атрибуты
Сведения об автомобилях,продаваемых в авто магазине,содержат следующие...

Массив из данных типа "запись" (record) содержит сведения о выставленных на продажу автомобилях
кто-нибудь может пожалуйста помочь вот с этой программой в делфи. массив из...

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

Файл содержит сведения об автомобилях: марка, год выпуска, фамилия владельца и номер. Выведите сведения об автомобилях задаваемой марки и определите их средний возраст. Среди всех автомобилей найдите
Файл содержит сведения об автомобилях: марка, год выпуска, фамилия владельца и...

5
DenNik
Непрофессионал
2014 / 1500 / 308
Регистрация: 26.07.2011
Сообщений: 8,134
25.05.2016, 16:27 2
ну во-первых, для даты применить тип TDateTime
0
1Set
1 / 1 / 0
Регистрация: 21.10.2015
Сообщений: 14
25.05.2016, 16:32  [ТС] 3
Цитата Сообщение от DenNik Посмотреть сообщение
ну во-первых, для даты применить тип TDateTime
в Record изменить date:string на date:TDateTime?
0
Пытливый
1381 / 692 / 249
Регистрация: 29.05.2013
Сообщений: 3,120
25.05.2016, 17:14 4
Delphi
1
2
3
repeat                                              // сравнивается не корректно, подскажите, что подправить               
      if (a[i].carbrand=edit1.Text) then found:=true else i:=i+1;
    until i>(n-1);
при a[i].carbrand=edit1.Text будет бесконечный цикл
0
1Set
1 / 1 / 0
Регистрация: 21.10.2015
Сообщений: 14
25.05.2016, 17:21  [ТС] 5
Цитата Сообщение от Пытливый Посмотреть сообщение
при a[i].carbrand=edit1.Text будет бесконечный цикл
до i>n-1 ничего не меняет?
подскажите, что изменить
0
Пытливый
1381 / 692 / 249
Регистрация: 29.05.2013
Сообщений: 3,120
25.05.2016, 17:45 6
А как проверка что-то может изменить если i при этом никак не меняется, следовательно будет бесконечный цикл.
0
25.05.2016, 17:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2016, 17:45

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

Описать сведения об автомобилях
Создать файл, в котором есть таблица описывающая: 1) Порядковый номер 2)...

Описать сведения об автомобилях
Создать файл, в котором есть таблица описывающая: 1) Порядковый номер 2)...


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

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

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