Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2011, 22:56   #1
nafanail
Новичок
Джуниор
 
Регистрация: 18.09.2011
Сообщений: 1
Вопрос задача паскаля

Код:
Program Z4_6;
Uses CRT;
  Var x,y,k: real;
  Begin
 WriteLn('введите значение  x=');
 ReadLn(x);
 WriteLn('введите значение  k=');
 ReadLn(k);
 if (k/3)<exp(13/10*ln(sin(x))) then y:=(sqrt(1+(exp(3*ln(x))))/(cos(k)))
 else
   if ((k/3)<exp(13/10*ln(sin(x))) and ((k/3)>=(exp(13/10*ln(sin(x)))))  then    y:=sin(sqr(1+(exp(3*ln(x)))
   else y:=sin(sqr(1+(exp(3*ln(x)));

 Write('x=',x,'ó=' ,y:4:2);
End.
при k = 2; x = 0,5(к чему дано это значение?)

Последний раз редактировалось Stilet; 19.09.2011 в 08:16.
nafanail вне форума Ответить с цитированием
Старый 19.09.2011, 02:08   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Цитата:
Сообщение от nafanail Посмотреть сообщение
при k = 2; x = 0,5(к чему дано это значение?)
Полагаю, чтобы ввести в программу и получить y.
А вообще имей в виду: когда задаешь вопрос, сестра таланта - твой злейший враг.

Могу еще добавить, что среднее "if ... then ... else" можно выкинуть (в угоду твоей любимой краткости) - оно никогда не осуществится.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 19.09.2011, 11:28   #3
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
при k = 2; x = 0,5(к чему дано это значение?)
Вместо
Код:
WriteLn('введите значение  x=');
 ReadLn(x);
 WriteLn('введите значение  k=');
 ReadLn(k);
написать
Код:
k:=2;
x:=0.5;
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача паскаля и схема алгоритма Регина56 Помощь студентам 1 06.06.2011 15:32
Задача про треугольник Паскаля. Mangust Помощь студентам 9 02.03.2009 23:59
ЗАДАЧА ТУРБО ПАСКАЛЯ massiv Помощь студентам 7 20.11.2008 01:45
Задача для паскаля. Анжелика Помощь студентам 6 27.10.2008 18:13
Задача для гениев Паскаля Улица Помощь студентам 1 22.05.2008 13:56