Var a,b,c:real;n,i:integer;beginWrite('Ввидите N='); Readln(n);for i:=1 to N do b:=b+(2*n+1);c:=1;for i:=1 to n do c:=c*(2*n+1);a:=b/c;WritelN('A=',A);end.
Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
Командный интерфейс - особенность: работает только с командами, нет графики
Графический интерфейс - особенность: графически-обустроенный интерфейс
Объектно-ориентированный интерфейс - особенность: объединение двух графический интерфейсов | преимущества: легок в управлении
Центральный процессор, так как он является основной и неотъемлемой частью ПК.
Консольное приложение:
const n=4;
var a:array[1..n,1..n] of real;
k,i,j:integer;
begin
writeln('1:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10*random;
write(a[i,j]:4:1);
end;
writeln;
end;
write('k = ');
readln(k);
writeln('2:');
for j:=1 to n do a[k,j]:=a[k,j]/a[k,k];
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4:1);
writeln;
end;
end.
Пример: <span>1:
1.4 0.8 5.3 9.6
6.7 2.4 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
k = 2
2:
1.4 0.8 5.3 9.6
2.8 1.0 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
</span>