| Vladimir_S |
16.12.2012 14:25 |
Цитата:
Сообщение от макс122
(Сообщение 834294)
Не понимаю как сделать помогите..
|
Потому что учиться надо было, а не лоботрясничать. И еще: ну сколько я могу просить, требовать, умолять, угрожать, наказывать и т.п. для того, чтобы товарищи студенты не выкладывали запросов на программы без четкого указания языка программирования? Тщетно. Видимо, лоботряс полагает, что если напишет "на Паскале" (или на QB, С++ и т.д), у него пальчики любимые отвалятся! Лишь бы не перетрудиться ненароком.
Ладно. Поскольку, судя по предыдущим топикам, Вас устраивает Паскаль, то получите:
Код:
Var
x,g:real;
Begin
Write('x = ');
Readln(x);
If x<0 then
g:=Exp(x*Ln(5))-Cos(x)/Sin(x)
else
If x>0 then
g:=2*Cos(x*2)
else g:=1;
Writeln('g = ',g:0:5);
Readln;
End.
Код:
Var
T:real;
i:Integer;
Begin
T:=1;
For i:=0 to 8 do T:=T*(14+3*i)/((3+2*i)+Sin(4+2*i));
Writeln('T = ',T:0:5);
Readln;
End.
И еще. За то время, что Вы тут ноете с этими "заданиями" (между прочим, написание этих, с позволения сказать, "программ" у меня заняло чуть меньше 4 минут), Вы вполне могли бы разобраться с азами программирования, чтобы по крайней мере не позориться, выкладывая подобное. Фу! |
