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

Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значения функций y(x) = 2(х + |(x - 1)2|). Ввести программу, вычислить значение функции и проверить полученный результат. На проверку нужно прислать блок-схему алгоритма, текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Входные данные задайте самостоятельно. Программная реализация обязательна!

👇
Ответ:
LetMaria
LetMaria
23.12.2020

pascal

Объяснение:

program func;

var x, y: real;

begin

 Write('Введите значение аргумента x = ');

 ReadLn(x);

 y := 2 * (x + abs(sqr(x - 1)));

 WriteLn('Y(', x, ') = ', y:1:2);

end.


Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значения функций y(x) = 2
Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значения функций y(x) = 2
4,6(51 оценок)
Открыть все ответы
Ответ:
Waxcbortb
Waxcbortb
23.12.2020
1)

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,j:integer;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
For j:= 1 to N do
    For i:= 1 to N-1 do
        if A[i]<A[i+1] then Swap(A[i],A[i+1]);
For i:= 1 to N do
    Write(A[i],' ');

End.

2)

Var
   A:array[1..4,1..4] of integer;
   i,j:integer;
Begin
For i:= 1 to 4 do
    Begin
    For j:= 1 to 4 do
        Begin
        if (i+j) mod 2 = 0 then A[i,j]:=i*j
        else A[i,j]:=i+j;
        Write(A[i,j],' ')
        End;
    WriteLn
    End;
End.
4,4(94 оценок)
Ответ:
lshellter
lshellter
23.12.2020
21 - не может так как не 1 не 2 на 3 не делится
729 - не может так как 72/3 = 24 >9, 72 > 9+9. LhДругое разбиение протеворечит п2
2912 - не может так как 29 > 9+9, 29 не делится нацело на 3, 291 > 9+9,  291/3 > 9

Остальные
[116, 73]
[133, 94]
[148, 129]
[215, 73]
[232, 94]
[247, 129]
[314, 73]
[331, 94]
[339, 129]
[346, 129]
[413, 73]
[430, 94]
[438, 129]
[445, 129]
[512, 73]
[537, 129]
[544, 129]
[559, 1514]
[611, 73]
[636, 129]
[643, 129]
[658, 1514]
[710, 73]
[735, 129]
[742, 129]
[757, 1514]
[834, 129]
[841, 129]
[856, 1514]
[933, 129]
[940, 129]
[955, 1514]
[999, 2718]
Кол-во
{21=>0, 73=>7, 94=>4, 729=>0, 129=>16, 1514=>5, 2718=>1, 2912=>0}

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