Ошибка 215 - Turbo Pascal
Формулировка задачи:
Ошибка 215 Арифметическое переполнение как исправить?
Листинг программы
- Program lab6;
- var
- a:integer;
- b,c: real;
- begin
- a:=2;
- b:=0;
- c:=a/(sqr(a)+5);
- while c>=0.005 do
- begin
- a:=a+1;
- c:=a/(sqr(a)+5);
- b:=b+c;
- end;
- writeln('‘㬬* ап¤* -',b:4:6);
- writeln('—«Ґ* ап¤* - ',c:4:6);
- read(b);
- end.
Решение задачи: «Ошибка 215»
textual
Листинг программы
- a:real;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д