Помогите решить

макс122 · 16.12.2012, 13:13

Не понимаю как сделать помогите..

Vladimir_S · 16.12.2012, 14:25

Цитата:

Сообщение от макс122

Не понимаю как сделать помогите..

Потому что учиться надо было, а не лоботрясничать. И еще: ну сколько я могу просить, требовать, умолять, угрожать, наказывать и т.п. для того, чтобы товарищи студенты не выкладывали запросов на программы без четкого указания языка программирования? Тщетно. Видимо, лоботряс полагает, что если напишет "на Паскале" (или на 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 минут), Вы вполне могли бы разобраться с азами программирования, чтобы по крайней мере не позориться, выкладывая подобное. Фу!

16.12.2012, 13:13	#1 (permalink)
макс122 Member Регистрация: 11.12.2012 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить Не понимаю как сделать помогите.. Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

16.12.2012, 13:13
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вот вам несколько похожих тем, почитайте их и скорее всего вы найдете ответ Помогите решить Помогите решить Помогите решить

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070