Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
unkl
0 / 0 / 0
Регистрация: 21.03.2011
Сообщений: 5
1

По заданному регистрационному номеру автомобиля выдать фамилию владельца

21.03.2011, 14:49. Просмотров 802. Ответов 1
Метки нет (Все метки)

Здравствуйте. Нужна помощь. Нужно сделать на pascal:
"Cформировать файл следующей структуры: марка автомобиля, фамилия владельца, адрес, регистрационный номер буква ХХХХ буква буква....
Использую сформированный файл, выдавать:
Список автомобилей заданной марки и цвета
Список автомобилей, у которых в регистрационном номере есть цифра и буква
По заданному регистрационному номеру выдавать фамилию владельца."
Если можно, то еще и блок-схему.
Заранее спасибо.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2011, 14:49
Ответы с готовыми решениями:

По номеру квартиры выдать фамилию её владельца
Составить программу, которая по номеру квартиры выдает фамилию ее владельца.

Выбрать из списка автовладельцев фамилию владельца, его адрес, госномер автомобиля " мерседес " белого цвета
составить программу выбирающую из списка автовладельцев фамилию владельца, его адрес, госномер...

По порядковому номеру ЭВМ выдать фамилию и инициалы работающего за ней человека.
Надо решить такую зада4ку... Составить программу для выполнения указанного ниже задания,...

Оператор варианта CASE: По номеру варианта выдать фамилию учащегося вашей группы
По номеру варианта выдать фамилию учащегося вашей группы. Фамилии любые

По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева направо и снизу вверх.По...

1
kofee"k
107 / 107 / 91
Регистрация: 08.01.2011
Сообщений: 171
22.03.2011, 09:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
program tt;
uses crt;
type Owner=record
  Marka:string[20];
  familia:string[15];
  adres:string[25];
  nomer:string[7];
  color:string[10];
end;
var
  karta:owner;
  f:file of owner;
  n:byte;
  fname:string;
  color_:string;
  marka_:string;
  nomer_:string;
  ch:char;
 
 
procedure enter(fname:string);
var
  ch1:char;
begin
  ClrSCr;
  {$I-}
  assign(f,fname);
  reset(f);
  {$I+}
  if IOResult<>0 then begin
    writeln('Фаил не найден, он был создан');
    rewrite(f);
  end
  else
    reset(f);
  while ch1<>'н' do begin
    ClrSCr;
    seek(f,FileSize(f));
    write('Введите фамилию владельца: ');
    readln(karta.familia);
    write('Введите адрес владельца: ');
    readln(karta.adres);
    write('Введите марку автомобиля: ');
    readln(karta.marka);
    write('Введите регистрационный номер: ');
    readln(karta.nomer);
    write('Введите цвет автомобиля: ');
    readln(karta.color);
    write(f,karta);
    writeln('Данные внесены в файл');
    write('Повторить ввод? (д/н)');
    readln(ch1);
  end;
  writeln('Для возврата в главное меню нажмите Enter');
  readln;
  close(f);
end;
 
procedure find_color_mark(fname:string; color_:string;marka_:string);
var
  j:boolean;
begin
   ClrSCr;
   j:=false;
  {$I-}
  assign(f,fname);
  reset(f);
  {$I+}
  if IOResult<>0 then
    writeln('Фаил не найден')
  else
    while not eof(f) do begin
       read(f,karta);
         if (karta.color=color_)and(karta.marka=marka_) then begin
           j:=true;
           writeln('Фамилия владельца: ',karta.familia);
           writeln('Адрес владельца: ',karta.adres);
           writeln('Марка автомобиля: ',karta.marka);
           writeln('Регистрационный номер: ',karta.nomer);
           writeln('Цвет автомобиля: ',karta.color);
           writeln;
         end;
    end;
   if j=false then writeln('Записи не найдены');
   writeln('Для возврата в главное меню нажмите Enter');
   readln;
   close(f);
end;
 
procedure find_nomer(fname:string;nomer_:string);
var
  k:boolean;
begin
  ClrScr;
  k:=false;
  {$I-}
  assign(f,fname);
  reset(f);
  {$I+}
  if IOResult<>0 then
    writeln('Фаил не найден')
  else
    while not eof(f) do begin
       read(f,karta);
         if karta.nomer=nomer_ then begin
           k:=true;
           writeln('Фамилия владельца: ',karta.familia);
           writeln('Регистрационный номер: ',karta.nomer);
           writeln;
         end;
    end;
   if k=false then writeln('Записи не найдены');
     writeln('Для возврата в главное меню нажмите Enter');
   readln;
   close(f);
end;
 
BEGIN
  repeat
  ClrSCr;
  writeln('1.Создать фаил');
  writeln('2.Поиск по цвету и марке авто');
  writeln('3.Поиск по регистрационному номеру');
  writeln('4.Выход');
  ch:=readkey;
  case ch of
    #49:begin
        ClrSCr;
        write('Путь и имя файла: ');
        readln(fname);
        enter(fname);
      end;
    #50:begin
         ClrSCr;
         write('Путь и имя файла: ');
         readln(fname);
         write('Цвет автомобиля: ');
         readln(color_);
         write('Марка автомобиля: ');
         readln(marka_);
         find_color_mark(fname,color_,marka_);
       end;
    #51:begin
        ClrScr;
        write('Путь и имя файла: ');
        readln(fname);
        write('Регистрационный номер: ');
        readln(nomer_);
        find_nomer(fname,nomer_);
      end;
  end;
  until ch=#52;
  exit;
END.
Добавлено через 1 минуту
Цитата Сообщение от unkl Посмотреть сообщение
Список автомобилей, у которых в регистрационном номере есть цифра и буква
Но по заданию....
Цитата Сообщение от unkl Посмотреть сообщение
регистрационный номер буква ХХХХ буква буква
Значит это все записи....
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2011, 09:50

По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева напрпаво и снизу вверх.По...

По заданному номеру номеру масти м и номеру достоинства карты к определить полное название карты
Мастям игральных карт условно присвоены следующие порядковые номера:пики-1, трефы-2 , бубны-3,...

Вывести имя владельца автомобиля по его номеру
#include &lt;iostream&gt; #include &lt;string&gt; using namespace std; struct Info{ char name_car; int...


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

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

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