Задача Паскаль

@Sprat · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

Ребята помогите. Я понимаю глупо звучит, но у меня есть на WM 11,32 руб Переведу сразу же (укажите счёт). Помогите решить задачу (не когда не работал на Паскале, а тут перевёлся с другого института)

Написать программу вычисления функции F(x), где аргумент принимает значения: -8, -4, -1, 0, 1, 4, 6, 10.
F(x)= 2*a*Sqrt(5-4*b*x)+3/2-a*Sqr(x)
Если а=0,5, b=0,2

@1010011010 · 21.12.2010, 04:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var f,x,a,b:real;
begin
writeln ('Введите X');
readln (x);
a:=0.5;
b:=0.2;
f:=2*a*sqrt(5-4*b*x)+3/2-a*sqr(x);
writeln ('f=', f:5:2);
readln;
end.

денежку себе оставь! купи шоколадку что ли!)

@John_Pa9JIbHuK · 21.12.2010, 12:21

1010011010, та такие деньгэ только пол буханки хлебушка купишь

@Mr. B · 21.12.2010, 23:58

предлагаю такой вариант

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const
  x: array[1..8] of integer = (-8, -4, -1, 0, 1, 4, 6, 10);
var
  i: integer;
  f: array[1..8] of real;
  a,b: real;
begin
  clrscr;
  a:=0.5;
  b:=0.2;
  WriteLn('a = 0.5');
  WriteLn('b = 0.2');
  WriteLn('--------------------------------------------------');
 
  for i := 1 to 8 do begin
    if 5-4*b*x[i]>=0 then begin
      f[i]:=2*a*Sqrt(5-4*b*x[i])+3/2-a*Sqr(x[i]);
      writeln('f(', x[i]:2, ') = ', f[i]:10:2)
    end
    else  WriteLn('f(', x[i]:2, ') = N/A ', ' (5-4*b*x[i]<0: ЌҐў®§¬®¦*® Ё§ў«Ґзм Єў*¤а*в*л© Є®аҐ*м!)');
        // (5-4*b*x[i]<0: Невозможно извлечь квадратный корень!)
    end
  end;
  readln;
end.

@1010011010 · 22.12.2010, 04:20

человек же написал что ни когда не работал в паскале, так зачем ему утруднять жизнь?

@Inadequate · 22.12.2010, 04:36

Sprat, поскольку тебе согласились помочь бесплатно, то тему из раздела фриланса я убрал. Не забудь поблагодарить откликнувшихся

@Sprat · 22.12.2010, 10:09 **[ТС]**

Сообщение от Mr. B

предлагаю такой вариант

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const
  x: array[1..8] of integer = (-8, -4, -1, 0, 1, 4, 6, 10);
var
  i: integer;
  f: array[1..8] of real;
  a,b: real;
begin
  clrscr;
  a:=0.5;
  b:=0.2;
  WriteLn('a = 0.5');
  WriteLn('b = 0.2');
  WriteLn('--------------------------------------------------');
 
  for i := 1 to 8 do begin
    if 5-4*b*x[i]>=0 then begin
      f[i]:=2*a*Sqrt(5-4*b*x[i])+3/2-a*Sqr(x[i]);
      writeln('f(', x[i]:2, ') = ', f[i]:10:2)
    end
    else  WriteLn('f(', x[i]:2, ') = N/A ', ' (5-4*b*x[i]<0: ЌҐў®§¬®¦*® Ё§ў«Ґзм Єў*¤а*в*л© Є®аҐ*м!)');
        // (5-4*b*x[i]<0: Невозможно извлечь квадратный корень!)
    end
  end;
  readln;
end.

Большое, большое!!! человеческое спасибо

Добавлено через 45 секунд

Сообщение от Inadequate

Sprat, поскольку тебе согласились помочь бесплатно, то тему из раздела фриланса я убрал. Не забудь поблагодарить откликнувшихся

Виноват!!!!! Буду исправляться!!!!!!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Sprat 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 62

	Задача Паскаль 20.12.2010, 23:30. Показов 1428. Ответов 6 Метки нет (Все метки) Ребята помогите. Я понимаю глупо звучит, но у меня есть на WM 11,32 руб Переведу сразу же (укажите счёт). Помогите решить задачу (не когда не работал на Паскале, а тут перевёлся с другого института) Написать программу вычисления функции F(x), где аргумент принимает значения: -8, -4, -1, 0, 1, 4, 6, 10. F(x)= 2aSqrt(5-4bx)+3/2-a*Sqr(x) Если а=0,5, b=0,2 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	21.12.2010, 12:21
	1010011010, та такие деньгэ только пол буханки хлебушка купишь 0

@1010011010 1 / 1 / 0 Регистрация: 03.11.2010 Сообщений: 10
	22.12.2010, 04:20
	человек же написал что ни когда не работал в паскале, так зачем ему утруднять жизнь? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	22.12.2010, 04:36
	Sprat, поскольку тебе согласились помочь бесплатно, то тему из раздела фриланса я убрал. Не забудь поблагодарить откликнувшихся 1