Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.04.2011
Сообщений: 4
1

Определить, в каком году было больше всего дел, связанных с банкротством.

29.04.2011, 12:26. Просмотров 793. Ответов 5
Метки нет (Все метки)


Создать массив записей в соответствии с заданной структурой. Количество записей не больше 10. Определить, в каком году было больше всего дел, связанных с банкротством.
0
Вложения
Тип файла: docx Структуры.docx (11.5 Кб, 20 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2011, 12:26
Ответы с готовыми решениями:

Определить, в каком году было больше всего дел, связанных с мошенничеством
Предусмотреть вывод значений для полей элементов массива записей по следующим критериям: дата,...

По результатам метеорологических исследований за январь месяц 1990-1999 годов, определить в каком году было бо
Структуры и объединения По результатам метеорологических исследований за январь месяц 1990-1999...

Определить, на каком курсе больше всего отличников.
срочно нужна помощь с задачей Дан список из n записей о студентах факультета. Каждая запись...

Определить, на каком факультете обучается больше всего студентов
Дан список из n записей о студентах. Каждая запись содержит следующие поля: фамилия, имя, отчество,...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
5
Модератор
63228 / 46981 / 32382
Регистрация: 18.05.2008
Сообщений: 113,871
29.04.2011, 14: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
uses crt;
const nmax=10;
      pr:array[1..4] of string[20]=
      ('банкротство','задолженность','аренда','налоги');
      {предмет разбирательства, сами напишите, я не в курсе}
type
date=record
     d,m:byte;
     g:integer;
     end;
uchs=record
     tel:longint;
     fir:string[20];
     end;
delo=record
     dat:date;
     prd:string[20];
     ist,obv:uchs;
     end;
dela=array[1..nmax] of delo;
var a:dela;
    n,i,j,k,imx,mx:integer;
begin
clrscr;
repeat
write('Количество дел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  writeln('Дело ',i);
  with a[i] do
   begin
    writeln('Введите дату:');
    with dat do
     begin
      repeat
      write('- год (1990-2010): ');readln(g);
      until(g>=1990)and(g<=2010);
      repeat
      write('- месяц(1-12): ');readln(m);
      until m in [1..12];
      repeat
      write('- день: ');readln(d);
      until((m in [4,6,9,11])and(d in [1..31]))
         or((m in [1,3,5,7,8,10,12])and(d in [1..30]))
         or((g mod 4=0)and(m=2)and(d in [1..29]))
         or((g mod 4<>0)and(m=2)and(d in [1..28]));
     end;
    writeln('Выберите предмет разбирательства:');
    writeln('1-банкротство');
    writeln('2-задолженность');
    writeln('3-аренда');
    writeln('4-налоги');
    repeat
    readln(k);
    until k in [1..4];
    prd:=pr[k];
    writeln('Истец: ');
    write('- телефон: ');readln(ist.tel);
    write('- фирма: ');readln(ist.fir);
    writeln('Обвиняемый: ');
    write('- телефон: ');readln(obv.tel);
    write('- фирма: ');readln(obv.fir);
   end;
 end;
clrscr;
writeln('Сведения о делах:':45);
writeln('-------------------------------------------------------------------------------');
writeln('|           |     Предмет       |       Истец          |     Обвиняемый       |');
writeln('|    Дата   |  разбирательства  |----------------------------------------------');
writeln('|           |                   | Телефон  |   Фирма   | Телефон  |   Фирма   |');
writeln('-------------------------------------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);
  with dat do
  write('| ',d,'.',m,'.',g);
  gotoXY(13,whereY);write('| ',prd);
  gotoXY(33,whereY);write('| ',ist.tel);
  gotoXY(44,whereY);write('| ',ist.fir);
  gotoXY(56,whereY);write('| ',obv.tel);
  gotoXY(67,whereY);write('| ',obv.fir);
  gotoXY(79,whereY);writeln('|');
 end;
writeln('-------------------------------------------------------------------------------');
imx:=0;
mx:=0;
for i:=1990 to 2010 do
 begin
  k:=0;
  for j:=1 to n do
  if(a[j].dat.g=i)and(a[j].prd='банкротство')then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
 end;
if imx=0 then write('Дел о банкротстве не было')
else write('Больше всего дел о банкротстве было в ',imx,' году = ',mx);
readln
end.
0
magirus
29.04.2011, 15:19
  #3
 Комментарий модератора 
Т@нзиля, называйте темы информативно
1
Puporev
29.04.2011, 15:31
  #4

Не по теме:

Когда тема называется записи, ее легко найти в поиске, а с таким названием даже не знаю....

1
0 / 0 / 0
Регистрация: 29.04.2011
Сообщений: 4
08.06.2011, 16:01  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Изучайте....
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
uses crt;
const nmax=10;
      pr:array[1..4] of string[20]=
      ('банкротство','задолженность','аренда','налоги');
      {предмет разбирательства, сами напишите, я не в курсе}
type
date=record
     d,m:byte;
     g:integer;
     end;
uchs=record
     tel:longint;
     fir:string[20];
     end;
delo=record
     dat:date;
     prd:string[20];
     ist,obv:uchs;
     end;
dela=array[1..nmax] of delo;
var a:dela;
    n,i,j,k,imx,mx:integer;
begin
clrscr;
repeat
write('Количество дел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  writeln('Дело ',i);
  with a[i] do
   begin
    writeln('Введите дату:');
    with dat do
     begin
      repeat
      write('- год (1990-2010): ');readln(g);
      until(g>=1990)and(g<=2010);
      repeat
      write('- месяц(1-12): ');readln(m);
      until m in [1..12];
      repeat
      write('- день: ');readln(d);
      until((m in [4,6,9,11])and(d in [1..31]))
         or((m in [1,3,5,7,8,10,12])and(d in [1..30]))
         or((g mod 4=0)and(m=2)and(d in [1..29]))
         or((g mod 4<>0)and(m=2)and(d in [1..28]));
     end;
    writeln('Выберите предмет разбирательства:');
    writeln('1-банкротство');
    writeln('2-задолженность');
    writeln('3-аренда');
    writeln('4-налоги');
    repeat
    readln(k);
    until k in [1..4];
    prd:=pr[k];
    writeln('Истец: ');
    write('- телефон: ');readln(ist.tel);
    write('- фирма: ');readln(ist.fir);
    writeln('Обвиняемый: ');
    write('- телефон: ');readln(obv.tel);
    write('- фирма: ');readln(obv.fir);
   end;
 end;
clrscr;
writeln('Сведения о делах:':45);
writeln('-------------------------------------------------------------------------------');
writeln('|           |     Предмет       |       Истец          |     Обвиняемый       |');
writeln('|    Дата   |  разбирательства  |----------------------------------------------');
writeln('|           |                   | Телефон  |   Фирма   | Телефон  |   Фирма   |');
writeln('-------------------------------------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);
  with dat do
  write('| ',d,'.',m,'.',g);
  gotoXY(13,whereY);write('| ',prd);
  gotoXY(33,whereY);write('| ',ist.tel);
  gotoXY(44,whereY);write('| ',ist.fir);
  gotoXY(56,whereY);write('| ',obv.tel);
  gotoXY(67,whereY);write('| ',obv.fir);
  gotoXY(79,whereY);writeln('|');
 end;
writeln('-------------------------------------------------------------------------------');
imx:=0;
mx:=0;
for i:=1990 to 2010 do
 begin
  k:=0;
  for j:=1 to n do
  if(a[j].dat.g=i)and(a[j].prd='банкротство')then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
 end;
if imx=0 then write('Дел о банкротстве не было')
else write('Больше всего дел о банкротстве было в ',imx,' году = ',mx);
readln
end.
Сделайте пожалуйста с модулями....
0
Модератор
63228 / 46981 / 32382
Регистрация: 18.05.2008
Сообщений: 113,871
08.06.2011, 16:47 6
Текст модуля.
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
unit modul;
interface
uses crt;
const nmax=10;
      pr:array[1..4] of string[20]=
      ('банкротство','задолженность','аренда','налоги');
      {предмет разбирательства, сами напишите, я не в курсе}
type
date=record
     d,m:byte;
     g:integer;
     end;
uchs=record
     tel:longint;
     fir:string[20];
     end;
delo=record
     dat:date;
     prd:string[20];
     ist,obv:uchs;
     end;
dela=array[1..nmax] of delo;
procedure Baza(var a:dela;var n:integer);
procedure Print(a:dela;n:integer);
procedure Search(a:dela;n:integer);
implementation
procedure Baza(var a:dela;var n:integer);
var i,k:integer;
begin
repeat
write('Количество дел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  writeln('Дело ',i);
  with a[i] do
   begin
    writeln('Введите дату:');
    with dat do
     begin
      repeat
      write('- год (1990-2010): ');readln(g);
      until(g>=1990)and(g<=2010);
      repeat
      write('- месяц(1-12): ');readln(m);
      until m in [1..12];
      repeat
      write('- день: ');readln(d);
      until((m in [4,6,9,11])and(d in [1..31]))
         or((m in [1,3,5,7,8,10,12])and(d in [1..30]))
         or((g mod 4=0)and(m=2)and(d in [1..29]))
         or((g mod 4<>0)and(m=2)and(d in [1..28]));
     end;
    writeln('Выберите предмет разбирательства:');
    writeln('1-банкротство');
    writeln('2-задолженность');
    writeln('3-аренда');
    writeln('4-налоги');
    repeat
    readln(k);
    until k in [1..4];
    prd:=pr[k];
    writeln('Истец: ');
    write('- телефон: ');readln(ist.tel);
    write('- фирма: ');readln(ist.fir);
    writeln('Обвиняемый: ');
    write('- телефон: ');readln(obv.tel);
    write('- фирма: ');readln(obv.fir);
   end;
 end;
clrscr;
end;
procedure Print(a:dela;n:integer);
var i:integer;
begin
writeln('Сведения о делах:':45);
writeln('-------------------------------------------------------------------------------');
writeln('|           |     Предмет       |       Истец          |     Обвиняемый       |');
writeln('|    Дата   |  разбирательства  |----------------------------------------------');
writeln('|           |                   | Телефон  |   Фирма   | Телефон  |   Фирма   |');
writeln('-------------------------------------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);
  with dat do
  write('| ',d,'.',m,'.',g);
  gotoXY(13,whereY);write('| ',prd);
  gotoXY(33,whereY);write('| ',ist.tel);
  gotoXY(44,whereY);write('| ',ist.fir);
  gotoXY(56,whereY);write('| ',obv.tel);
  gotoXY(67,whereY);write('| ',obv.fir);
  gotoXY(79,whereY);writeln('|');
 end;
writeln('-------------------------------------------------------------------------------');
end;
procedure Search(a:dela;n:integer);
var i,j,k,imx,mx:integer;
begin
imx:=0;
mx:=0;
for i:=1990 to 2010 do
 begin
  k:=0;
  for j:=1 to n do
  if(a[j].dat.g=i)and(a[j].prd='банкротство')then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
 end;
if imx=0 then write('Дел о банкротстве не было')
else write('Больше всего дел о банкротстве было в ',imx,' году = ',mx);
end;
end.
Текст программы
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt,modul;
var a:dela;
    n:integer;
begin
clrscr;
Baza(a,n);
Print(a,n);
Search(a,n);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2011, 16:47

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

Нужно определить то слово в каком больше всего цифр
Есть массив обектов &quot;слово&quot;. нужно определить то слово в каком больше всего цыфр.Избегайте...

Определить, в каком из чисел последовательности больше всего делителей
Решил множество задач, а вот с этими не могу ни как справиться, скоро ещё сдача...Выручайте...

Определить, в каком месяце больше всего нерабочих дней
1. Дан список участников круговой считалки, в которой на каждом шаге выбывает каждый пятый....

Определить, в каком месяце больше всего нерабочих дней
Добрый вечер, помогите пожалуйста, кого это не обременит, как решить такую задачку?


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

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

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