М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Серафим6776
Серафим6776
19.11.2021 10:44 •  Информатика

надо. дана квадратная целочисленная матрица n-ного порядка. найти сумму элементов тех строк матрицы, у которых на главной диагонали расположены отрицательные элементы. написать программу с использованием подпрограмм процедура и функция.

👇
Ответ:
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

function GetDiagNeganives(a:array[,] of integer):sequence of integer;
begin
  for var i:=0 to a.RowCount-1 do
    if a[i,i]<0 then yield(i)
end;

function GetSumm(a:array[,] of integer; t:sequence of integer):integer;
begin
  Result:=0;
  foreach var e in t do
    Result+=a.Row(e).Sum
end;

procedure MatrixWrite(a:array[,] of integer);
begin
  var n:=a.RowCount;
  Writeln('*** Исходная матрица [',n,',',n,'] ***');
  a.Println(4); Writeln(4*a.ColCount*'-')
end;

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  var a:=MatrRandom(n,n,-99,99);
  MatrixWrite(a);
  var s:=GetDiagNeganives(a);
  Writeln('S=',GetSumm(a,s))
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица [5,5] ***
 -31  -1 -29 -69 -19
 -83  84  52  42  52
  13 -24 -70  98 -33
  60 -94 -84  19 -14
 -55  81 -36  57  98

S=-165
4,6(24 оценок)
Открыть все ответы
Ответ:

Робот (чех. robot, robota — еріксіз еңбек, rob — құл; чех жазушысы К. Чапек ойлап шығарған сөз, ол алғашқы ұғымында “жұмысқа шебер адам” мағынасында қолданылды) — антро адам тәрізді) әрекеттер, қимылдар жасайтын машина; адам жүрісі мен қимылын еліктететін автоматтандырылған, адам қажетіне еңбек етуге бағытталған, күрделі кұрылғы.[1]

HONDA ASIMO роботы

Робот қоршаған әлеммен әрекеттескен кезде адамның (жануарлардың) қызметтері мен іс-әрекеттерін ішінара немесе толық атқарады. Алғашқы роботтар адамның қозғалысы мен сырт пішінін қайталады. Олар ойын-сауық мақсаттарында пайдаланылды. Қазіргі кезде тұрмыстағы көптеген қызметтерді атқаратын, қадағалайтын, мүгедектер мен сәбилерге көмекші, көңілін аулайтын, т.б. роботтар жасалынды, интеллектуалдық роботтар да пайда бола бастады.

Робот техниканың дамуы барысында адамдарды бір сарынды ауыр жұмыстардан, жоғары радиациялы, жоғары немесе төмен температура жағдайларындағы және адам қатынауы қиын жерлердегі (су астында, ғарышта) жұмыстардан босататын автоматтық құрылғылар мен механизмдер түрінде жасалып, олар үнемі жетілдіріле түсуде. Мұндай құрылғылар мен механизмдер өнеркәсіптік роботтар деп аталады. Өнеркәсіптік роботтар – өндіріс процесінде адамның қозғалу және басқару сияқты іс-әрекеттерін (өндіріс заттарының орнын ауыстыру т.с.с.) және технологиялық құралдардың (айла-тетіктердің) қызметтерін орындайтын автоматтық машина. Адамның қатысуынсыз бір немесе бірнеше технологиялық операцияны, өңделетін бұйымды тиеу мен түсіруді қоса алғанда автоматты түрде орындайтын технологиялық өңдеуші машиналардың, өндірістік машиналардың, тасымалдау және көмекші жабдықтардың жиынтығын робот-техникалық кешен деп атайды.

4,6(64 оценок)
Ответ:
sabah2017
sabah2017
19.11.2021
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var k:=0;
  var Terminate:boolean;
  repeat
    Terminate:=True;
    var n:=ReadInteger('Введите номер месяца:');
    case n of
    1,3,5,7,8,10,12:Writeln('31 день');
    4,6,9,11:Writeln('30 дней');
    2:Writeln('28 дней в обычном году и 29- в високосном')
    else begin
      Writeln('Вы ошиблись, номер должен быть от 1 до 12');
      Inc(k);
      Terminate:=False
      end
    end
  until Terminate;
  if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.

Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).
4,8(96 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ