Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > маленькая задачка

Автор: Анютка 4.12.2005, 18:56

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

Автор: Dray 4.12.2005, 19:34

Код


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

Код


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

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