Обработка матрицы.

@manOz · Регистрация: 19.06.2019

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

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

Дана матрица A с 2 строками и 10 столбцами. 1-й элемент каждого столбца представляет объём одной из 10 деталей узла машины, а 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
PROGRAM N2_6_15;
Type
  Matr=array [1..2,1..10] of real;
Var
  A:Matr;
  P,sumves:real;
  j:byte;
  f1,f2:text;
//-------------------------------------------------
PROCEDURE Fun(A:Matr; var P:real);
var
  j:byte;
  sumves:real;
begin
  sumves:=0;
  for j:=1 to 10 do
    begin
      if sumves<P then
      sumves:=sumves+A[2,j];
    end;
writeln;
end;
//-------------------------------------------------  
BEGIN
  assign(f1,'Input2_6_15.pas');
  reset(f1);
  assign(f2,'Output2_6_15.pas');
  rewrite(f2);
  readln(f1,P);
  WHILE NOT EoF(f1) do
    begin
      read(f1,A[2,j]);
    end;
    Fun(A,P);
    writeln(f2,'Допустимая сумма веса = ',sumves);
  close(f1);
  close(f2);
END.

@Puporev · 19.06.2019, 12:38

Что-то в условии задачи нет ничего про файлы. Или вы написали условие полностью?

@Kitayets · 19.06.2019, 13:00

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

Code
1
2
3
4
5
6
7
8
алгоритм:
   масса = 0
   для каждой детали:
         масса = масса + (объем*удельная масса)
         если (масса < предельный допустимы вес) то
                вывод масса
         иначе
                конец

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.06.2019, 12:38
	Что-то в условии задачи нет ничего про файлы. Или вы написали условие полностью? 0