01.12.2011, 12:28 | #1 (permalink) |
Новичок
Регистрация: 01.12.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, горю
|
01.12.2011, 12:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Лучше сразу обращать внимание на то, не создавались ли на форуме схожие осбуждения Помогите пожалуйста Помогите с задачкой пожалуйста по С++. Помогите пожалуйста Помогите, пожалуйста, с CD-ROM Помогите с физикой, пожалуйста! Помогите пожалуйста! |
01.12.2011, 22:23 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Фух, ну ладно, раз уж обещал, хотя не следовало бы поощрять иждивенчество...
Задание 1 Код:
VAR x,y,z,p:Real; BEGIN Write('x= '); Readln(x); Write('y= '); Readln(y); p:=1.0+Abs(x+y); If Sin(p)<>0 then begin z:=Cos(p)/Sin(p)-p*p*p; Writeln('z = ',z:0:5); end else Writeln('No solution!'); Readln; END. Код:
VAR x:Real; Function Y(z:Real):Real; begin Y:=Exp(z*Ln(2))+Exp(-z*Ln(4))-Exp(z*Ln(3)); end; BEGIN Write('x= '); Readln(x); Writeln(Y(x):0:5); Readln; END. Код:
VAR AB,BC,AC,ABC,ACB,BAC:Real; Function P(a,b,c:Real):Real; begin P:=a+b+c; end; Function S(a,b,c:Real):Real; var p2:real; begin p2:=P(a,b,c)/2; S:=Sqrt(p2*(p2-a)*(p2-b)*(p2-c)); end; Function GrRad(x:Real):Real; begin GrRad:=x/180*Pi; end; Function RadGr(x:Real):Real; begin RadGr:=x/Pi*180; end; Function ArcSin(X:Real):Real; begin if X=1 then ArcSin:=Pi/2 else if X=-1 then ArcSin:=-Pi/2 else ArcSin:=ArcTan(X/Sqrt(1-X*X)); end; Function FindSide(a,b,C:Real):Real; begin FindSide:=Sqrt(Sqr(a)+Sqr(b)-2.0*a*b*Cos(C)); end; Function FindAngle(a,b,A_a:Real):Real; begin FindAngle:=ArcSin(b/a*Sin(A_a)); end; BEGIN Write('Side AB= '); Readln(AB); Write('Side BC= '); Readln(BC); Write('Angle (degrees) ABC= '); Readln(ABC); AC:=FindSide(AB,BC,GrRad(ABC)); ACB:=RadGr(FindAngle(AC,AB,GrRad(ABC))); BAC:=RadGr(FindAngle(AC,BC,GrRad(ABC))); Writeln('Sides:'); Writeln('AB = ',AB:0:3); Writeln('BC = ',BC:0:3); Writeln('AC = ',AC:0:3); Writeln; Writeln('Opposite angles:'); Writeln('ACB = ',ACB:0:3); Writeln('BAC = ',BAC:0:3); Writeln('ABC = ',ABC:0:3); Writeln; Writeln('P = ',P(AB,BC,AC):0:3); Writeln; Writeln('S = ',S(AB,BC,AC):0:3); Readln; END. Код:
VAR N,m:Integer; BEGIN Write('N= '); Readln(N); If N<0 then writeln('Negative') else writeln('Not negative'); If (N mod 7)=0 then writeln('Divisible by 7') else writeln('Not divisible by 7'); If N>6 then writeln('Lager then 6') else writeln('Not lager then 6'); If N>0 then begin m:=1; Repeat m:=m*5; Until m>=N; If m=N then writeln('The power of 5') else writeln('Not the power of 5'); end else writeln('Not the power of 5'); Readln; END. Код:
VAR x,y:Real; BEGIN Write('x= '); Readln(x); If x<0 then y:=Abs(1+x)*2 else If x=0 then y:=0 else y:=Ln(1+x)/Ln(10); Writeln('y = ',y:0:5); Readln; END. Код:
VAR x,z,t,w:Real; BEGIN Write('x= '); Readln(x); w:=Exp(x*Ln(2))-4; if x>0 then t:=Sin(x+10)/Cos(x+10) else t:=1.0-Abs(3-x); If Abs(t)>Abs(w) then z:=t+w*2 else z:=w+t*2; Writeln('z = ',z:0:5); Readln; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.12.2011, 13:00 | #9 (permalink) | ||
Новичок
Регистрация: 01.12.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
||
02.12.2011, 13:02 | #10 (permalink) |
Новичок
Регистрация: 01.12.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
слушай может ты знаеш где можно скачать турбо паскаль для win7 64 bit
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|