Выводит ошибку вещественное деление на ноль

@Amnel · Регистрация: 05.12.2010

Студворк — интернет-сервис помощи студентам

Необходимо составить программу ввода значения аргумента и вычисления значения функции Y(x).Функции F(x) и G(x) вне их области определения считать равными нулю.После ввода x выводит ошибку 'Вещественное деление на ноль'

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program lab7;
 var F,G,Y,x:real;
  Begin
  Writeln('Ââåäèòå x');
  readln(x);
   Y:=sqr(F+1)-exp(5*ln(G));
    If x<0 then G:=sqr(cos(x))
           else if x>0 then if x<=2 then G:=sqrt(x)
                        else F:=sin(x)+1/x
                else if G<=1 then if  G>0.5 then F:=G
                                     else F:=0
                     else F:=0;
   writeln(Y);
   readln;
  end.

@sirnet · 06.12.2010, 00:27

Поставь G:=1 и ошибки не будет, это на первый взгляд!

@Amnel · 06.12.2010, 00:33 **[ТС]**

Теперь выводит 'NAN'

@SuPeR XaKer · 06.12.2010, 00:36

Y:=sqr(F+1)-exp(5*ln(G));

эта строка бред какой то.

@Amnel · 06.12.2010, 00:37 **[ТС]**

когда ошибку выдает,курсор мигает на 6 строке. формула правильно вроде записана

@SuPeR XaKer · 06.12.2010, 00:38

задание полностью напишите.

@Amnel · 06.12.2010, 00:50 **[ТС]**

файл вложила

@SuPeR XaKer · 06.12.2010, 08:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses
 CRT;
var
 F,G,Y,x:real;
Begin
ClrScr;
Write('Ââåäèòå x: ');
readln(x);
if x<0 then
 G:=sqr(cos(x))
  else
   G:=sqrt(x);
  if x>2 then
   F:=sin(x)+1/x
    else
     if (G<=1) and (G>0.5) then
      F:=G;
       Y:=sqr(F+1)+exp(5*ln(G));
 writeln('Y:=',Y);
 writeln('G:=',G);
 writeln('F:=',F);
 readln
 end.

@Amnel · 06.12.2010, 11:43 **[ТС]**

Спасибо Всем!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@sirnet 13 / 13 / 5 Регистрация: 12.02.2010 Сообщений: 53
	06.12.2010, 00:27
	Поставь G:=1 и ошибки не будет, это на первый взгляд! 0

@Amnel 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 5
	06.12.2010, 00:33 [ТС]
	Теперь выводит 'NAN' 0

@Amnel 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 5
	06.12.2010, 00:37 [ТС]
	когда ошибку выдает,курсор мигает на 6 строке. формула правильно вроде записана 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	06.12.2010, 00:38
	задание полностью напишите. 0

@Amnel 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 5
	06.12.2010, 11:43 [ТС]
	Спасибо Всем! 0