Компилятор не может сосчитать формулу

@leon gale · Регистрация: 05.01.2022

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

Это моя третья программа. Она вычисляет конус. Почему скрипт не может сосчитать "S" и "V"? Пишет "0.00"

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program conus;
var pi,R,R2,h,V,S,L,L2:real;
begin
write('введите большой радиус R');
read(R);
write('введите малый радиус R2');
read(R2);
write('введите высоту конуса h');
read(h);
V:=((2*pi*R2+2*pi*R)/2*L2);
pi:=(3.14);
S:=(pi*(R2+R)*L2);
L:=exp(h+(R-R2));
L2:=sqrt(L);
write('Площадь конуса равна ', S:6:2 );
write('Объем конуса равен ', V:6:2 );
write('Склон равен ', L2:6:2 );
end.

@bormant · 05.01.2022, 16:24

Вы написали "var pi" и одноименная функция Pi стала не видна.
В строке "V:=..." pi - это глобальная переменная, её значение равно 0.
В строке "S:=..." глобальная переменная L2 все еще равна 0, результат умножения на 0, соответствено, 0.

@leon gale · 05.01.2022, 17:36 **[ТС]**

В предыдущих скриптах такого-же типа все работает

Pascal
1
2
3
4
5
6
7
8
9
10
PROGRAM parallelogramm;
VAR a,b,h,S:REAL;
BEGIN
WRITE('enter a,b,h of parallelogramm ');
READ(a);
READ(b);
READ(h);
S:=(a*b+b*h+a*h);
WRITE('S of parallelogramm is ',S:6:2);
END.

@bormant · 05.01.2022, 17:55

В "предыдущих скриптах" ввели значения a, b, h, затем из них посчитали S. То есть, a, b, h на момент вычисления имели определенные значения.

В варианте этой темы тоже "все работает" ровно как написано, только написанное содержит умножение на переменную, равную 0, результат такого произведения 0.

Добавлено через 1 минуту
Впрочем, повторяюсь, все это уже написано в сообщении #2.

@bormant · 05.01.2022, 19:27

Не совсем понятно, что считаете...

Pascal
1
2
3
4
5
6
7
var r, r2, h, L, S, V: Real;
begin
  Write('Большое (R), малое (R2) основания, высота (h) усеченного конуса: ');
  ReadLn(r,r2,h);
  L:=SqRt(Sqr(h)+Sqr(r-r2)); { образующая }
  S:=Pi*(r+r2)*L; { площадь боковой поверхности }
  V:=Pi*h*(Sqr(r)+r*r2+Sqr(r2)); { объем }

Кто такой "склон" и как его считают, увы, не в курсе.

Новые блоги и статьи Все статьи Все блоги /
моя боль 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 из. . .

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	05.01.2022, 16:24
	Вы написали "var pi" и одноименная функция Pi стала не видна. В строке "V:=..." pi - это глобальная переменная, её значение равно 0. В строке "S:=..." глобальная переменная L2 все еще равна 0, результат умножения на 0, соответствено, 0. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	05.01.2022, 17:55
	В "предыдущих скриптах" ввели значения a, b, h, затем из них посчитали S. То есть, a, b, h на момент вычисления имели определенные значения. В варианте этой темы тоже "все работает" ровно как написано, только написанное содержит умножение на переменную, равную 0, результат такого произведения 0. Добавлено через 1 минуту Впрочем, повторяюсь, все это уже написано в сообщении #2. 0

Компилятор не может сосчитать формулу

Решение