VPF::маленькая задачка - Форум программистов

Анютка

Дата 4.12.2005, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 22.11.2005
Где: Моск.область

Репутация: нет
Всего: нет

Вычислить знач. функции y при заданном значении аргумента x по формуле y=0,если x<=-1, или y=1+x,если -1<x<=0,или y=1,если >0

Dray

Дата 4.12.2005, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Материалист

Профиль
Группа: Участник
Сообщений: 652
Регистрация: 7.10.2003
Где: г. Всеволожск

Репутация: нет
Всего: 6

Код


program noname;
uses crt;
var a, b: real;
function GetYByX (x: real): real;
begin
     if x<=-1 then begin
        GetYByX:=0;
        exit;
     end;
     if x<=0 then begin
        GetYByX:=1+x;
        exit;
     end;
     GetYByX:=1;
end;

begin
     clrscr;
     readln (a);
     b:=GetYByX (a);
     writeln (b:2:6);
     readln;
end.

--------------------

忍者

mvdr

Дата 5.12.2005, 01:01 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

Код


program noname;
uses crt;
var x: real;
begin clrscr;
writeln('введите число х_', x);
if x<=-1 then write('y=0');
if (x<=0) and (x>-1) then 
begin
y:=1-x;
write('y=', y);
end;
if x>0 then write('y=1');

 readln;
end.

--------------------

Появляюсь редко, но часто метко

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

sergejzr

Дата 5.12.2005, 01:15 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: нет
Всего: 360

Модератор: Название темы должно отражать ее суть!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »