Программа на repeat в паскале, в чем может быть дело? program zad6_repeat ; var f,f1,x,a,h: real; begin writeln('введите а '); readln(a); x: =-3; repeat f: =exp(-a*x)+exp(a*x)/f1; writeln('f(',x: 8: 2,') =',f: 8: 2); if trunc(f1) mod 2 < > 0 then; writeln('не вычисляется при x=',x: 8: 2); x: =x+1; until x> 0; end. результат введите а 2 f( -3.00) =infinity не вычисляется при x= -3.00 f( -2.00) =infinity не вычисляется при x= -2.00 f( -1.00) =infinity не вычисляется при x= -1.00 f( 0.00) =infinity не вычисляется при x= 0.00

ответ:Решение. 1. A=m*g*H; H=0,5*g*t^2; A=0,5*m*(g*t)^2. m=1; t=5; g=10.

2. F=k*x0; E=0,5*k*x^2; k=F/x0; E=0,5*(F/x0)*x^2; F=3*10^4; x0=10^-2; x=5*10^-2;

3. v=v0-g*t; Ek=0,5*m*v^2; Ek0=0,5*m*v0^2; En=Ek0-Ek; m=0.05; t=2; v0=30; t=2.

4. H=0,5*g*t^2; En1=m*g*0,5*H; Ek1=En1; m=5; t=2; (Задача не совсем понятна! 2 секунды-это общее время падения на Землю, или время падения до выбранной точки? Я подсчитал, как общее время падения!) .

5. m*g*H+0,5*m*V0^2=E; m=E/( g*H+0,5*V0^2); V=(V0^2+2*g*H)^0,5; V0=10; H=75; E=1,6*10^3; g=10.

Объяснение:

uses crt;

const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}

var s,sl:string;

   i,k:byte;

begin

clrscr;

writeln('Строка:');

readln(s);

writeln('Слово:');

readln(sl);

k:=0;

for i:=1 to length(s) do{идем по строке}

if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова

а перед ним разделитель или начало строки}

and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}

and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}

then k:=k+1;{считаем}

write('Слово ',sl,' встречается ',k,' рз.');

readln

end.

Объяснение:

на каком языке? (В ответе паскаль)