Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Возврат назад в главное меню из подпункта меню https://www.cyberforum.ru/ cpp-beginners/ thread625064.html
Добрый вечер, подскажите пожалуйста, как организовать многоуровневое меню? А конкретно, надо из подменю вернуться в предыдущее меню. Я сделал основное, затем подменю, а вот выйти назад из него не...
constexpr static functions C++
Почему нижеприведенный код не работает на gcc 4.7.1.? собственно как и на clang #include <iostream> class C1 { public: static constexpr int foo(int x) { return x + 1;
Копирование массива char в буфер обмена компьютера C++
Здравствуйте. Нужно, чтобы программа могла скопировать какой-либо массив char или string в буфер обмена компьютера и уже после завершения пользователь мог вставить текст в любой другой программе. В...
C++ Не печатается символ "\" В программе вывожу символы на консоль. Но символ "\" не печатается. Почему ? https://www.cyberforum.ru/ cpp-beginners/ thread624981.html
C++ Пробелы в файле https://www.cyberforum.ru/ cpp-beginners/ thread624977.html
Здравствуйте. У меня есть текстовый файл. И мне нужно с него до конца считывать по одному символу. #include <fstream> void main() { char c; std::ifstream in("input.txt"); std::ofstream...
C++ Обработка ошибок неправильного заполнения структуры tm?
Это простой вопрос. Допустим такой код: void main(){ int day=31, mon=5,year=82; time_t seconds = time(NULL); tm* timeinfo = localtime(&seconds); cout<<seconds<<endl; timeinfo->tm_mday=day;...
Строка: заменить первую "о" на "а", удалив остальные "о" C++
c++ visual Задание: дана последовательность слов. напечатать все слова, предварительно выполнив преобразования их по правилу: заменить в каждом слове первую встречную "а" на "о", удалив все...
C++ UTF-8 - русские символы в char посимвольно Здравствуйте, в проекте используется UTF-8, и в char и в string я не могу обратиться к русскому символу, как к элементу массива, т.к. в UTF-8 русский символ занимает сразу два элемента массива... А... https://www.cyberforum.ru/ cpp-beginners/ thread624948.html
C++ заключение кода в переменную https://www.cyberforum.ru/ cpp-beginners/ thread624917.html
есть код: cout << "Ответ выражения = "; cout << res << endl << endl << endl; его нужно запилить в переменную. а я незнаю как это реализовать. как я хочу использовать это у меня есть...
C++ Что почитать ActiveX + Internet Explorer Подскажите что почитать о связке ActiveX и Microsoft IE https://www.cyberforum.ru/ cpp-beginners/ thread624914.html
37 / 5 / 4
Регистрация: 15.09.2011
Сообщений: 73
0

База данных судебных разбирательств

17.07.2012, 17:29. Просмотров 576. Ответов 0
Метки (Все метки)

Создать маленькую базу данных судебных разбирательств с такими полями: Судебное дело<<Причина разбирательства, Дата(день, месяц, год), Истец (Номер телефона, компания), Ответчик(Номер телефона, компания). Вывести на экран количество разбирательств по причине "Банкротство" во введенном пользователем году. В программе должны использоваться процедуры и функции и файлы.

Вот вариант на паскале:
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
uses crt;
const line='------------------------------------------------------------------------';
      shap='| Номер |Причина разбирательства|    Дата    |   Истец    |  Ответчик  |';
 
type delo = record
     nom:  string[5];
     pri:  string[20];
     dad:  1..31;
     dam:  1..12;
     day:  1900..2012;
     int:  string[9];
     ina:  string[10];
     ont:  string[9];
     ona:  string[10];
     end;
 
var f: file of delo; v: byte;
 
procedure Vvod (var ff: file of delo);
var i,n: integer; d: delo;
begin
clrscr;
rewrite(f);
write('Количество записей: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with d do
         begin
         write('Судебное дело №: ');readln(nom);
         write('Причина разбирательства: ');readln(nom);
         write('Дата: день месяца: ');readln(dad);
         write('Дата: месяц: ');readln(dam);
         write('Дата: год: ');readln(day);
         write('Истец: номер телефона: ');readln(int);
         write('Истец: компания: ');readln(ina);
         write('Ответчик: номер телефона: ');readln(ont);
         write('Ответчик: компания: ');readln(ona);
         write(ff,d);
         end;
close (ff);
writeln('Файл заполнен. Enter для продолжения...');
readln;
end;
 
procedure Vyvod (ff: file of delo);
var d: delo;
begin
clrscr;
reset(ff);
writeln('Сведения о судебных делах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,d);
      with d do
           begin
           writeln('|',nom:6,'|':2,pri:21,'|':3,dad:3,'.',dam:2,'.',day:4,'|':2,int:11,'|':2,ont:11,'|':2);
           writeln('|','|':8,'|':24,'|':13,ina:11,'|':2,ona:11,'|':2);
           end;
      end;
writeln(line);
close (ff);
writeln('Данные выведены. Enter для продолжения...');
readln;
end;
 
function Count (ff: file of delo): integer;
var d: delo; y: 1900..2012; k: integer;
begin
k:=0;
clrscr;
write('Укажите год для поиска дел о банкротстве: '); readln(y);
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,d);
      if d.day=y then inc(k);
       end;
close (ff);
Count:=k;
end;
 
begin
assign(f,'D:\BD.dta');
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-поиск дел о банкротстве по заданному году');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: writeln(Count (f),'дел (а)');
end;
until v=0;
end.


Вернуться к обсуждению:
База данных судебных разбирательств
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.07.2012, 17:29
Готовые ответы и решения:

Программа судебных разбирательств
Создать маленькую базу данных судебных разбирательств с такими полями: Судебное дело&lt;&lt;Причина...

Удалённая база данных - запрос и вывод данных
допустим у меня есть удалённая база данных в которой хранятся данные. можно ли через программу...

База данных судебных разбирательств
Создать маленькую базу данных судебных разбирательств с такими полями: Судебное дело&lt;&lt;Причина...

База данных, основанная на службах vs База данных SQL Server
Доброго времени суток. Делал я, значит, Data Access Layer для ASP.NET MVC проекта. Создал обычную...

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