Объяснение:
1) Нужно нарисовать N домиков. Для этого смещаемся по горизонтали и рисуем. Можно смещаться по вертикали, тогда к Y -кам добавлять нужно число.
Program smr1;
uses graphABC;
var i,N:Integer;
procedure domik(k:integer);
begin
rectangle(20+k*45,30,60+k*45,60);
circle(40+k*45,22,4);
rectangle(30+k*45,40,50+k*45,50);
SetBrushColor(clBlue);
fillrect(30+k*45,40,50+k*45,50);
SetBrushColor(clWhite);
line(40+k*45,40,40+k*45,50);
line(30+k*45,45,50+k*45,45);
line(20+k*45,30,40+k*45,15);
line(40+k*45,15,60+k*45,30);
end;
begin
{а здесь должны быть вот эти интервалы от 1 до 10, пока я не достиг понимания, как их писать
n:=Random(1,10); // случайным образом определяем кол-во домиков
for i:=1 to n do domik(i-1);
end.
2)
var n,k: integer;
f: text;
Xk:real;
begin
write('Введите N=');
readln(N);
assign(f, 'h.txt');
rewrite(f);
for k:=1 to N do
begin
Xk:=(k-0.1)/(power(k,3)+abs(tan(2*k)));
writeln(f, Xk);
end;
close(f);
end.
program raf105;
const
n = 5;
var
a: array[1..n,1..n] of integer;
i,j,num,n1,n2: integer;
begin
writeln('Вводите числа столбцов матрицы по очереди');
for i:=1 to n do
begin
writeln('Столбец ',i);
for j:=1 to n do
readln(a[i,j]);
end;
for i:=1 to n do
begin
n1:= 0;
n2:= 0;
for j:=1 to n do
begin
if (a[i,j] mod 2 <> 0) and (a[i,j] <> 0)
then n1:= n1+1;
end;
for j:=1 to n do
begin
if (a[i,j] mod 2 = 0) and (a[i,j] <> 0)
then n2:= n2+1;
end;
if n1 > n2
then num:= i;
end;
writeln('Вывод: ',num);
end.
PascalABC 3.4.2
CrazyTalk Media Studio Edition 4.5 - новейша версія програми для "пожвавлення" звичайної фотографії.
ACDSee Photo Manager - це багатофункціональний інструмент для перегляду, конвертування, редагування, каталогізації, сортування, друку, публікації графічних зображень самих різноманітних форматів.
Nikon Capture - це потужне програмне забезпечення для редагування та обробки фотографій, відомого багатьом професіоналам і любителям по ранніх версіях, розробленого для знімають цифровою фототехнікою фотографів, незалежно від того, який формат вони використовують.
Brightness Guide - програма здатна висвітлити темні області на фотографії, залишаючи світлі області недоторканими.
Ulead PhotoImpact - набір програм професійного рівня для роботи з графікою.