Вычислить функцию - Turbo Pascal

  1. Дано действительное число X. Вычислить F(x),если F(x)=1 при 1≤x≤2; x при x<1; x-1 при x>2.


textual

Код к задаче: «Вычислить функцию - Turbo Pascal»

uses crt;
var y,x:real;
BEGIN
clrscr;
write('x = ');
read(x);
if (x>=1) and (x<=2) then
begin
 y:=1;
 write('F(x) = ',y:3:2);
end
 else
  if x<1 then
   begin
   y:=x;
   write('F(x) = ',y:3:2);
   end
    else
     if x>2 then
      begin
      y:=x-1;
       write('F(x) = ',y:3:2);
      end;
readkey;
END.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.417 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

  1. Протабулировать функцию на интервале : -0.2≤x≤0.8 с шагом h=0.1: Помогите пожалуйста, буду очень благодарен и признателен

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.