Цитата lxa85:
|
Соотв. вы думаете "Как" решать задачу, а мы лишь помогаем с реализацией »
|
У меня в первые дни был как то "прорыв", я мог решать задачки по паскалю, но потом пошло введение в проф деятельность, а там нужно решать физические (физика) и геометрические (геометрия) задачи на паскале, а в школе у меня были двойки за эти предметы..
1)
Код:
program pr1;
const a=0.5;
var b,x,u,f:real;
Begin
write('Введите значение b,x:');
readln(b,x);
U:=((a*a)*x+exp(-x*ln(e)*cps*b*x))/((b*x-exp(-x*ln(e)*cos*b*x+1));
f:=exp(2*x*ln(e)*ln(a+x)-exp(3*x*ln(b)*ln(b-x);
writeln ('U=',U:5:3,' f=',f:5:3);
readln;
End.
И получились у меня
Код:
U=-0,082 и f=-2,905
Это была первая работа, которую надо было сдать, делал ещё когда этот "прорыв" был, а после уже потенциал пропал...
Как делать остальные даже догадок нет, не то, что "что-то решенное".
Цитата lxa85:
|
ЕМНИП Pascal по умолчанию работает с радианами. Напомни плиз, как из этих в те перевести? »
|
На просторах интернета нашел следующее, может поможет..
Код:
uses crt;
var Rd,Gr,G,M,S:real;GMS:string;
begin
clrscr;
write('Rd=');readln(Rd);
Gr:=Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Write(Rd:4:2,'rad= ',G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec');
readln
end.
Цитата lxa85:
|
Про задание я понял, к формулировкам претензий нет. Просто через две точки корней уравнения можно провести бесконечное множество парабол. Какую из них выбрать? »
|
Не знаю. Я вообще мало что понимаю в этом языке и что нужно. Там я два задания переписал из учебника дословно, ничего помимо этого там не написано.
