Какие команды может осуществить процессор?Как можно передать команду процессору?Как можно увидеть результат программы?В чем отличие формального исполнителя от интеллектуального?Что такое ЯМК? Кто предложил такую систему?Какие особенности выполнения программы на ЯМК компьютером?Что такое ЯПВУ?ОСОБЕННОСТИ ВЫПОЛНЕНИЯ ПРОГРАММЫ КОМПЬЮТЕРОМ, НАПИСАНОЙ НА ЯпвуПочему компьютер можно назвать формальным исполнителем?Что такое программа?Как вы понимаете что такоепрограммный принцип управления ЧЕМ МОЖЕТЕ НУ УМОЛЯЯЯЮЮЮ
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
function F(x: real): real;
begin
F := 3 * sin(x) + 2 * sqr(x) - 1;
end;
var
a, b, h, x, Fa, Fx: real;
begin
Write('Введите через пробел начало интервала, конец и шаг: ');
Readln(a, b, h);
x := a; Fa := F(a);
repeat
Fx := F(x);
if Fx = 0 then Writeln('Найден корень ', x:0:3)
else
if Fx * Fa < 0 then
Writeln('Найден интервал изоляции корня (', a:0:3, ';', x:0:3, ')');
a := x; Fa := Fx; x := x + h
until x > b;
end.
Тестовое решение:
Введите через пробел начало интервала, конец и шаг: 0 1.95 0.15
Найден интервал изоляции корня (0.150;0.300)
Введите через пробел начало интервала, конец и шаг: -5 5 0.1
Найден интервал изоляции корня (-1.500;-1.400)
Найден интервал изоляции корня (0.200;0.300)
Объяснение:
Лови! Удачки!