М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
arina88561
arina88561
28.03.2021 23:18 •  Информатика

Раздел 1. оформления блок-схемы в excel раздел 2. даны числа x , y и а. вычислить z= f(t,p) (линейный алгоритм) t= x-y/2x-a; p=х+у; z=cos(t*p) cos(t*p). даны два числа а и в. если а-в> 0, то значения а и в возвести в квадрат и вывести результаты (разветвленный алгоритм)

👇
Ответ:
superstudio57
superstudio57
28.03.2021
Внизу ярлычки заданий.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Логические схемы, живые. Вводите 0 или 1 выше таблицы истинности, получаете результат.
4,6(37 оценок)
Открыть все ответы
Ответ:
msflower05
msflower05
28.03.2021
Procedure Dec2Oct(n:longint);
{ Перевод натурального десятичного n в восьмеричную систему счисления
  и вывод результата }
const
  alpha = '01234567';
var
  s: string;
  i:integer;
begin
  s := '';
  while n > 0 do begin
    s := alpha[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;

{ Использование }
var
  x:longint;
begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  Dec2Oct(x);
  Writeln
end.

Тестовое решение:
Введите десятичное число: 1234567
В восьмеричной системе счисления: 0004553207
4,8(43 оценок)
Ответ:
MaIeHku1Ho1OnacHeku
MaIeHku1Ho1OnacHeku
28.03.2021
Const
  n = 20;

var
  a: array[1..n] of real;
  i, imax, imin: integer;
  r, rmax, rmin:real;

begin
  Randomize;
  Writeln('Элементы массива');
  rmax:=-1; { заведомо меньше меньшего }
  rmin:=100; { заведомо больше большего }
  for i := 1 to n do
  begin
    r:=Random(10);
    a[i]:=r;
    Write(r,' ');
    if rmax<r then begin rmax:=r; imax:=i end;
    if rmin>=r then begin rmin:=r; imin:=i end
  end;
  Writeln;
  { меняем местами и выводим результат }
  a[imax]:=rmin; a[imin]:=rmax;
  Writeln('Конечное состояние массива');
  for i := 1 to n do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
Элементы массива
4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6
Конечное состояние массива
4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6

Видно, что первая восьмерка поменялась местами с последней единицей.
4,4(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ