procedure output_x(var d: mass; a, b: single);
 
begin
  for var j: byte := 0 to Length(d) - 1 do
    
    if ((d[j] > a) and (d[j] <= b) ) then
    begin
      writeln(d[j], ' - верно');
    end
    else
    begin
      writeln('Ошибка ', d[j], ' не входит в промежуток ', a, ' < ', d[j], ' <= ', b);
    end
end;

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

02.04.2018, 20:45

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

Блок-схема функции по госту
Здравствуйте. Как выглядит блок-схема по госту? function summ(var a: mass): single; var ...

процедуры и функции, блок-схема.
Здравствуйте все! У меня такой вопрос - подскажите пожалуйста- как в блок-схеме описать действие...

Блок схема для процедуры ввода вывода чисел двухменого массива
uses crt; const nmax=20; type Vmatr=array of real;//вещественные Cmatr=array of...

Блок-схема процедуры
Нужно составить блок схему процедуры menu. Мне на ум приходит почему то 4 шага:...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

02.04.2018, 20:45

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

блок-схема процедуры
здравствуйте.помогите пожалуйста написать блок-схемы для двух процедур. 1)Procedure...

Блок-схема для процедуры
Program b007; Uses crt; Type Mas1=array of real; Mas2=array of real; Var F: Mas1;...

тебуется блок схема для подпрограммы процедуры
program tmp; uses crt; const count=40; type arr=array of integer; var m,n:integer; V,F:arr; ...

Как составлять блок-схемы по ГОСТу
Кто умеет их делать?

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

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

Опции темы

Наверх