Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.88
vlad_zasranec
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 9
#1

Вычислить выражение по формуле - Free Pascal

01.07.2009, 22:04. Просмотров 2008. Ответов 8
Метки нет (Все метки)

записать последовательность операторов для решения указанной задачи.

max^2*(x,y,z)-2^x*min(x,y,z)
u=__________________________
sin2+max(x,y,z)/min(x,y,z)

Что такое min и max сам толком не знаю, но препод сказал мне что это якобы наибольшее расстояние от точки до точки на координатной оси.

Помогите плиз, надо срочно, так как решал сам, надеялся на себя и ничего не вышло( А отчёт по практике надо сдавать в обед.

Буду очень признателен за любую помощь.

Добавлено через 1 минуту 21 секунду
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
program p1;
uses crt;
var
u,x,y,z,mini,maxi:real;
procedure minimum(a,b,c,minm:real; var hypo1,hypo2,hypo3,minm1,minm2:real);
begin
hypo1:=a*a+b*b;
hypo1:=sqrt(hypo1);
hypo2:=b*b+c*c;
hypo2:=sqrt(hypo2);
hypo3:=a*a+c*c;
hypo3:=sqrt(hypo3);
if hypo1<hypo2 then minm1:=hypo1 else minm1:=hypo2;
if hypo2<hypo3 then minm2:=hypo2 else minm2:=hypo3;
if minm1<minm2 then minm:=minm1 else minm:=minm2;
end;
procedure maximum(d,e,f,maxm:real; var hypo1,hypo2,hypo3,maxm1,maxm2:real);
begin
hypo1:=d*d+e*e;
hypo1:=sqrt(hypo1);
hypo2:=e*e+f*f;
hypo2:=sqrt(hypo2);
hypo3:=d*d+f*f;
hypo3:=sqrt(hypo3);
if hypo1>hypo2 then maxm1:=hypo1 else maxm1:=hypo2;
if hypo2>hypo3 then maxm2:=hypo2 else maxm2:=hypo3;
if maxm1>maxm2 then maxm:=maxm1 else maxm:=maxm2;
end;
begin
clrscr;
writeln('Введите X,Y,Z');
readln(x,y,z);
minimum(x,y,z,mini);
maximum(x,y,z,maxi);
До конца додедывать не стал, так как процедура не работает. Взялся за задачу №2.Пока делаю её. Помогите плиз

Добавлено через 1 час 15 минут 19 секунд
помогите!!!

Добавлено через 9 часов 11 минут 47 секунд
вроде бы справился. Но все равно выбивает ошибку(((

Помогите исправить пожалуйста

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
program p1;
uses crt;
var
u,x,y,z,mini,maxi,verh,niz:real;
procedure minimum(a,b,c,minm:real; var hypo1,hypo2,hypo3,minm1,minm2:real);
begin
hypo1:=a*a+b*b;
hypo1:=sqrt(hypo1);
hypo2:=b*b+c*c;
hypo2:=sqrt(hypo2);
hypo3:=a*a+c*c;
hypo3:=sqrt(hypo3);
if hypo1<hypo2 then minm1:=hypo1 else minm1:=hypo2;
if hypo2<hypo3 then minm2:=hypo2 else minm2:=hypo3;
if minm1<minm2 then minm:=minm1 else minm:=minm2;
end;
procedure maximum(d,e,f,maxm:real; var hypo1,hypo2,hypo3,maxm1,maxm2:real);
begin
hypo1:=d*d+e*e;
hypo1:=sqrt(hypo1);
hypo2:=e*e+f*f;
hypo2:=sqrt(hypo2);
hypo3:=d*d+f*f;
hypo3:=sqrt(hypo3);
if hypo1>hypo2 then maxm1:=hypo1 else maxm1:=hypo2;
if hypo2>hypo3 then maxm2:=hypo2 else maxm2:=hypo3;
if maxm1>maxm2 then maxm:=maxm1 else maxm:=maxm2;
end;
begin
clrscr;
writeln('Введите X,Y,Z');
readln(x,y,z);
minimum(x,y,z,mini);
maximum(x,y,z,maxi);
niz:=sin(2)+maxi/mini;
verh:=maxi*maxi-2*x*mini;
u:=verh/niz;
writeln ('U=',u:6:3);
end.

http://www.cyberforum.ru/pascal/thread1563517.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2009, 22:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить выражение по формуле (Free Pascal):

Проанализировать выражение, найти область допустимых значений аргумента x. Определить, как вычислить выражение
Проанализировать выражение, найти область допустимых значений аргумента x....

Вычислить Y по формуле: y=2/3+k+|m-n|
массивы A(10), B(8), C(7). Вычислить Y по формуле: y=2/3+k+|m-n|, где к...

Вычислить значение по формуле
помогите решить задачу, решить формулу в паскале вот код, не пойму в чем...

Вычислить сумму по формуле
Вычислить сумму по формуле \sum_{i=1}^{n}\frac{(-1)^ia_i^3}{i!}

Вычислить сумму по формуле
Помогите пожалуйста составить блок-схему и написать программу Вот собственно...

8
System.exe
90 / 86 / 58
Регистрация: 14.05.2009
Сообщений: 202
02.07.2009, 13:20 #2
Программа не работает потому что у тебя используются две процедуры , каждая из которых имеет в своем теле 3 одинаковые переменные: hypo1,hypo2,hypo3. Из-за этого после ввода данных в программу компилятор не понимает в какую из процедур нужно передать значение, если оно связано с этими тремя переменными.
0
EvgeniiSp
146 / 136 / 57
Регистрация: 05.06.2009
Сообщений: 310
02.07.2009, 14:00 #3
у вас неверное количество параметров.

Добавлено через 23 минуты 42 секунды
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
program EvgeniiSp;
uses crt;
var
 u,x,y,z,mini,maxi,verh,niz:real;
 
 function minimum(a,b,c: real): real;
  var hypo1,hypo2,hypo3,minm1,minm2: real;
  begin
   hypo1:=a*a+b*b;
   hypo1:=sqrt(hypo1);
   hypo2:=b*b+c*c;
   hypo2:=sqrt(hypo2);
   hypo3:=a*a+c*c;
   hypo3:=sqrt(hypo3);
   if hypo1<hypo2 then minm1:=hypo1 else minm1:=hypo2;
   if hypo2<hypo3 then minm2:=hypo2 else minm2:=hypo3;
   if minm1<minm2 then result:=minm1 else result:=minm2;
  end;
 
 function maximum(d,e,f: real): real;
  var hypo1,hypo2,hypo3,maxm1,maxm2: real;
  begin
   hypo1:=d*d+e*e;
   hypo1:=sqrt(hypo1);
   hypo2:=e*e+f*f;
   hypo2:=sqrt(hypo2);
   hypo3:=d*d+f*f;
   hypo3:=sqrt(hypo3);
   if hypo1>hypo2 then maxm1:=hypo1 else maxm1:=hypo2;
   if hypo2>hypo3 then maxm2:=hypo2 else maxm2:=hypo3;
   if maxm1>maxm2 then result:=maxm1 else result:=maxm2;
  end;
  
begin
 clrscr;
 writeln('Ââåäèòå X,Y,Z');
 readln(x,y,z);
 mini:=minimum(x,y,z);
 maxi:=maximum(x,y,z);
 niz:=sin(2)+maxi/mini;
 verh:=maxi*maxi-2*x*mini;
 u:=verh/niz;
 writeln ('U=',u:6:3);
end.
Все теперь работает.
0
vlad_zasranec
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 9
02.07.2009, 21:51  [ТС] #4
EvgeniiSp, у меня пишет: неизвестная переменная result, хотя pascal выделяет её как служебное слово
0
EvgeniiSp
146 / 136 / 57
Регистрация: 05.06.2009
Сообщений: 310
02.07.2009, 22:07 #5
В какой программе выдает ошибку, в той что я вам написал?

Добавлено через 15 минут 32 секунды
Программа, которую я исправил, работает верно и не выдает никаких ошибок.
0
Puporev
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
02.07.2009, 22:46 #6
Если Паскаль Турбо, то в нем нет result.
0
vlad_zasranec
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 9
02.07.2009, 23:44  [ТС] #7
First compilation of g:\123\2.pas
2.pas(17,24) Error: Identifier not found "result"
2.pas(17,43) Error: Identifier not found "result"
2.pas(31,24) Error: Identifier not found "result"
2.pas(31,43) Error: Identifier not found "result"
2.pas(44,4) Fatal: There were 4 errors compiling module, stopping
2.pas(44,4) Error: Compilation aborted


Вот такаая ошибка((( Помогите плиз. Я в информатике не силён. Сегодня надо было это еще сдать. Препод дал послений срок до завтра...

Добавлено через 29 минут 6 секунд
free pascal ver.1.0.4
0
lexus_ilia
3050 / 710 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
03.07.2009, 01:00 #8
Просто EvgeniiSp, забывает что надо бы писать программы на простом и обычном Turbo Pascal 7.0 а не на ABC, т.к. на ABC возвращаемое значение функции можно изменить в самой функции переменной result (как и в Delphi), а в Паскале нельзя, вместа result напишите имя функции.
1
vlad_zasranec
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 9
03.07.2009, 01:21  [ТС] #9
помогло. Спасибо огромное!!!
0
03.07.2009, 01:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2009, 01:21
Привет! Вот еще темы с решениями:

Вычислить матрицу по формуле
С клавиатуры ввести натуральное число к&gt;1 и вещественные компоненты трех...

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

Вычислить величину Y по формуле
с клавиатуры ввести k&gt;1 и вещественные компоненты трех векторов A=|a1,...

Вычислить значение переменной S по формуле
Вычислить значение переменной S по формуле: S=\sum_{i=1}^{20}A{i}*B{i} где А...


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

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

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