Создать два массива одинаковой размерности. получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных на паскале
Uses crt; var a,b,c:array[1..100] of integer; i,n:integer; begin writeln('Размер массивов?'); read(n); writeln('Элементы 1-го массива?'); for i:=1 to n do read(a[i]); writeln('Элементы 2-го массива?'); for i:=1 to n do read(b[i]); for i:=1 to n do begin c[i]:=a[i]+b[i]; write(c[i],' '); end; end.
В общем случае, трассировка - один из отладки программ врукопашную: состояние программы контролируется на определённом отрезке времени её выполнения путём анализа значений переменных. трассировка в том или ином виде при отладке программ сложнее школьного дз практически неизбежна. в простейшем случае, трассировка - вывод значений переменных на экран (например, в окно консоли) , либо расчёт их на бумажке для каждого шага. в более продвинутом варианте используются точки останова, окно наблюдения, выполнение по шагам и, если есть, контекстный интерпретатор выражений. есть также специальная "трассирующая консоль" - интерфейс вывода информации из программы в отладчик, если таковой присутствует. почти любой современный отладчик показывает состояние програмm при её останове, что делает трассировку процессом легко доступным
Алгоритм 1) a x a = a² ⇒ b; b x a = a³ ⇒ результат 2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net var a,b,c,y:real; begin Write('Введите число: '); Read(a); b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y); c:=b*b; c:=c*c; y:=b*c; Writeln('Десятая степень числа равна ',y) end.
Тестовые решения: Введите число: 2 Третья степень числа равна 8 Десятая степень числа равна 1024
Введите число: -13.594 Третья степень числа равна -2512.128188584 Десятая степень числа равна 215512594781.574
var a,b,c:array[1..100] of integer;
i,n:integer;
begin
writeln('Размер массивов?');
read(n);
writeln('Элементы 1-го массива?');
for i:=1 to n do
read(a[i]);
writeln('Элементы 2-го массива?');
for i:=1 to n do
read(b[i]);
for i:=1 to n do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
end.