Составить блок-схему по коду

@Kudaibergen tak · Регистрация: 29.11.2017

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

Pascal

procedure Special(var ft: file of student);
 
var
  j, k, i, n: integer;
  t: student;
  a,m: array [1..100] of student;
begin
 
  reset(ft);
  while not eof(ft) do
  begin
    inc(i);
    read(ft, a[i]);
  end;
  close(ft);
  n := i;
  for i := 1 to n do 
    if a[i].fam <> '' then 
    begin
      k := k + 1;
      m[k].spec:= a[i].spec;
      for j := 1 to n do
        if a[i].spec = a[j].spec then 
        begin
          m[k].god := m[k].god + 1;
          a[j].fam := '';
        end;
    end;
  i := 1;
  n:=m[1].god;
  while m[i].god <> 0 do
  begin
    if n<=m[i].god then
    begin
    n:=m[i].god;
    j:=i;
    end;
    inc(i);
  end;
  writeln('Специальность на которой учатся большего всего учащихся: ', m[j].spec);
end;
 
begin
  fname := 'students.txt';
  assign(fmain, fname);
  repeat
    writeln('1. Создать файл.');
    writeln('2. Добавить данные в файл.'); 
    writeln('3. Просмотреть файл.');;
    writeln('4. Определить имеются ли однофамильцы.');
    writeln('5. Определить группы, где учатся менее 18 учащихся.');
    writeln('6. Определить специальность, на которой учатся больше всего учащихся.');
    writeln('7. Выход.');
    readln(k);
    case k of
      1: CreateFile(fmain);
      2: Dobavleniefile(fmain);
      3: PrintFile(fmain);
      4: Odnofam(fmain);
      5: grupp(fmain);
      6: Special(fmain);
      7: Exit
    else
      writeln('Неверный пункт меню!');
    end; //of case
  until k = 7;
end.

@JuriiMW · 13.02.2018, 11:46

Не по теме:

„Чукча не читатель… Чукча — писатель!“

Во-первых, вы не весь код привели.
Во-вторых, приведённый кусок кода не на PascalABC.NET.
А в-третьих, сначала рисуется блок-схема, а уже потом по ней создаётся программа… Если что?
;–)

@ZX Spectrum-128 · 13.02.2018, 12:33

JuriiMW, кажется, этот код продолжение темы:
Структура: Студент. Определить, имеются ли в заданной группе однофамильцы...

@Kudaibergen tak · 13.02.2018, 16:46 **[ТС]**

да это продолжение темы во-первых Этот код кусок процедуры во-вторых он сделан на Pascal ABC.NET в-третьих это задача которое заданное и сделанное.

@ZX Spectrum-128 · 13.02.2018, 19:15

Kudaibergen tak, Программа, которая сама создает блок-схемы

@Kudaibergen tak · 13.02.2018, 20:45 **[ТС]**

я такое знаю это не выдает хорошего результата

@JuriiMW · 14.02.2018, 05:41

Сообщение от Kudaibergen tak

во-вторых он сделан на Pascal ABC.NET

Он работает в PascalABC.NET, а код уровня Turbo Pascal !

@Cyborg Drone · 14.02.2018, 13:27

Не по теме:

Так, Kudaibergen tak, JuriiMW, а ну-ка, брек.

Kudaibergen tak, а что это Вы "тыкаете", на самом-то деле? Вы пили с JuriiMW на брудершафт? Или Вы точно знаете, что JuriiMW допускает панибратство?

JuriiMW... При написании заголовка легко может получиться приказной тон. Если ещё и не догадаться, что вопрос можно написать в сообщении, будет выглядеть не очень. Однако, всё это не обязательно отражает личные качества писавшего.

Полагаю, что Ваше взаимное непонимание возникло из-за... Так скажем, лёгкой нелогичности.

Действительно, в заголовке темы запрещено писать слова типа "помогите", "срочно" и им подобнные слова, не несущие информации о вопросе.

Kudaibergen tak, для чего вообще нужен заголовок? Для того, чтобы кто-то нашёл Вашу тему и помог Вам. Для облегчения поиска заголовок темы должен быть осмысленным и кратко отражать суть вопроса темы. Написание вопроса целиком в заголовке темы, употребление слов-паразитов, употребление слов, затрудняющих понимание сути вопроса темы, и, тем более, бессмысленный заголовок темы (типа "паскаль", "не знаю, как сделать") - всё это, и ещё многое, способствуют игнорированию Вашей темы при просмотре раздела. Кстати, по многим причинам, хороший заголовок темы получается именно с применением приказного и безапелляционного стиля изложения. Но это не страшно: короткий, но осмысленный заголовок, позволяющий сразу понять, с чем именно придётся столкнуться при ответе на вопрос, повышает интерес к теме.

Сам вопрос пишется в сообщении, и в сообщении разрешено писать любые слова, кроме нецензурных. И как раз в сообщении логично написать вопрос подробно, написать, что именно вызвало затруднение при попытке найти ответ, предпосылки, замечания, уточнения и так далее.

И, конечно же, уместно проявить и свою вежливость.

@Cyborg Drone · 14.02.2018, 13:33

Вот всегда при составлении блок-схемы вызывают затруднения подпрограммы и оператор case... Блок-схема для каждой подпрограммы составляется отдельно. На блок-схеме подпрограмма отображается с помощью терма "предопределённый процесс". Вижу, программа не полная, но - это не важно.

На всякий случай, файлы блок-схем в формате программы Diagram Designer (бесплатная и достаточно удобная программа).

Блок-схемы.zip

Мало ли, может, подкорректировать что-нибудь пожелаете.

@ZX Spectrum-128 · 14.02.2018, 15:06

Комментарий модератора

Kudaibergen tak, JuriiMW, удалил некоторые ваши сообщения во избежание дальнейших конфликтов.

@JuriiMW
	13.02.2018, 11:46 #2
	Не по теме: „Чукча не читатель… Чукча — писатель!“ Во-первых, вы не весь код привели. Во-вторых, приведённый кусок кода не на PascalABC.NET. А в-третьих, сначала рисуется блок-схема, а уже потом по ней создаётся программа… Если что? ;–) 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	13.02.2018, 12:33	3
	JuriiMW, кажется, этот код продолжение темы: Структура: Студент. Определить, имеются ли в заданной группе однофамильцы... 0

@Kudaibergen tak 1 / 1 / 0 Регистрация: 29.11.2017 Сообщений: 55
	13.02.2018, 16:46 [ТС]	4
	да это продолжение темы во-первых Этот код кусок процедуры во-вторых он сделан на Pascal ABC.NET в-третьих это задача которое заданное и сделанное. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	13.02.2018, 19:15	5
	Kudaibergen tak, Программа, которая сама создает блок-схемы 0

@Kudaibergen tak 1 / 1 / 0 Регистрация: 29.11.2017 Сообщений: 55
	13.02.2018, 20:45 [ТС]	6
	я такое знаю это не выдает хорошего результата 0

@JuriiMW 5077 / 2649 / 2349 Регистрация: 10.12.2014 Сообщений: 10,026
	14.02.2018, 05:41	7
	Сообщение от Kudaibergen tak во-вторых он сделан на Pascal ABC.NET Он работает в PascalABC.NET, а код уровня Turbo Pascal ! 0

@Cyborg Drone
	14.02.2018, 13:27 #8
	Не по теме: Так, Kudaibergen tak, JuriiMW, а ну-ка, брек. Kudaibergen tak, а что это Вы "тыкаете", на самом-то деле? Вы пили с JuriiMW на брудершафт? Или Вы точно знаете, что JuriiMW допускает панибратство? JuriiMW... При написании заголовка легко может получиться приказной тон. Если ещё и не догадаться, что вопрос можно написать в сообщении, будет выглядеть не очень. Однако, всё это не обязательно отражает личные качества писавшего. Полагаю, что Ваше взаимное непонимание возникло из-за... Так скажем, лёгкой нелогичности. Действительно, в заголовке темы запрещено писать слова типа "помогите", "срочно" и им подобнные слова, не несущие информации о вопросе. Kudaibergen tak, для чего вообще нужен заголовок? Для того, чтобы кто-то нашёл Вашу тему и помог Вам. Для облегчения поиска заголовок темы должен быть осмысленным и кратко отражать суть вопроса темы. Написание вопроса целиком в заголовке темы, употребление слов-паразитов, употребление слов, затрудняющих понимание сути вопроса темы, и, тем более, бессмысленный заголовок темы (типа "паскаль", "не знаю, как сделать") - всё это, и ещё многое, способствуют игнорированию Вашей темы при просмотре раздела. Кстати, по многим причинам, хороший заголовок темы получается именно с применением приказного и безапелляционного стиля изложения. Но это не страшно: короткий, но осмысленный заголовок, позволяющий сразу понять, с чем именно придётся столкнуться при ответе на вопрос, повышает интерес к теме. Сам вопрос пишется в сообщении, и в сообщении разрешено писать любые слова, кроме нецензурных. И как раз в сообщении логично написать вопрос подробно, написать, что именно вызвало затруднение при попытке найти ответ, предпосылки, замечания, уточнения и так далее. И, конечно же, уместно проявить и свою вежливость. 0

@Cyborg Drone Модератор 9853 / 5223 / 3304 Регистрация: 17.08.2012 Сообщений: 15,980
	14.02.2018, 13:33	9
	Вот всегда при составлении блок-схемы вызывают затруднения подпрограммы и оператор case... Блок-схема для каждой подпрограммы составляется отдельно. На блок-схеме подпрограмма отображается с помощью терма "предопределённый процесс". Вижу, программа не полная, но - это не важно. На всякий случай, файлы блок-схем в формате программы Diagram Designer (бесплатная и достаточно удобная программа). Блок-схемы.zip Мало ли, может, подкорректировать что-нибудь пожелаете. 0

Опции темы