1. Написать программу, табулирующую функцию f(x)=1/sin(x)+k*ln(x-a) в заданном пользователем диапазоне с указанным шагом. Для тех значений x, в которых функция не существует, вместо значения f(x) выводить прочерк. При решении задачи использовать цикл REPEAT … UNTIL.
2. Написать программу, определяющую максимальное значение в заполненном пользователем массиве вещественных чисел размерностью N среди элементов, значение которых находится в указанном диапазоне [A, B]. Массив вывести на экран.
3. Написать программу, подсчитывающую сумму элементов в заполненной пользователем квадратной целочисленной матрице размерностью NxN, находящихся ниже основной диагонали. Исходную матрицу вывести на экран.
Хотя слово «центнер» немецкого происхождения и означает «сто мер», традиционно в Германии в старину за меру веса принимали не килограмм, а фунт, который соответствует приблизительно 500 граммам. То есть 100 фунтов — 50 килограммов. Этой мерой веса в старину пользовались люди, занятые в сельском хозяйстве: например, центнер картофеля — полный мешок, 50 кг. В разных частях Германии центнер был разный: в Баварии, например, — 56 кг; в Брауншвейге — 46,77 кг; в Саксонии — 51,4 кг. Сейчас в Германии берётся усреднённая величина 50 кг[1].
:)
всего доброго
const
n=4;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
// заполнение
for j:=1 to n do
if j mod 2=0 then
for i:=n downto 1 do a[i,j]:=j*n-i+1
else
for i:=1 to n do a[i,j]:=n*(j-1)+i;
// вывод
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Результат
1 8 9 16
2 7 10 15
3 6 11 14
4 5 12 13
Замечание: значение n можно менять.