Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 14.12.2015
Сообщений: 5
1

Описать сведения о записной книжке

13.01.2016, 18:23. Просмотров 1015. Ответов 1

Пожалуйста, помогите с этим заданием

1. Описать файл записей с именем note.dat, содержащий следующие поля: фамилия, имя, номер телефона, день рождения (массив из трех чисел).
2. Написать программу, выполняющую следующие действия:
  • ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Note, с упорядочением записей по алфавиту;
  • вывод на экран информации о людях, чьи дни рождения приходятся на месяц, значение которого введено с клавиатуры, а если таких нет - вывод на экран соответствующего сообщения;
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2016, 18:23
Ответы с готовыми решениями:

Определить, есть ли в записной книжке NB сведения о знакомом F
I) Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с одной буквы...

Определить, есть ли в записной книжке z сведения о знакомом с фамилией f
помогите пожалуйста решить задачку в турбо паскале, очень прошу, вот: type slovo=packed array...

Найти в записной книжке телефон по фамилии
5 В записной книжке указаны фамилии и номера телефонов 30-ти человек. Составить программу которая...

Структуры в С++. Определить, есть ли информация в записной книжке.
7. В записной книжке указаны фамилии и номера телефонов 10 человек. Определить, есть ли в записной...

1
1 / 1 / 2
Регистрация: 22.10.2015
Сообщений: 2
17.01.2016, 20:34 2
Лучший ответ Сообщение было отмечено marselnuris как решение

Решение

Задание странное очень.
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
type      rec = record
          surname: string[20];
          name: string[20];
          tel: integer;
          dr: array [1..3] of integer;
          end;
var n,nmenu,i,j: integer;k:byte; vmas: array [1..8] of rec;s:boolean;
f1:file of rec;
v:rec;
label T;
begin
k:=0;
assign(f1,'Note.dat');
reset(f1);
while not eof(f1) do begin
read(f1,vmas[k+1]);
k:=k+1;
end;
close(f1);
T:
 n:=1;
     writeln       ('____________________________');
     writeln       ('|           MENU           |');
     writeln       ('| 1) Ввод данных           |');
     writeln       ('| 2) Вывод людей с др      |');
     writeln       ('| в выбранном месяце       |');
     writeln       ('| 3)Вывод по алфавиту      |');
     writeln       ('| 0) Выход                 |');
     writeln       ('____________________________');
     
     while n>0 do
  begin
     writeln ('выберите пункт меню');
     readln  (nmenu);
     
     case nmenu of
       1: //Ввод
       begin
       reset(f1);
       writeln('Введите фамилию');
       readln(v.surname);
       writeln('Введите Имя');
       readln(v.name);
       writeln('Введите телефон');
       readln(v.tel);
       writeln('Введите день рождения через пробел');
       readln(v.dr[1],v.dr[2],v.dr[3]);
       seek(f1,k);
       write(f1,v);  
       close(f1);
        goto T;
       end;
       2:begin 
       writeln('Введите месяц в цифровом представлении, например "01"');
       readln(j);
       s:=false;
       for i:=1 to 8 do 
        if vmas[i].dr[2]=j then begin
        s:=true;
        writeln('День рождения этого человека во введенном месяце',vmas[i].surname,vmas[i].name)
        end;
       if s=false then writeln('Нет таких людей');
       goto T;
       end;
       3:begin
       for j:=1 to 8 do 
       for i:=1 to 7 do
        if vmas[i].surname>vmas[i+1].surname then begin
        v:=vmas[i+1];
        vmas[i+1]:=vmas[i];
        vmas[i]:=v;
        end;
       for i:=1 to 8 do 
       if vmas[i].tel<>0 then
       writeln(vmas[i].surname,vmas[i].name,vmas[i].tel,vmas[i].dr);
       goto T;
       end;
       0:exit;
       end;
       end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2016, 20:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Записи. Определить, есть ли в записной книжке телефон некоторого человека
№1. В записной книжке указаны фамилии и номера телефонов 30-ти человек. Составить программу: а)...

Поиск элементов в "Записной книжке"
Есть прожка для &quot;записной книги&quot;. Все заполняется, выводится. Не могу реализовать поиск по книге....

Создайте файл Kniga, содержащий сведения из записной книжки
3. Создайте файл Kniga, содержащий сведения из записной книжки (фамилия, имя, отчество, номер...

Описать сведения о персонах
Помогите пожалуйста. 1. Описать комбинированный тип данных для представления следующего понятия...


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

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

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