Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.
<span>Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln ('X - любое число')
Else Writeln ('Корней нет! ')</span>
<span>Если что-то не так переделаю
</span>
Заодно потренировался, вот тебе 1), а остальной нету.
<!doctype html><html><head></head><body><!-- меньше алертов --><script type="text/javascript">function stroka(x,y,z) { var str = prompt("BBegu"); var sumx; var sumy; var sumz; var x; var y; var z; sumx=0; sumy=0; sumz=0; if (str.indexOf("*") >= 0) { x = str.indexOf("*"); document.write("str[x"+x+"]="+str[x]+"<br>"); sumx=sumx+1; } else { document.write("HeTy x <br>"); } if (str.indexOf(":") >= 0) { y = str.indexOf(":"); document.write("str[y"+y+"]="+str[y]+"<br>"); sumy=sumy+1; } else { document.write("HeTy y <br>"); } if (str.indexOf(";") >= 0) { z = str.indexOf(";"); document.write("str[z"+z+"]="+str[z]+"<br>"); sumz=sumz+1; } else { document.write("HeTy z <br>"); }
for (i=0; i<=str.length-1; i++) { if (str.indexOf("*",i) > x) { document.write("str["+str.indexOf("*",i)+"]="+str[str.indexOf("*",i)]+"<br>"); sumx=sumx+1; x = str.indexOf("*",i); } if (str.indexOf("*",i) > y) { document.write("str["+str.indexOf(":",i)+"]="+str[str.indexOf(":",i)]+"<br>"); sumy=sumy+1; y = str.indexOf(":",i); } if (str.indexOf("*",i) > z) { document.write("str["+str.indexOf(";",i)+"]="+str[str.indexOf(";",i)]+"<br>"); sumz=sumz+1; z = str.indexOf(";",i); } } document.write('sumx='+sumx+"<br>"); document.write('sumy='+sumy+"<br>"); document.write('sumz='+sumz+"<br>");}stroka (2);alert(x);
</script><br /></body></html>
Б,с,д,е,ж,к,л. на мой взгляд так, по информатике за год 10
