Program z9;
var A,B,M,K,dk,I,N,sh,f:integer;
T1,T2,T3,T4:real;
begin
dk:=trunc((60-30)/20);
readln(K,N,A,B,M);
sh:=0;
T1:=SQRT(A*B)+M;
{(здесь я заменила корень квадратный на exp(1/2*ln(A*B)),т.к. кампелятор выдавал ошибку zero)}
T2:=A+B/M;
T3:=SQRT(A+M)+B;
T4:=SQRT(B+M)+A/M;
For I:=1 to N do
begin
f:=SQR(K)*K - 25*SQR(K)+50*k+1000;
If ((f>T1) or (f>T2))or ((f<T3)and(f<T4)) Then writeln(f)
else sh:=sh+1;
K:=K+dk;
End;
writeln(sh);
End.
не выдаёт одно из значений..
Program z9; var A,B,M,K,dk,I,N,sh,f:integer;T1,T2,T3,T4:real; begin dk:=trunc((60-(-30))/20);readln(K,N,A,B,M);sh:=0:T1:=SQRT(A*B)+M;(здесь я заменила корень квадратный на exp(1/2*ln(A*B)),т.к. кампелятор выдавал ошибку zero)T2:=A+B/M; T3:=SQRT(A+M)+B;T4:=SQRT(B+M)+A/M For I:=1 to N do begin f:=SQR(K)*K - 25*SQR(K)+50*k+1000;If (f>T1) or (f>T2)or (f<T3)and(f<T4) Then writeln(f) else sh:=sh+1; K:=K+dk;End; writeln(sh);End.(Задание: F(x) больше хотябы одного из значений T1 и Т2, либо меньше каждого из значений Т3,Т4)
Компилятор выдаёт при введении (-30
-60
30
60
4) только 0.....?
Компилятор выдаёт при введении (-30
-60
30
60
4) только 0.....?
А нормально отформатировать код никак?
да и с русским языком подружиться...
Код:
Введенные данные
30
60
30
60
4
Выводит результаты.
Первые два не должны быть отрицательными.
А и В - промежутки функции, они не могут быть отрицательными из-за SQRT (не существует корня из отрицательного числа)
В оригинальной программе не было входа в цикл.
З.Ы. Формулируй, пожалуйста, задачу пояснее.
условие бы написали)
