При вводе значения программа выдает нули

@Yakov94 · Регистрация: 13.11.2010

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

Задание во вложенной фотографии. У меня получаются 3 программы но при вводе значения они выдают нули(((

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Вот программы:
program program3;
uses crt;
var s,a,e:real;
i:byte;
begin
clrscr;
writeln('введите точность:');
readln(e);
a:=-1;
S:=0;
i:=1;
repeat
s:=s+A;
a:=a*1/(i+1)*(-1);
i:=i+1;
until abs(A)<e;
if e>1 then s:=0;
writeln(s:10:9);
readln;
end.
 
 
-----------------------
program program4;
uses crt;
var s,a,e:real;
i,j:byte;
begin
clrscr;
writeln('VVedi:');
readln(e);
s:=0;
a:=-1;
i:=1;
for j:=2 to 2 do begin
if abs(a)<e then break;
j:=j-1;                     // Бесконечный цикл
s:=s+a;
a:=a*1/(i+1)*(-1);
i:=i+1;
end;
writeln(s:10:9);
readln;
end.
 
-----------------
program program5;
uses crt;
var s,a,b,c,e:real;
i:byte;
begin
clrscr;
writeln('vvedi:');
readln(e);
a:=-1;
i:=1;
s:=0;
while abs(a)>=e do begin
s:=s+a;
a:=a*1/(i+1)*(-1);
i:=i+1;
end;
writeln(s:10:9);
readln;
end.

@Puporev · 17.06.2011, 19:22

Сообщение от Yakov94

Задание во вложенной фотографии.

А то я и думаю, где же оно...

@4epToBc4uHa · 17.06.2011, 19:23

Полагаю это то самое

@Puporev · 17.06.2011, 19:26

Так там тоже формула шпионским стилем написана... Тупость неимоверная, вместо того чтобы просто написать формулу, создавать 2 темы и все равно результат=0.

@Yakov94 · 17.06.2011, 19:26 **[ТС]**

да. плиз помогите!!!

@Puporev · 17.06.2011, 19:27

Yakov94, Ты уже сделал все возможное чтобы на тебя наплевали...

@simakmak · 17.06.2011, 21:55

Что парень, Рыбакова пытаешься сдать?)

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@4epToBc4uHa 26 / 26 / 16 Регистрация: 02.06.2011 Сообщений: 76
	17.06.2011, 19:23
	Полагаю это то самое 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.06.2011, 19:26
	Так там тоже формула шпионским стилем написана... Тупость неимоверная, вместо того чтобы просто написать формулу, создавать 2 темы и все равно результат=0. 0

@Yakov94 0 / 0 / 0 Регистрация: 13.11.2010 Сообщений: 19
	17.06.2011, 19:26 [ТС]
	да. плиз помогите!!! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.06.2011, 19:27
	Yakov94, Ты уже сделал все возможное чтобы на тебя наплевали... 0

@simakmak 0 / 0 / 0 Регистрация: 12.05.2011 Сообщений: 22
	17.06.2011, 21:55
	Что парень, Рыбакова пытаешься сдать?) 0