Сделайте в ворде блок схему к этой програме. Не скрин

@АлександрAker · Регистрация: 06.10.2012

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

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
49
50
51
52
53
54
55
56
57
58
59
60
61
const
  n=6;
var
  a: array[1..n,1..n] of integer;
  i,j,i_max,i_min: byte;
  s: longint;
  tmp,max,min: integer;
begin
  randomize;
  s:=1;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
      if a[i,j]<0 then s:=s*a[i,j];
    end;
    writeln;
  end;
  writeln;
  
  max:=a[1,1]; min:=a[1,1]; 
  i_max:=1; i_min:=1;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if a[i,j]>max then 
      begin
        max:=a[i,j];
        i_max:=i;
      end;
      if a[i,j]<min then
      begin
        min:=a[i,j];
        i_min:=i;
      end;
    end;
  if i_max=i_min then writeln('max и min элементы - в одной строке.')
  else begin
    writeln('max = ',max,' (в ',i_max,' строке).'); 
    writeln('min = ',min,' (в ',i_min,' строке).'); 
    for j:=1 to n do
    begin
      tmp:=a[i_max,j];
      a[i_max,j]:=a[i_min,j];
      a[i_min,j]:=tmp;
    end;
    writeln;
    writeln('Преобразованный массив:');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  writeln('Произведение отрицательных элементов = ',s);
  readln;
end.

@VBmaster98 · 02.11.2012, 19:39

Не знаю как оформлять

,у меня так это представляется:
Объявления переменных...
Начало
Цикл For от 1 до n делать:
Если Да ,то Начало:
...
Конец
Вывод
Конец
Вывод
...
Цикл Для от 1 до n делать:
Если Да,то начало
Условие Если массив a[i,j] больше max
Если условие верно,то Начало:
...
Конец
Условие Если двухмерный массив меньше min значит:
Если условие верно,то начало:
...
Конец
Конец
Условие Если max и min в одной строке Значит:
Если условие верно,то:
...
Иначе если условие не верно :
начало:
...
Цикл Для от 1 до n выполнять:
Если условие верно,то Начало :
...
Конец
Вывод
Вывод('...')
Цикл Для от 1 до n выполнять:
Если условие верно,то:
...
Конец
Конец
Вывод('...'s)
Ввод
Конец.

@АлександрAker · 03.11.2012, 09:36 **[ТС]**

Сделайте блок схему в ворде а то у меня сейчас на выходных нет компа. Очень надо.

Добавлено через 10 часов 45 минут
Админ у меня к тебе просьба можешь этот код программы разделить на три части(3 сообщения) а то я с телефона могу видеть только 30 строк прокрутки нет.

@Puporev · 03.11.2012, 09:41

1 часть.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  n=6;
var
  a: array[1..n,1..n] of integer;
  i,j,i_max,i_min: byte;
  s: longint;
  tmp,max,min: integer;
begin
  randomize;
  s:=1;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
      if a[i,j]<0 then s:=s*a[i,j];
    end;
    writeln;
  end;
  writeln;

@Puporev · 03.11.2012, 09:47

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
max:=a[1,1]; min:=a[1,1]; 
  i_max:=1; i_min:=1;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if a[i,j]>max then 
      begin
        max:=a[i,j];
        i_max:=i;
      end;
      if a[i,j]<min then
      begin
        min:=a[i,j];
        i_min:=i;
      end;
    end;
  if i_max=i_min then writeln('max и min элементы - в одной строке.')
  else begin
    writeln('max = ',max,' (в ',i_max,' строке).'); 
    writeln('min = ',min,' (в ',i_min,' строке).'); 
    for j:=1 to n do
    begin
      tmp:=a[i_max,j];
      a[i_max,j]:=a[i_min,j];
      a[i_min,j]:=tmp;
    end;
    writeln;

@Puporev · 03.11.2012, 09:48

3 часть.

Pascal
1
2
3
4
5
6
7
8
9
10
11
 writeln('Преобразованный массив:');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  writeln('Произведение отрицательных элементов = ',s);
  readln;
end.

Добавлено через 42 секунды
Вложения просто так, иначе сообщения объединяет.

Kodzaev · 03.11.2012, 14:19

Блок-схема

@АлександрAker · 03.11.2012, 15:05 **[ТС]**

Админ не могу скачать doc. скачивает только 24 кб.

Kodzaev · 03.11.2012, 15:11

docx (20,8 Кб)
Блок-схема.docx
или архив ZIP (11,7 Кб)
Блок-схема.zip

@Puporev · 03.11.2012, 16:08

Не по теме:

Сообщение от АлександрAker

Админ не могу скачать doc.

Ты бы еще с калькулятора на форум заходил..

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@VBmaster98 19 / 18 / 7 Регистрация: 30.09.2012 Сообщений: 35
	02.11.2012, 19:39
	Не знаю как оформлять,у меня так это представляется: Объявления переменных... Начало Цикл For от 1 до n делать: Если Да ,то Начало: ... Конец Вывод Конец Вывод ... Цикл Для от 1 до n делать: Если Да,то начало Условие Если массив a[i,j] больше max Если условие верно,то Начало: ... Конец Условие Если двухмерный массив меньше min значит: Если условие верно,то начало: ... Конец Конец Условие Если max и min в одной строке Значит: Если условие верно,то: ... Иначе если условие не верно : начало: ... Цикл Для от 1 до n выполнять: Если условие верно,то Начало : ... Конец Вывод Вывод('...') Цикл Для от 1 до n выполнять: Если условие верно,то: ... Конец Конец Вывод('...'s) Ввод Конец. 1

@АлександрAker 1 / 1 / 0 Регистрация: 06.10.2012 Сообщений: 98
	03.11.2012, 09:36 [ТС]
	Сделайте блок схему в ворде а то у меня сейчас на выходных нет компа. Очень надо. Добавлено через 10 часов 45 минут Админ у меня к тебе просьба можешь этот код программы разделить на три части(3 сообщения) а то я с телефона могу видеть только 30 строк прокрутки нет. 0

@АлександрAker 1 / 1 / 0 Регистрация: 06.10.2012 Сообщений: 98
	03.11.2012, 15:05 [ТС]
	Админ не могу скачать doc. скачивает только 24 кб. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	03.11.2012, 15:11
	docx (20,8 Кб) Блок-схема.docx или архив ZIP (11,7 Кб) Блок-схема.zip 1