(Работа с подпрограммами Pascal)
Что не так с программой? В чем ошибка?
program primer1;
Procedure f (u:real; var c:real);
begin
if u<0 then c:=-1 else if u>0 then c:=1 else c:=0;
end;
Var a,b,z,f1,f2:real;
begin
writeln ('a=');readln (a);
writeln ('b=');readln (b);
f(sqr(a)*sign(a+b)+sqr(b)*sign(a-b),f1);
f(sign(a*b),f2);
z:=f1*f2;
writeln ('z=',z:6:3);
readln
end.

Принтер, создаёт изображение на бумаге из отдельных маленьких точек ударным Печать на бумаге в матричных принтерах осуществляется при блока иголочек, приводимых в движение электромагнитами. Иголочки, ударяя по бумаге через красящую ленту, оставляют на бумаге точки. Затем блок с иголочками перемешается на некоторое расстояние и процесс повторяется. Так как расстояние между такими точками невелико, то в результате на бумаге получается изображение нужного символа или картинки.
Выпускаются принтеры с 9, 18, 24 и 36 иголками в головке. Разрешающая печати, а также скорость печати графических изображений напрямую зависят от числа иголок. Наибольшее распространение получили 9- и 24-игольчатые принтеры. Принтеры с 9 и кратным 9 количеством игл (18, 36) предназначены для скоростной печати, в то время как 24-игольчатые для качественной печати.

В данном варианте - никак.

Для начала ты должен получить значение x. Это делается через функцию Read(x) или Readln(x). Далее ты должен произвести проверку, чтобы x не равнялся нулю (это обязательно в любом случае, иначе будет попросту ошибка). Это делается через условие if x <> 0 then ...

Далее ты должен откуда-то взять числа a1, a2, a3 и a4. Если они уже есть, то произвести деление. Если же нет, то их нужно все ввести, как показано с переменной x.

После всех манипуляций ты складываешь a1 и a4.

И да, в первом (a1 := 1/(13x)) у тебя допущена ошибка. Я так понял, ты хотел изобразить умножение 13 на x. Нет, так нельзя. Надо писать через умножение: a := 1/(13*x)

Посмотри внимательней в задание, есть ли там какие-то значения.