5. есть исполнитель «арифмометр», который понимает следующие команды: - взять число n (занести в память число n), - умножить (перемножаются занесённые в память последние два числа), - сложить (складываются занесённые в память последние два числа), - вычесть (вычисляется разность занесенных в память последних двух чисел), - результат (вывести результат) например, в результате выполнения алгоритма: - взять число 5, - взять число 10, - взять число 2, - вычесть, - умножить, - результат получим ответ 40, так как 5*(10-2)=40. какой результат будет получен при выполнении ниже алгоритма? - взять число 4, - взять число 8, - взять число 2, - вычесть, - взять число 10, - умножить, - взять число 56, - вычесть, - вычесть, - результат. дайте объяснение своему ответу ( формулу для вычисления).

👇

Ответ:

husravh323

23.09.2021

Берем по условию числа 4 8 2.
Вычитаем из 8-2=6
В итоге 4 6. Идем дальше. Берем число 10. Получаем 4 6 10.
6*10=60 получаем 4 60. Вводим 56. Получаем 4 60 56.
Вычитаем из 60-56=4. Получаем 4 4. Снова вычитаем. Получаем 4-4=0.
ответ:0

4,5(97 оценок)

Открыть все ответы

Ответ:

esaloverzhan

23.09.2021

Язык не задан, поэтому я напишу только алгоритм.
1) Вводим массив A(10, 10)
2) Открываем пустой массив из одной строки B(10)
3) flag = 0
4) Цикл по i от 1 до 9
4.1) Цикл по k от 1 до 10 (по столбцам)
4.1.1) Копируем i-ую строку из массива А в массив В
4.2) Конец цикла по k
4.3) Цикл по j от i + 1 до 10 (по строкам)
4.3.1) Цикл по k от 1 до 10 (по столбцам)
4.3.1.1) Сравниваем j-ую строку массива А и массив В
4.3.2) Конец цикла по k
4.3.3) Если строки равны, то выводим их на экран.
4.4) Конец цикла по j
5) Конец цикла по i
6) Конец
Коротко говоря, алгоритм такой.
Сравниваем 1 строку со всеми от 2 до 10. Если строки совпали - выводим их на экран. Можно вывести только номера, можно сами строки.
Переходим ко 2 строке. Ее сравниваем от 3 до 10. И так далее.
Последнюю 9 строку сравниваем только с 10.

4,7(85 оценок)

Ответ:

Nisson1

23.09.2021

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

Нулевой шаг: создание типизированного файла нужной структуры

begin
var f:file of real;
Assign(f,'MyReal.bin'); Rewrite(f);
loop 2 do begin
    SeqRandomInteger(10,1,100).Select(t->t/10).ForEach(t->Write(f,t));
    SeqRandomInteger(10,-100,-1).Select(t->t/10).ForEach(t->Write(f,t));
    end;
f.Seek(0); // начало файла
var b:real;
while not Eof(f) do begin Read(f,b); Print(b) end;
Println;
f.Close
end.

Пример:
9.7 1 4.1 8.3 5.6 9.3 2.2 9.3 5.8 8.8 -8.8 -7.7 -1.4 -5.2 -7.2 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 4.5 10 4.5 6.1 0.7 -8 -0.8 -3.3 -9.5 -7.9 -0.9 -7.4 -9.4 -1.8 -4.6

Собственно, программа

begin
var f1,f2:file of real;
Assign(f1,'MyReal.bin'); Reset(f1);
if f1.FileSize mod 20<>0 then begin
    Writeln('Количество компонент во входном файле не кратно 20');
    Exit
    end;
Assign(f2,'MyReal2.bin'); Rewrite(f2);
var buf:=new real[5];
var b:real;
while not Eof(f1) do begin
    // переписываем пять положительных
    loop 5 do begin Read(f1,b); Write(f2,b) end;
    // считываем пять положительных в буфер
    for var i:=0 to 4 do Read(f1,buf[i]);
    // переписываем пять отрицательных
    loop 5 do begin Read(f1,b); Write(f2,b) end;
    // пишем пять положительных из буфера
    foreach var t in buf do Write(f2,t);
    // переписываем пять отрицательных
    loop 5 do begin Read(f1,b); Write(f2,b) end
    end;
f1.Close;
// контрольное чтение
f2.Seek(0); // к началу
while not Eof(f2) do begin Read(f2,b); Print(b) end;
Writeln;
f2.Close
end.

Пример
9.7 1 4.1 8.3 5.6 -8.8 -7.7 -1.4 -5.2 -7.2 9.3 2.2 9.3 5.8 8.8 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 -8 -0.8 -3.3 -9.5 -7.9 4.5 10 4.5 6.1 0.7 -0.9 -7.4 -9.4 -1.8 -4.6

4,5(9 оценок)

Это интересно:

Хобби-и-рукоделие

06.06.2021

Как поместить яйцо в бутылку: советы и хитрости...

Семейная-жизнь

11.06.2020

Как прекратить воевать со своим братом или сестрой...

Компьютеры-и-электроника

16.05.2022

Как использовать команду установки воспроизведения атрибутов файлов для обнаружения вирусов?...

Стиль-и-уход-за-собой