Кирилл хочет открыть свой бизнес в области...производства заборов! Как известно, в России сейчас это актуальная тема и только за 2019 год рынок заборов в нашей стране вырос на 146%! Кирилл проанализировал общие показатели рынка, исследовал с целевую аудиторию, оценил конкуренцию и внешние факторы. Исходя из полученных данных, он решил, что наилучшим решением будет начать производить сетчатые заборы. Мы предлагаем вам присоединиться к команде Кирилла (вас будет двое) и реализовать один из рисунков – Евросетчатый заборный рисунок. Евросетчатый заборный рисунок — это циклический рисунок, который состоит из узелков и прутьев. От каждого узелка выходит ровно 4 диагональных прутика. K + 1 — длина каждого диагонального прутика. С двух сторон каждого прутика располагается узелок, из которого, в свою очередь, снова выходят диагональные прутики. Для лучшего понимания евросетчатого заборного рисунка посмотрите на примеры ниже. Кирилл имеет заборную раму размера N × M и теперь хочет свить в ней из прутьев евросетчатый заборный рисунок. Для этого ему необходимо наглядно видеть сам рисунок ему в этом. Формат ввода В единственной строке вводятся три целых положительных числа через пробел: N, M — количество строк, столбцов, — и целое неотрицательное число K. Формат вывода Фрагмент евросетчатого заборного рисунка размера N × M, в левом верхнем углу которого располагается узелок. Формат вывода: 'X' — узелок; '/', '\' — прутики; '.' — пустое

У меня определены две функции: y = 5 + 2x и tabulate. Функция tabulate принимает функцию, концы отрезка и количество точек, в которых нужно вычислить значение. Внутри этой функции в цикле вычисляется и выводится значение функции, на каждой итерации к текущему значению аргумента прибавляется (b - a)/n.

Программа (python 3.6):

def y(x):

   return 5 + 2 * x

def tabulate(f, a, b, n):

   h = (b - a)/n

   while a <= b:

       print(f"{a:7.4f} {f(a):7.4f}")

       a += h

tabulate(y, 1., 10., 9)

Вывод:

1.0000  7.0000

2.0000  9.0000

3.0000 11.0000

4.0000 13.0000

5.0000 15.0000

6.0000 17.0000

7.0000 19.0000

8.0000 21.0000

9.0000 23.0000

10.0000 25.0000

a)

const n=5;

var a:array [1..n,1..n] of integer;

i,j,k,s:integer;

begin

writeln('Массив: ');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(3)-2;

write(a[i,j]:4);

end;

writeln

end;

for j:=1 to n do

begin

k:=0;

for i:=1 to n do

if a[i,j]<0 then k:=k+1;

if k=n then

begin

s:=s+1;

if s=1 then write ('Номера столбцов, все элементы которых отрицательны: ');

write (j,' ')

end

end;

if s=0 then write ('Столбцов, все элементы которых отрицательны - нет');

end.

б)

const n=5;

var a:array [1..n,1..n] of integer;

i,j,kp,ko:integer;

begin

for i:=1 to n do

for j:=1 to n do read (a[i,j]);

writeln('Массив: ');

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:4);

writeln

end;

for j:=1 to n do

begin

ko:=0;

kp:=0;

for i:=1 to n do

begin

if a[i,j]<0 then ko:=ko+1;

if a[i,j]>0 then kp:=kp+1

end;

if ko=n then writeln ('В ',j,' столбце все элементы отрицательные');

if kp=n then writeln ('В ',j,' столбце все элементы положительные')

end

end.