Исправить программу.

@Gira · Регистрация: 12.06.2014

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program qq;
uses crt;
var x,y,z:real;
begin
write('Vvedit x = ');
readln(x);
write('Vvedit y = ');
readln(y);
if x*y<1 then z:=x*y+ln(x*y);
 
if x*y>1 then z:=x*y-ln(x*y);
 
if x*y=1 then z:=1;
 
writeln('z = ',z:5:2);
end.

@Фонарик · 18.06.2014, 11:59

Вылетает при x*y<1?

логарифм вычисляется только от положительного аргумента, т.е.
надо

Pascal
1
if x*y<1 then z:=x*y+ln(abs(x*y));

@erl27 · 18.06.2014, 11:59

Вообще то условие нужно... Но, может, так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program qq;
 
uses
  crt;
 
var
  x, y, z: real;
 
begin
  write('Vvedit x = ');
  readln(x);
  write('Vvedit y = ');
  readln(y);
  if x * y < 0 then writeln('Логарифм отрицательного числа!')
  else begin
    if x * y < 1 then z := x * y + ln(x * y)
    else
    if x * y > 1 then z := x * y - ln(x * y)
    else z := 1;
    writeln('z = ', z:5:2);
  end
end.

@Фонарик · 18.06.2014, 12:02

Тут по-хорошему надо поставить проверку на x*y>0, согласна с erl27 нужно условие задачи увидеть.

@Gira · 18.06.2014, 12:09 **[ТС]**

Комментарий модератора

Ссылки на сторонние ресурсы запрещены!

@Фонарик · 18.06.2014, 12:14

Я бы сделала так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 program qq;
uses crt;
var x,y,z:real;
begin
write('Vvedit x = ');
readln(x);
write('Vvedit y = ');
readln(y);
if x*y<=0 then
   writeln('Ââåäèòå òàêèå x è y, ÷òîáû âûïîëíÿëîñü óñëîâèå x*y>0')
   else
   begin
   if x*y<1 then z:=x*y+ln(x*y)
   else
   if x*y>1 then z:=x*y-ln(x*y)
   else
   z:=1;
   writeln('z = ',z:5:2);
end;
end.

@Puporev · 18.06.2014, 12:17

Да без условия можно гадать еще долго.

@Фонарик · 18.06.2014, 12:18

Не по теме:

Puporev, условие было по ссылке, которую уже удалили, точнее не условие а формула для вычисления z

@Puporev · 18.06.2014, 12:19

Так нужно не ссылки давать, а прикреплять файлы в тему.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Фонарик 28 / 28 / 15 Регистрация: 18.11.2012 Сообщений: 79
	18.06.2014, 12:02
	Тут по-хорошему надо поставить проверку на xy>0, согласна с erl27* нужно условие задачи увидеть. 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	18.06.2014, 12:17
	Да без условия можно гадать еще долго. 0

@Фонарик
	18.06.2014, 12:18
	Не по теме: Puporev, условие было по ссылке, которую уже удалили, точнее не условие а формула для вычисления z 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	18.06.2014, 12:19
	Так нужно не ссылки давать, а прикреплять файлы в тему. 0