В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Kotik77789
Kotik77789
07.12.2020 17:37 •  Информатика

ФО №6 (часть 2) за 18.02- Измените программу так, что бы она вычисляла другой пример (x+3)/3-(x-3)/4+3*x^3")
( )


ФО №6 (часть 2) за 18.02- Измените программу так, что бы она вычисляла другой пример (x+3)/3-(x-3)/4

Показать ответ
Ответ:
Катеринатв2016
Катеринатв2016
26.07.2020 18:49
Const
   N = 3;
   M = 4;
Var
   A:array[1..N,1..M] of integer;
   i,j,iMax:integer;
   S,Max:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ');
        End;
    WriteLn
    End;
Max:=0;
iMax:=1;
For j:= 1 to M do
    Max:=Max+A[1,j];
For i:= 2 to N do
    Begin
    For j:= 1 to M do
        S:=S+A[i,j];
    if S>Max then
       Begin
       Max:=S;
       iMax:=i;
       End;
    End;
Write('Искомая строка:');
For j:= 1 to M do
    Write(' ',A[iMax,j])
End.

Пример работы программы:

Исходная матрица:
  8   0  -7  -1
 -2 -10  -4 -10
  5  -1  10  -6
Искомая строка: 8 0 -7 -1
0,0(0 оценок)
Ответ:
лох251
лох251
26.07.2020 18:49
1. Современное решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Строка с наибольшей суммой:');
  a.Row(a.Rows.Select(r->r.Sum).ToArray.IndexMax).Println
end.

Пример
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица [6,9] ***
  54 -83  45 -44 -52  57 -90 -71 -70
   8  99 -27  72  46  28 -18  36  48
 -85  24 -57 -67  63 -69  52  44 -99
 -34 -44  -1  45  48  63  68  48  98
  27  84  15  70  37 -70   1  24 -60
 -82 -63   6 -59  91 -64  84  65  66

Строка с наибольшей суммой:
8 99 -27 72 46 28 -18 36 48

2. Школьное решение в стиле языка ТурбоПаскаль 1983г

const
  nn=20;
var
  i,j,n,m,k,s,max:integer;
  a:array[1..nn,1..nn] of integer;
begin
  Write('Количество строк в матрице: '); Read(n);
  Write('Количество столбцов в матрице :'); Read(m);
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  Randomize;
  max:=-100;
  for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      a[i,j]:=Random(199)-99;
      Write(a[i,j]:4);
      s:=s+a[i,j]
      end;
    Writeln;
    if s>max then begin
      max:=s; k:=i
      end
    end;
  for i:=1 to 4*n do Write('-');
  Writeln;
  Writeln('Строка с наибольшей суммой:');
  for j:=1 to m do Write(a[k,j],' ');
  Writeln
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота