Составьте блок-схему алгоритма, решающего следующую : даны три переменные a, b и c. найти их сумму, если все три неотрицательны. в противном случае, только вывести значения отрицательных.
Ответы
С программой не понял как, но могу с блок-схемой
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
width: 40%;
}
label {
display: block;
}
textarea {
width: 100%;
height: 300px;
}
button {
width: 45%;
}
</style>
<script>
function DeShifr()
{
let Text = document.getElementById("shifr").value;
let L = Text.length;
let NeChet = Text.substr(0,L/2+L%2);
let Chet = Text.substr(L/2+L%2,L/2);
let DeShifr = "";
for (let i = 0, c = 0, n = 0; i < L; i++)
{
DeShifr += (i%2?Chet[c++]:NeChet[n++]);
}
document.getElementById("DeShifr").innerHTML = DeShifr;
}
</script>
</head>
<body>
<form>
<label for="shifr">Введите зашифрованный тест сообщения:</label>
<textarea id="shifr"></textarea>
<button type="button" onCLick="DeShifr()">Расшифровать</button>
<div id="DeShifr"></div>
</form>
</body>
</html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
width: 40%;
}
label {
display: block;
}
textarea {
width: 100%;
height: 300px;
}
button {
width: 45%;
}
</style>
<script>
function DeShifr()
{
let Text = document.getElementById("shifr").value;
let L = Text.length;
let NeChet = Text.substr(0,L/2+L%2);
let Chet = Text.substr(L/2+L%2,L/2);
let DeShifr = "";
for (let i = 0, c = 0, n = 0; i < L; i++)
{
DeShifr += (i%2?Chet[c++]:NeChet[n++]);
}
document.getElementById("DeShifr").innerHTML = DeShifr;
}
</script>
</head>
<body>
<form>
<label for="shifr">Введите зашифрованный тест сообщения:</label>
<textarea id="shifr"></textarea>
<button type="button" onCLick="DeShifr()">Расшифровать</button>
<div id="DeShifr"></div>
</form>
</body>
</html>
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ответьте это правильно или нет надо для информатике работа
Автор: Лихачев Полина1978
Сколько есть типов списков в текстовых документах
Автор: Стуканова УЧРЕЖДЕНИЕ1877
Aand b or not c a=false, b=true, c=false
Автор: dmtr77
Почему необходимо проводить анализ результатов
Автор: elvini857
Может быть так, точно не уверена