Блок-схема

19.04.2018, 09:42. Показов 331. Ответов 0

Метки нет (Все метки)

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

Ребзя,помогите составить блок-схему к программе,пожалуйста...

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
const
  n=10;
  
type
  mas = array[1..n,1..n] of integer;
  
procedure init(var ar: mas; n: integer);
var i,j: integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      ar[i,j]:=random(9)+1;
      write(ar[i,j]:4);
    end;
    writeln;
  end;
  writeln;
end;
 
procedure summa(ar: mas; n: integer);
var i,j,s: integer;
begin
  s:=0;
  for i:=1 to n do
    for j:=i to n do
      s:=s+ar[i,j];
  writeln('Сумма элементов= ',s);
  writeln;
end;
 
var
  x,y: mas;
begin
  writeln('Матрица X:');
  init(x,8);
  summa(x,8);
  writeln('Матрица Y:');
  init(y,10);
  summa(y,10);
  readln;
end.

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

19.04.2018, 09:42

Ответы с готовыми решениями:

блок схема
здраствуйте! Помогите создать блок схему (там где всякие блоки ввода,условный, вычислительный): все отрицательные элементы массива A...

Блок-Схема
Какая будет блок-схема к этой задаче :) Program lab; uses crt; Const KI=5;KJ=5; Type m=Array of real; Var f:m; ...

Блок-Схема
Как будет виглядить блок-схема к этой задаче Program lab; uses crt; Const KI=5;KJ=5; Type m=Array of real; Var f:m; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

19.04.2018, 09:42

Помогаю со студенческими работами здесь

блок-схема!!!
program p24; uses crt; type mas=array of real; procedure readMas(var M:mas;n:integer;s:char); var i,k:integer; begin ...

Блок-схема
Составить блок-схему по данной программе var a : array of integer; i, j, n : integer; begin write ('N= '); readln (n); for...

блок-схема
Всем привет! появилась небольшая трудность в написании блок-схемы: в общем у меня используется Case of end, всего выбор из 6 чисел, от...

Блок-схема
Пожалуйста сделайте блок-схему по задаче: Program p_1; uses crt; const n=12; var i:integer; a:array of integer; begin ...

блок-схема
помогите блок-схему составить Program zad4; Function fx(k:integer):Boolean; Var k1:integer; Begin k1:=k; Fx:=false; While...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

Наверх