Важная информация
Показано с 1 по 2 из 2

Тема: Сделать (исправить) блок схему к программе

  1. #1 Сделать (исправить) блок схему к программе 
    Новичок
    Регистрация
    17.02.2018
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Было задание: "Создать программу, которая будет генерировать размещения, из N по M, которые будут вводится с клавиатуры."

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

    Но сказали что блок-схему сделал я не по-русски. Помогите её исправить так как она должна быть в идеале
    Pascal Code:
    1.  
    2. program lab;
    3.  
    4. uses  crt;
    5. var
    6.   n, k: integer;
    7.  
    8. type
    9.   t_razm = array[1..9]of byte;
    10.  
    11. var
    12.   a: t_razm;
    13.   m: set of 1..9;
    14.  
    15. procedure write_razm(const a: t_razm);
    16. var
    17.   i: byte;
    18. begin
    19.   for i := 1 to k do
    20.     write(a[i], ' ');
    21.   write('  ');
    22. end;
    23.  
    24. procedure razmeshenie(i: byte);
    25. var
    26.   x: byte;
    27. begin
    28.   for x := 1 to n do
    29.     if x in m
    30.         then
    31.     begin
    32.       a[i] := x;
    33.       if i = k
    34.         then write_razm(a)
    35.                 else
    36.       begin
    37.         exclude(m, x);
    38.         razmeshenie(i + 1);
    39.         include(m, x)
    40.       end;
    41.     end
    42. end;
    43.  
    44. begin
    45.   clrscr;
    46.   writeln('Введите m : ');
    47.   read(n);
    48.   writeln('Введите n : ');
    49.   read(k);
    50.     m := [1..n];
    51.   razmeshenie(1);
    52.   writeln;
    53.   readln;
    54. end.
    Изображения
    • Тип файла: jpg 1.jpg (53.9 Кб, Просмотров: 1)
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для rrrFer
    Регистрация
    01.08.2013
    Сообщений
    561
    Сказал(а) спасибо
    34
    Поблагодарили 249 раз(а) в 164 сообщениях
    Могу нарисовать блок-схему рублей за 500 .
    [Ссылки могут видеть только зарегистрированные пользователи. ] // программирование на Prolog, Erlang, C++
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    >Quiet Snow< (20.02.2018)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите составить блок-схему
    от Аліна Ковтун в разделе Basic
    Ответов: 3
    Последнее сообщение: 04.10.2016, 07:49
  2. помогите составить блок-схему
    от kapwa в разделе Basic
    Ответов: 8
    Последнее сообщение: 28.05.2015, 19:22
  3. Ответов: 4
    Последнее сообщение: 02.12.2013, 07:12
  4. Cоставить блок-схему и программу
    от лена в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 11.12.2011, 13:15
  5. Ответов: 3
    Последнее сообщение: 05.03.2011, 23:46
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •