1. меры системы это - 2. взаимосвязь между энтропией и информацией в закрыть 3. дать определение закрытой 4. пример закрытой 5. что происходит с информацией в закрытой системе? 6. процесс обмена информацией это 7. источник информации это –
PascalABC.NET Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом const c = ' '; var s : string; k,p : integer; begin writeln ('Введите строку'); readln (s); k := -1; p := 1; if (s <> '') and (s <> ' ') then begin while p <> 0 do begin k := k +1; p := PosEx (c,s,p+1); end; writeln (k+1,' word') end else writeln ('error string'); end.
1) Начало; 2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента; 3) Подключение библиотеки randomize; 4) Запуск Первого цикла со счетчиком от 1 до 5; 4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5; 4.1.1) Заполнение первой строки массива рандомными значениями; 4.1.2) Заполнение первой строки String grid -a; 4.1.2) Сравниваем текущий элемент массива с MAX элементом; 4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то Перезаписывеам MAX элемент на элемент массива;
Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива. 5) Выводим MAX элемент массива в Edit;
Как то так. Если не понятно что то можно в лс или коменты.
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');
end.
2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента;
3) Подключение библиотеки randomize;
4) Запуск Первого цикла со счетчиком от 1 до 5;
4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5;
4.1.1) Заполнение первой строки массива рандомными значениями;
4.1.2) Заполнение первой строки String grid -a;
4.1.2) Сравниваем текущий элемент массива с MAX элементом;
4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то
Перезаписывеам MAX элемент на элемент массива;
Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива.
5) Выводим MAX элемент массива в Edit;
Как то так. Если не понятно что то можно в лс или коменты.