Алгоритмы в паскале

@dimon71 · Регистрация: 21.04.2009

Студворк — интернет-сервис помощи студентам

Подскажите, плз. как можно сократить мою программу для моего алгоритма однородной системы ,где m=8, n=3. Числа в пределе от 15 до 40. А то эта программа универсальная, для всех чисел, а мне нужна конкретная.

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
program algoritm;
uses crt;
var
 m,n,i,j,col: integer;
 min_value: integer;
 c: char;
 flag: boolean;
 t: array [1..100] of integer;
 t_mas2,t_help: array [1..100,1..100] of integer;
 chislo: integer;
 t_begin,t_end, T_max: integer;
 pos:array [1..100] of integer;
begin
 clrscr;
 write('Vvedite kolichestvo strok: ');
 readln(m);
 write('Vvedite kolichestvo stolbcov: ');
 readln(n);
 write('Vvedite nachalo diapazona izmeneniya T: ');
 readln(t_begin);
 write('Vvedite konec diapazona izmeneniya T: ');
 readln(t_end);
 writeln;
 write('Vvodit''',' znacheniya sluchajnim obrazom (Y/y or N/n)?');
 c:=readkey; writeln;
 randomize;
 if (c='Y') or (c='y')
  then
   for i:=1 to m do
    t[i]:=random(t_end-t_begin)+t_begin
  else
   begin
    for i:=1 to m do
     begin
      repeat
       write('Vvedite [',i,'] element vectora: ');
       readln(chislo);
       if ((chislo>t_end) or (chislo<t_begin))
        then
         begin
          flag:=true;
          writeln('Oshibka!');
          writeln('Vvedennoe chislo vihodit za granici diapazona [',t_begin,',',t_end,']!');
         end
        else
         begin
          flag:=false;
          t[i]:=chislo;
         end;
      until not(flag);
     end;
   end;
 c:=readkey;
 clrscr;
 for i:=1 to m do
  writeln('T[',i,']=',t[i]:5);
 for i:=1 to m do
  for j:=1 to n do
   t_help[i,j]:=0;
 for i:=1 to m-n+1 do
  for j:=1 to n do
   t_mas2[i,j]:=0;
 c:=readkey;
 clrscr;
 for j:=1 to n do
  begin
   t_mas2[1,j]:=t[j];
   t_help[j,j]:=t[j];
  end;
 for i:=2 to m-n+1 do
 begin
  min_value:=t_mas2[i-1,1];
  col:=1;
  for j:=1 to n do
   begin
    t_mas2[i,j]:=t_mas2[i-1,j];
    if (t_mas2[i,j]<min_value) then
     begin
      min_value:=t_mas2[i,j];
      col:=j;
     end;
   end;
  t_mas2[i,col]:=t_mas2[i-1,col]+t[i+n-1];
  t_help[i+n-1,col]:=t[i+n-1];
 end;
 writeln;
 write('Matrix = ');
 for i:=1 to m do
  begin
   write('|');
   for j:=1 to n do
    if t_help[i,j]<>0
     then write(' ',t_help[i,j]:5,'|')
     else write('      |');
   writeln;
   write('         ');
  end;
 writeln;
 t_max:=t_mas2[m-n+1,1];
 for j:=2 to n do
  if t_mas2[m-n+1,j]>t_max then
   t_max:=t_mas2[m-n+1,j];
 write('New matrix = ');
 for i:=1 to m-n+1 do
  begin
   write('|');
   for j:=1 to n do
    write(' ',t_mas2[i,j]:5,'|');
   writeln;
   write('             ');
  end;
 writeln;
 writeln('T max= ',T_max);
 repeat until keypressed;
end.

@Puporev · 14.06.2009, 10:54

Может хоть задание Ваше напишете. Что Ваша, а не эта, программа должна точно делать?

Добавлено через 8 минут 17 секунд
Если только переделать то что Вы просите, то так.

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
program algoritm;
uses crt;
const
 m=8;
 n=3;
var
 i,j,col: integer;
 min_value: integer;
 c: char;
 flag: boolean;
 t: array [1..n] of integer;
 t_mas2,t_help: array [1..m,1..n] of integer;
 chislo: integer;
 T_max: integer;
 pos:array [1..n] of integer;
begin
 clrscr;
 write('Vvodit''',' znacheniya sluchajnim obrazom (Y/y or N/n)?');
 c:=readkey;
 writeln;
 randomize;
 if (c='Y') or (c='y')
  then
   for i:=1 to m do
    t[i]:=random(26)+15
  else
   begin
    for i:=1 to m do
     begin
      repeat
       write('Vvedite [',i,'] element vectora: ');
       readln(chislo);
       if ((chislo>40) or (chislo<15))
        then
         begin
          flag:=true;
          writeln('Oshibka!');
          writeln('Vvedennoe chislo vihodit za granici diapazona [15,40]!');
         end
        else
         begin
          flag:=false;
          t[i]:=chislo;
         end;
      until not(flag);
     end;
   end;
 c:=readkey;
 clrscr;
 for i:=1 to m do
  writeln('T[',i,']=',t[i]:5);
 for i:=1 to m do
  for j:=1 to n do
   t_help[i,j]:=0;
 for i:=1 to m-n+1 do
  for j:=1 to n do
   t_mas2[i,j]:=0;
 c:=readkey;
 clrscr;
 for j:=1 to n do
  begin
   t_mas2[1,j]:=t[j];
   t_help[j,j]:=t[j];
  end;
 for i:=2 to m-n+1 do
 begin
  min_value:=t_mas2[i-1,1];
  col:=1;
  for j:=1 to n do
   begin
    t_mas2[i,j]:=t_mas2[i-1,j];
    if (t_mas2[i,j]<min_value) then
     begin
      min_value:=t_mas2[i,j];
      col:=j;
     end;
   end;
  t_mas2[i,col]:=t_mas2[i-1,col]+t[i+n-1];
  t_help[i+n-1,col]:=t[i+n-1];
 end;
 writeln;
 write('Matrix = ');
 for i:=1 to m do
  begin
   write('|');
   for j:=1 to n do
    if t_help[i,j]<>0
     then write(' ',t_help[i,j]:5,'|')
     else write('      |');
   writeln;
   write('         ');
  end;
 writeln;
 t_max:=t_mas2[m-n+1,1];
 for j:=2 to n do
  if t_mas2[m-n+1,j]>t_max then
   t_max:=t_mas2[m-n+1,j];
 write('New matrix = ');
 for i:=1 to m-n+1 do
  begin
   write('|');
   for j:=1 to n do
    write(' ',t_mas2[i,j]:5,'|');
   writeln;
   write('             ');
  end;
 writeln;
 writeln('T max= ',T_max);
 repeat until keypressed;
end.

@dimon71 · 14.06.2009, 11:06 **[ТС]**

Программа должна работать только с моими числами в диапазоне от 15 до 40. Привожу свои числа (39,38,35,25,23,20,19,18) и должна найти такое распределение заданий по процессорам, при котором суммарное время выполнения задания на каждом из процессоров было бы минимальным. При подсчете оно равно Т=78. Программа, которую я привела универсальна, работает со всеми числами, я ее проверила, результат получился правильный, но мне нужна программа для моих чисел.

Добавлено через 7 минут 37 секунд
Puporev,
Программа, котрую вы отредактировали, выдает ошибку:
»*Ошибка: 4 - выход за границы диапазона изменения индекса 1..3 (Program12.pas, строка 45)
»*Ошибка: 4 - выход за границы диапазона изменения индекса 1..3 (Program12.pas, строка 65)

@Puporev · 14.06.2009, 11:16

»*Ошибка: 4 - выход за границы диапазона изменения индекса 1..3 (Program12.pas, строка 45)
»*Ошибка: 4 - выход за границы диапазона изменения индекса 1..3 (Program12.pas, строка 65)

Я просто не знаю, какой массив какого размера, поэтому объявите массивы так, как Вам нужно, видимо для этого диапазана надо [1..n];

@dimon71 · 14.06.2009, 12:14 **[ТС]**

Поясните, плз, что означает readkey? Строка 56 непонятна. почему делится на 5, и разъясните строку 114 в самой первой программе. Заранее благодарю!

@Puporev · 14.06.2009, 12:31

ReadKey (функция) (модуль Crt)
-------------------------------------
Читает символ из буфера клавиатуры.
Объявление:
Function ReadKey : Char;
Режим:
Windows, Real, Protected
Замечания:
Символ не отображается на экране.

Это из встроенного Хэлпа Паскаля. Видимо враги его у Вас выкрали.

Строка 56 непонятна. почему делится на 5, и разъясните строку 114 в самой первой программе. Заранее благодарю!

Извините, я эту программу не писал и сути вопроса не знаю. Ваша программа, сами и разбирайтесь.

Добавлено через 2 минуты 35 секунд

writeln('T[',i,']=',t[i]:5);

Это что ли? Чуствую Ваши познания в Паскале близки к нулю. Это мил человек не деление, деление обозначается /, а это форматирование вывода, т.е под выводимое число выделяется пять позиций в строке.

Добавлено через 2 минуты 43 секунды

repeat until keypressed;

А это где-то в первую неделю в школе учат и означает оно ждать выхода из программы, пока не нажата какая-нибудь клавиша. Можно просто заменить на известное уже Вам readkey или на readln(нажатие клавиши Enter).

@dimon71 · 14.06.2009, 12:51 **[ТС]**

Огромное спасибо!

@Puporev · 14.06.2009, 12:53

В следующий раз сразу пишите, мол содрал код, ничего в этом не понимаю, объясните. А то думаешь это Ваш код, и вдруг начинают добивать детскими вопросами.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@dimon71 0 / 0 / 0 Регистрация: 21.04.2009 Сообщений: 17
	14.06.2009, 11:06 [ТС]
	Программа должна работать только с моими числами в диапазоне от 15 до 40. Привожу свои числа (39,38,35,25,23,20,19,18) и должна найти такое распределение заданий по процессорам, при котором суммарное время выполнения задания на каждом из процессоров было бы минимальным. При подсчете оно равно Т=78. Программа, которую я привела универсальна, работает со всеми числами, я ее проверила, результат получился правильный, но мне нужна программа для моих чисел. Добавлено через 7 минут 37 секунд Puporev, Программа, котрую вы отредактировали, выдает ошибку: »Ошибка: 4 - выход за границы диапазона изменения индекса 1..3 (Program12.pas, строка 45) »Ошибка: 4 - выход за границы диапазона изменения индекса 1..3 (Program12.pas, строка 65) 0

@dimon71 0 / 0 / 0 Регистрация: 21.04.2009 Сообщений: 17
	14.06.2009, 12:14 [ТС]
	Поясните, плз, что означает readkey? Строка 56 непонятна. почему делится на 5, и разъясните строку 114 в самой первой программе. Заранее благодарю! 0

@dimon71 0 / 0 / 0 Регистрация: 21.04.2009 Сообщений: 17
	14.06.2009, 12:51 [ТС]
	Огромное спасибо! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.06.2009, 12:53
	В следующий раз сразу пишите, мол содрал код, ничего в этом не понимаю, объясните. А то думаешь это Ваш код, и вдруг начинают добивать детскими вопросами. 1