Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ZekDemon73
0 / 0 / 0
Регистрация: 11.02.2015
Сообщений: 22
#1

Неверная операция при вычислении выражения

24.12.2015, 15:37. Просмотров 274. Ответов 7
Метки нет (Все метки)

Вот код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program saifullyna_6;
uses crt;
function sr(a,b,c,v,p:real):string;
begin
p:=(a+b+c)/2;
v:=sqrt(p*(p-a)*(p-b)*(p-c));
sr:=('Площадь=');
readln(v);
end;
var  a,b,c,p,v:real;
     s:string;
begin
writeln ('длина стороны a');
readln(a);
writeln ('длина стороны b');
readln(b);
writeln('длина стороны c');
readln(b);
s:=sr(a,b,c,p,v);
writeln(s);
end.
Ругается на v:=sqrt(p*(p-a)*(p-b)*(p-c)); почему так?

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 15:37
Ответы с готовыми решениями:

NAN при вычислении выражения
program z1; uses crt; var x,z,s:real; n,k,i,o,fact:integer; begin...

Ошибочный ответ программы при вычислении выражения
Вечер добрый, прошу помощи, ибо только начинаю в программировании. Подскажите...

Неверная вещественная операция
Изучил много тем на форуме, но так и не понял что у меня не так, подскажите...

Неверная вещественная операция
ОШИБКА НА 32 СТРОКЕ Program Work_2a; {Решение задачи с использованием...

Неверная вещественная операция
Program xabcdf; {заголовок программы с именем RECT} const {блок описания...

7
Hikari
Хитрая блондиночка $)
1451 / 960 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
24.12.2015, 15:45 #2
Цитата Сообщение от ZekDemon73 Посмотреть сообщение
Ругается
Да нет там ничего, на что ругаться надо...
Цитата Сообщение от ZekDemon73 Посмотреть сообщение
readln(v);
А это тут зачем?
Это тут не нужно.
0
ZekDemon73
0 / 0 / 0
Регистрация: 11.02.2015
Сообщений: 22
24.12.2015, 16:18  [ТС] #3
А почему пишет тогда неверная вещественная операция и ссылается на 6 строку?

Добавлено через 6 минут
А все понял, извините, но у меня не выводиться значение площади ._.
0
Hikari
Хитрая блондиночка $)
1451 / 960 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
24.12.2015, 16:22 #4
Цитата Сообщение от ZekDemon73 Посмотреть сообщение
не выводиться значение площади
Потому что ты его и не прописал.
Pascal
1
2
3
4
var s:string;
...
Str(v,s);
sr:='Площадь '+s;
конвертить жеж нужнышко, и результ возвращатьки.
1
ZekDemon73
0 / 0 / 0
Регистрация: 11.02.2015
Сообщений: 22
24.12.2015, 16:37  [ТС] #5
я не понял куда вписывать т.т

Добавлено через 11 минут
Куда вписывать?я не понял(
0
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
24.12.2015, 16:46 #6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program saifullyna_6;
 var  a,b,c,s:real;
 function sr(x,y,z:real):real;
  var  pp:real;
 begin
  pp:=(x+y+z)/2;
  sr:=sqrt(pp*(pp-x)*(pp-y)*(pp-z));
 end; 
begin
 writeln('Длина стороны a=');readln(a);
 writeln('Длина стороны b=');readln(b);
 writeln('Длина стороны c=');readln(c);
 s:=sr(a,b,c);
 writeln('Площадь s='s);
end.
1
Hikari
Хитрая блондиночка $)
1451 / 960 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
24.12.2015, 16:55 #7
Цитата Сообщение от schoolteacher Посмотреть сообщение
writeln('Площадь s='s);
Запятую забыл. И можно сразу:
Pascal
1
Writeln('Площадь s=',sr(a,b,c):10:2); readln;
0
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
24.12.2015, 17:03 #8
Цитата Сообщение от Hikari Посмотреть сообщение
Запятую забыл.
Да, поспешил, не проверил.
Цитата Сообщение от Hikari Посмотреть сообщение
И можно сразу:
И это верно.
0
24.12.2015, 17:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2015, 17:03

Неверная вещественная операция
Возможно вопрос покажется многим глупым, но все же я уже не знаю что делать....

Неверная вещественная операция
program g7_n11; var x,y:real; begin Writeln('Введите x'); Readln(x); ...

Неверная вещественная операция
Здравствуйте. Помогите найти ошибку. пишет "неверная вещественная операция....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru