Множество программ

@admiral121 · Регистрация: 12.12.2010

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

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

дана задача

Дан двумерный массив a, раз*мером (nm). Найти минимальный элемент в каждой строке мат*рицы. Затем каж*дую строку мат*рицы разделить на минимальный элемент строки.

вот мой код

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
program pr21;
uses crt;
const n=3; m=4;
var a: array [1..n,1..m] of real;
    i,j: integer;
    min,k: real;
BEGIN
 
   clrscr;
   min:=0;
    for i:=1 to n do
     for j:=1 to m do
     begin
      writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*в ¬*ваЁжл: ');
      read(a[i,j]);
    end;
 
 
    writeln;
       for i:=1 to n do
        begin
        min:=a[i,j];
        for j:=1 to m do
         if (a[i,j]<min) then min:=a[i,j];
          writeln(min:2:1);
          a[i,j]:=a[i,j]/min;
          end;
 
          writeln;
          writeln;
 
 
 
 
      writeln;
      writeln;
      writeln;
 
 
 
    for i:=1 to n do
    begin
     for j:=1 to m do
      write(a[i,j]:2:1,' ');
     writeln;
    end;
 
END.

Проблема в том, что строки не делятся на минимальный элемент. Никак не могу сообразить, что нужно исправить.

@patricksmirnov · 12.12.2010, 19:34

"Пишу очень много программ на паскале, надеюсь вы мне поможете. "-всмысле пишите?на форум или программируйте много?Если второе-то это ложь,ибо вы бы справились.

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
program pr21;
uses crt;
const n=3; m=4;
var a: array [1..n,1..m] of real;
    i,j: integer;
    min,k: real;
BEGIN
clrscr;
min:=0;
    for i:=1 to n do
     for j:=1 to m do
     begin
      write('a[',i,',',j,']=');
      read(a[i,j]);
    end;
writeln('Матрица: ');
for i:=1 to n do
    begin
     for j:=1 to m do
      write(a[i,j],' ');
     writeln;
    end;
for i:=1 to n do
        begin
             min:=a[i,1];
               for j:=1 to m do
                   if (a[i,j]<min) then min:=a[i,j]; //когда уже нашли минимум-
                   for j:=1 to m do
                a[i,j]:=a[i,j]/min; //-делим на его каждый элемент строки
 
                end;
 
writeln;
writeln('Результат: ');
for i:=1 to n do
begin
     for j:=1 to m do
     write(a[i,j]:2:1,' ');
     writeln;
end;
END.

@Mawrat · 12.12.2010, 19:38

Надо вот так подправить:

Pascal
1
2
3
4
5
6
7
8
9
  for i:=1 to n do begin
    min:=a[i,1];
    for j:=1 to m do
      if (a[i,j]<min) then min:=a[i,j]
    ;
    writeln(min:2:1);
    for j:=1 to m do
      a[i,j]:=a[i,j]/min;
  end;

Admiral121, и когда код оформляешь, старайся придерживаться правил оформления кода Pascal. - По крайней мере надо стараться соблюдать отступы.

@admiral121 · 12.12.2010, 20:03 **[ТС]**

Пишу много программ в смысле, что взял у товарищей их задания, что попрактиковаться и им помочь заодно. В сумме программ много и эта на сегодня где-то 10, поэтому соображаю уже не очень. Кстати код оформлен не так красиво по этой же причине. Устал уже. Спасибо за ответы, сейчас попробую подправить

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	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 Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@admiral121 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 8
	12.12.2010, 20:03 [ТС]
	Пишу много программ в смысле, что взял у товарищей их задания, что попрактиковаться и им помочь заодно. В сумме программ много и эта на сегодня где-то 10, поэтому соображаю уже не очень. Кстати код оформлен не так красиво по этой же причине. Устал уже. Спасибо за ответы, сейчас попробую подправить 0