Вычислить значение функции

@Sara1995 · Регистрация: 03.10.2012

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

Здравствуйте!Помогите пожалуйста.
Само задание такое:прораммирование разветвляющихся алгоритмов.
Вычислить значение функции(см.вложение).
Программа вот есть но работает не так как -то.Выдает два значения.

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
Program pr1;
Var a,b,x,z:real;
Begin
Write('vvedite x');
ReadLn(x);
Write('vvedite a');
ReadLn(a);
Write('vvedite b');
ReadLn(b);
If x<a then 
Begin
z:=exp(a*x)+sqr(cos(a+x));
WriteLn('z=',z:6:3);
end;
if (sin(a*b)>0)and(sin(a*b)<1) then writeln('net korney')
else begin
If x=a then z:=sqrt(sin(a*b));
writeln('z=',z:6:3);
end;
If x>a then
If (a+x)=0 then WriteLn('net korney')
else z:=(3*exp((2+b)*ln(x)))+((x+b)/(a+x));
readln;
 
end.

Новичок · 23.12.2012, 19:46

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
Program pr1;
Var a,b,x,z:real;
begin
Write('vvedite x');
ReadLn(x);
Write('vvedite a');
ReadLn(a);
Write('vvedite b');
ReadLn(b);
If x<a then 
Begin
z:=exp(a*x)+sqr(cos(a+x));
WriteLn('z=',z:6:3);
end;
if (sin(a*b)>0)and(sin(a*b)<1) then writeln('net korney')
else begin
If x=a then z:=sqrt(sin(a*b));
writeln('z=',z:6:3);
end;
If x>a then
If (a+x)=0 then WriteLn('net korney')
else 
begin
z:=(3*exp((2+b)*ln(x)))+((x+b)/(a+x));
writeln('z=',z:6:3);    //Ты не вывел на печать значение переменной
end;
readln;
end.

@Sara1995 · 24.12.2012, 01:09 **[ТС]**

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

@eNet · 24.12.2012, 02:06

Здесь или на 17 строчке добавить begin или сделать один вывод z для всех

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var a,b,x,z:real;
begin
Write('vvedite x');
ReadLn(x);
Write('vvedite a');
ReadLn(a);
Write('vvedite b');
ReadLn(b);
If x<a then
z:=exp(a*x)+sqr(cos(a+x));
if (sin(a*b)>0)and(sin(a*b)<1) then
writeln('net korney')
else
begin
If x=a then z:=sqrt(sin(a*b));
end;
If x>a then
If (a+x)=0 then WriteLn('net korney')
else
z:=(3*exp((2+b)*ln(x)))+((x+b)/(a+x));
writeln('z=',z:6:3);
readln;
end.

@Sara1995 · 24.12.2012, 10:08 **[ТС]**

Проверила,выводится нет корней и значение как это вообщее?не могу понять где же ошибка

@eNet · 24.12.2012, 18:11

Вот исправил

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
Var a,b,x,z:real;
Begin
Write('vvedite x');
ReadLn(x);
Write('vvedite a');
ReadLn(a);
Write('vvedite b');
ReadLn(b);
If x<a then
 
Begin
z:=exp(a*x)+sqr(cos(a+x));
WriteLn('z=',z:6:3);
end;
if (sin(a*b)>0)and(sin(a*b)<1) then
writeln('net korney')
else
 
If x=a then
begin
if (sin(a*b)<0) then
writeln('net korney')
else
z:=sqrt(sin(a*b));
writeln('z=',z:6:3);
end;
 
If x>a then
If (a+x)=0 then
WriteLn('net korney')
else z:=(3*exp((2+b)*ln(x)))+((x+b)/(a+x));
readln;
 
end.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Sara1995 3 / 3 / 1 Регистрация: 03.10.2012 Сообщений: 66
	24.12.2012, 01:09 [ТС]
	но почему выводится два раза значение 0

@Sara1995 3 / 3 / 1 Регистрация: 03.10.2012 Сообщений: 66
	24.12.2012, 10:08 [ТС]
	Проверила,выводится нет корней и значение как это вообщее?не могу понять где же ошибка 0