Регистрация
Vitoriofedorov
15.04.2023 02:54
Информатика
Есть ответ 👍

Программа на 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

224
288
Посмотреть ответы 1

Ответы на вопрос:

vladuha691
vladuha691
4,4(34 оценок)
Программа с нод var t,t1,x,y,z: integer; function nod(a, b: integer): integer; begin  if a=b then nod: =a  else  if a> b then nod: =nod(a-b, b)   else nod: =nod(a, b-a); end; begin writeln('введите 2 числа'); readln(x,y); t: =nod(x,y); writeln(t); end.

Популярно: Информатика