ошибка деление на ноль

@azim555 · Регистрация: 08.11.2010

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

пишет деление на ноль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program l4;
const
  eps=0.1
var
  i,zn,a,znak,z:integer;
  x,y,ch,sl:real;
begin
  writeln('enter x');
  readln(x);
  z:=0;
  znak:=-1;
  y:=0;
  a:=1;
  repeat
    ch:=exp(z*(x));
    zn:=1;
    for i:=1 to a do
      zn:=zn*i;
    a:=a*2;
    znak:=-znak;
    z:=z+2;
    sl:=znak*ch/zn;
    y:=y+sl;
  until abs(sl)<eps;
  writeln('y=',y);
end.

@Puporev · 08.11.2010, 18:44

Вот код.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program l4;
uses crt;
const
  eps=0.1;
var
  a,i,znak,z:longint;
  zn,x,y,ch,sl:extended;
begin
clrscr;
  writeln('enter x');
  readln(x);
  z:=0;
  znak:=-1;
  y:=0;
  a:=1;
  repeat
    ch:=exp(z*(x));
    zn:=1;
    for i:=1 to a do
    zn:=zn*i;
    a:=a*2;
    znak:=-znak;
    z:=z+2;
    sl:=znak*ch/zn;
    y:=y+sl;
  until abs(sl)<eps;
  writeln('y=',y);
readln
end.

Вот результат.

@Puporev · 08.11.2010, 18:45

Мысли прям совпали, я не видел Ваше последнее сообщение....

@azim555 · 08.11.2010, 18:48 **[ТС]**

спс щас попробую

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .

@Puporev Почетный модератор 64321 / 47617 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.11.2010, 18:45
	Мысли прям совпали, я не видел Ваше последнее сообщение.... 0

@azim555 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 16
	08.11.2010, 18:48 [ТС]
	спс щас попробую 0