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

Во второй массив записать только данные тех из них, кто взял телевизор

31.05.2016, 18:04. Показов 1282. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
. Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом, квартира) и что взял (только один предмет). Во второй массив записать только данные тех из них, кто взял телевизор.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2016, 18:04
Ответы с готовыми решениями:

Во второй массив записать данные только тех из них, кто на сегодняшний день проработал не менее 5 лет
1.Дан массив о работающих в фирме: фамилия, имя, отчество, адреч ( улица, дом, квартира) и дата...

Во второй массив записать только данные тех из клиентов, кто взял телевизор
2. Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом,...

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

Пункт проката: напечатать данные тех, кто взял телевизор
Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом, квартира) и...

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
31.05.2016, 18:52 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
type
    TName = record
        firstName, lastName, patronymic: String[50];
    end;
    TAddress = record
        street: String[50];
        building: String[4];
        apartment: Word;
    end;
    TClient = record
        name: TName;
        address: TAddress;
        obj: String;
    end;
    TArray = Array[Byte] Of TClient;
var
    a, b: TArray;
    i, na, nb: Byte;
    searchParam: String;
begin
    repeat
        Write('Input client'#39's count =');
        ReadLn(na);
    until (na > 0);
    for i := 0 to na - 1 do
        with a[i] do
        begin
            with name do
            begin
                Write(#9'First name: '); ReadLn();
                Write(#9' Last name: '); ReadLn();
                Write(#9'Patronymic: '); ReadLn();
            end;
            with address do
            begin
                Write(#9'     Street name: '); ReadLn();
                Write(#9' Building number: '); ReadLn();
                Write(#9'Apartment number: '); ReadLn();
            end;
            Write(#9'Object: '); ReadLn(obj);
            WriteLn('-----');
        end;
    Write('Input search parameter (some object): '); ReadLn(searchParam);
    nb := 0;
    for i := 0 to na - 1 do
        if (a[i].obj = searchParam)
        then
        begin
            b[nb] := a[i];
            Inc(nb);
        end;
    WriteLn('----------');
    for i := 0 to nb - 1 do
        with b[i].name do
            WriteLn(i + 1, '. ', firstName, ' ', lastName, ' ', patronymic);
end.
Добавлено через 52 секунды
можно было бы добавить перечисляемый тип, если перечень возможных "для взятия" вещей конечен и определён.
0
31.05.2016, 18:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2016, 18:52
Помогаю со студенческими работами здесь

Во второй массив записать данные только о тех рабочих, кто на сегодняшний день проработал не менее 5 лет
Дан массив данных о работающих в фирме: фамилия, имя, отчество, адрес (улица,дом,квартира) и дата...

Записать во второй массив данные тех работников, кто на сегодняшний день проработал уже не менее 5 лет
помогите с программой procedure TForm22.Button1Click(Sender: TObject); begin close; end;...

Записать массив данные только тех работников предприятия, кто на сегодняшний день уже проработал не менее 5 лет
Дан массив данных о работающих на предприятии: фамилия, имя, отчество, адрес (улица, дом, квартира)...

Из имеющегося списка спортсменов распечатать данные о тех из них, кто занимается плаванием
Привет всем завтра экзамен и нужно решить 3 задачи на Паскале.Прошу помочь мне.Буду очень...


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

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

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