0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 23
1

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

03.06.2014, 03:33. Показов 1725. Ответов 1
Метки нет (Все метки)

Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке.
Прошу помощи профессионалов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2014, 03:33
Ответы с готовыми решениями:

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

Найти фамилии владельцев и номера автомобилей данной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и...

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

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

1
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,518
Записей в блоге: 1
03.06.2014, 08:40 2
Лучший ответ Сообщение было отмечено lInfernol как решение

Решение

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
Const l='------------------------------------------------';
Type avto=Record
      marka:string[15];
      nomer:string[8];
      fam:string[15];
     End;
Var f:file of avto;
    i,n,k:byte;
    st:avto;
    s:string;
Begin
    Assign(f,'in.dat');Rewrite(f);
    write('Количество автомобилей: ');readln(n);
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' автомобиле');
      write('Марка: ');readln(st.marka);
      write('Номер: ');readln(st.nomer);
      write('Фамилия владельца: ');readln(st.fam);
      write(f,st);
    End;
    Reset(f);
    write('Марка автомобиля: ');readln(s);
    writeln(l);
    writeln('|      Марка    |  Номер  |  Фамилия владельца |');
    writeln(l);
    While not Eof(f) do
    Begin
      read(f,st);
      if st.marka=s then
      Begin
        writeln('|',st.marka:15,'|',st.nomer:8,'|':2,st.fam:15,'|':6);
        inc(k);
      End;
    End;
    if k=0 then writeln('Нету автомобилей с маркой ',s);
    writeln(l);
    Close(f);
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2014, 08:40
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru