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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.11.2015, 10:32   #1
mannn
Пользователь
 
Регистрация: 16.11.2015
Сообщений: 15
По умолчанию Помогиетс задачкой пожалуйста

Вычислить d как среднее арифмитическое чисел a,b,c.
Если d<100, напечатать''d<100''
Если d=100 напечатать a, b, c
Если d>100, вычислить значение функции Y=10*exp(-a)*sqrt(x+1)*sin(3.14*x), где x изменяется в интервале от -4 до 4 с шагом дельта x=0.2. Отпечатать только положительные значения функции y. Значения a,b,c вводятся пользователем

Вот наметил тут
Код:
program anc;
var a,b,c,y,x,d: real;
begin
writeln ('Начальные данные');
writeln(' ');
write(' Введите a= ');
readln(x);
write(' Введите b= ');
readln (y);
write(' Введите c= ');
readln (c);
if d<0 then begin
writeln('d<100');
end;
begin 
if d=0 then begin
writeln('a=',a,'b=',b,'c=',c);
end;
begin
x:=-4;
repeat
if d>100 then begin
y:=10*exp(-a)*sqrt(x+1)*sin(3.14*x);
write(y);
x:=x+0.2;
until x>4;
readln;
end;
end;
end;
end.

Последний раз редактировалось Аватар; 28.11.2015 в 12:26.
mannn вне форума Ответить с цитированием
Старый 28.11.2015, 11:07   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
var a, b, c, d, x: real;

function f(a1, x1: real): real;
begin
  f := 10 * exp(-a1) * sqrt(x1 + 1) * sin(3.14 * x1);
end;
begin
  readln(a, b, c);
  d := a / 3 + b / 3 + c / 3;
  if d < 100 then writeln('d<100') else
    if d = 100 then writeln(a: 6: 3, b: 6: 3, c: 6: 3) else
    begin
      x := -4;
      while x < 4 do
      begin
        if f(a, x) > 0 then writeln(f(a, x));
        x := x + 0.2;
      end;
    end;
  readln;
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста с задачкой по С++! sershok Помощь студентам 1 29.06.2009 02:37
Помогите пожалуйста с задачкой yogupt Помощь студентам 2 14.05.2009 18:05
Помогите пожалуйста с задачкой Kold Паскаль, Turbo Pascal, PascalABC.NET 0 28.11.2008 16:33
Помогите с задачкой, пожалуйста! korteas Помощь студентам 6 09.10.2007 12:10