5 / 5 / 1
Регистрация: 24.03.2010
Сообщений: 107
1

Имеются данные о семи линиях электропередач (ЛЭП): шифр, напряжение, протяженность, год ввода в действие, дата последних линейных работ.

17.05.2010, 21:07. Показов 1069. Ответов 2
Метки нет (Все метки)

Имеются данные о семи линиях электропередач (ЛЭП): шифр, напряжение, протяженность, год ввода в действие, дата последних линейных работ. Требуется выдать справку о ЛЭП, введенных в действие более 10-ти лет назад, а также выдать сведения о ЛЭП минимальной протяженности.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2010, 21:07
Ответы с готовыми решениями:

Файлы записей: Имеются данные о нескольких линиях электропередач (ЛЭП)
ФАЙЛЫ ЗАПИСЕЙ (ТИПИЗИРОВАННЫЕ ФАЙЛЫ) Цель работы: освоение приемов объявления файлов и овладение...

N имеются данные о потреблении предприятием электроэнергии в год. Определите арифметическую среду энергопотребления и на
N имеются данные о потреблении предприятием электроэнергии в год. Определите арифметическую среду...


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

Или воспользуйтесь поиском по форуму:
2
5 / 5 / 1
Регистрация: 24.03.2010
Сообщений: 107
21.05.2010, 11:27  [ТС] 2
Ну ответьте кто-нибудь !!!
0
нэ
64 / 64 / 42
Регистрация: 08.04.2010
Сообщений: 166
21.05.2010, 19:43 3
Лучший ответ Сообщение было отмечено spider12345 как решение

Решение

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
var
   i,min:longint;
   v,l,y:array[1..7] of integer;
   s,wd:array[1..7] of string;
begin
   for i:=1 to 7 do
   begin
      writeln;
      writeln(i,': ');
      writeln;
      write('Шифр: ');
      readln(s[i]);
      write('Напряжение: ');
      readln(v[i]);
      write('Длина: ');
      readln(l[i]);
      write('Возраст: ');
      readln(y[i]);
      write('Дата последних ремонтных работ: ');
      readln(wd[i]);
   end;
   writeln;
   writeln('ЛЭП, которые старше 10 лет : ');
   writeln;
   for i:=1 to 7 do
      if y[i]>10 then
      begin
         writeln;
         writeln(i,': ');
         writeln;
         write('Шифр: ');
         write(s[i]);
         writeln;
         write('Напряжение: ');
         write(v[i]);
         writeln;
         write('Длина: ');
         write(l[i]);
         writeln;
         write('Возраст: ');
         write(y[i]);
         writeln;
         write('Дата последних ремонтных работ: ');
         write(wd[i]);
         writeln;
      end;
   min:=l[1];
   for i:=1 to 7 do
      if l[i]<min then
         min:=l[i];
   writeln;
   writeln;
   writeln('Минимальная длина у ЛЭП: ');
   for i:=1 to 7 do
      if l[i]=min then
      begin
         writeln;
         writeln(i,': ');
         writeln;
         write('Шифр: ');
         write(s[i]);
         writeln;
         write('Напряжение: ');
         write(v[i]);
         writeln;
         write('Длина: ');
         write(l[i]);
         writeln;
         write('Возраст: ');
         write(y[i]);
         writeln;
         write('Дата последних ремонтных работ: ');
         write(wd[i]);
      end;
   readln;
end.
1
Ответ Создать тему
Опции темы

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