program vichislenie_function;
var
x, y: real;
begin
writeln('Введи х');
readln(x);
y := x * x + 2 / (7 * x) - 9;
writeln('y=', y:5:2);
end.
Пиксель - минимальный участок изображения, которому независимым образом можно задать цвет
Элементарным объектом, используемым в растровом графическом редакторе, является: <span>точка экрана (пиксель)
</span>
Цветное изображение в RGB формируется из таких цветов: Красного Зеленого Синего
Python 3:
k = 0
for a in range(10, 100):
[tab] for b in range(10, 100):
[tab] [tab] if ((a+b)<=100):
[tab] [tab] [tab] k+=1
[tab] [tab] [tab] print('k=', k)
P.S. один [tab] - 4 пробела
<em>PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
<em>1. Заданный контрольный пример:</em>
begin
var a:=Arr(4,-5,3,10,-4,-6,8,-10,1,0); a.Println;
var im1,im2:integer;
if a[im1]<a[im2] then Swap(im1,im2);
for var i:=2 to a.High do
if a[i]>a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
<u>Результат</u>
4 -5 3 10 -4 -6 8 -10 1 0
a[4]=10, a[7]=8
<em>2. Решение задания</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
var im1,im2:integer;
if a[im1]<a[im2] then Swap(im1,im2);
for var i:=2 to a.High do
if a[i]>a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
<u>Пример</u>
-1 10 -6 3 -4 -3 -4 7 0 -7
a[8]=7, a[4]=3
Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.