Дано действительное число а. Вычислить f(a) для функции f(x) - Помощь студентам - Страница 2

barok · 11.11.2010, 08:17

program var12;
var x,y:real;
begin
write('vedute A=');readln(x);
if(0>x)then
y:=(1-abs(x));
begin
if(0<x)and(x<4)then
y:=-1+x;
if(x>4-x)then
y:=-x+4;
writeln('y=',y:2:2);
readln;
end;
end.

проверте отцы=)))все ли так?и вобще то ли я делаю условие задачи выше!!Спасибо!

Stilet · 11.11.2010, 09:51

Один автор - одна тема!

11.11.2010, 08:17	#11
barok Регистрация: 11.11.2010 Сообщений: 3	program var12; var x,y:real; begin write('vedute A=');readln(x); if(0>x)then y:=(1-abs(x)); begin if(0<x)and(x<4)then y:=-1+x; if(x>4-x)then y:=-x+4; writeln('y=',y:2:2); readln; end; end. проверте отцы=)))все ли так?и вобще то ли я делаю условие задачи выше!!Спасибо! Последний раз редактировалось barok; 11.11.2010 в 08:50.

11.11.2010, 09:51	#12
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Один автор - одна тема! I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
вычислить по формуле с использованием функции или процедуры	St@FFord	Паскаль, Turbo Pascal, PascalABC.NET	7	10.06.2008 10:18
Найти и вывести все слова,у котоpых число гласных букв пpевышает число согласных.	Briz	Помощь студентам	2	11.05.2008 00:56
Дано четырехзначное число, заданное в символьном виде, например, '1954'. Напечатать его текстом, например	gred	Помощь студентам	13	31.03.2008 22:24
Число N, заменить одну из его цифр, чтобы получилось число, max близкое к некоторой степени двойки	urgu_st	Помощь студентам	13	23.10.2007 09:14
Вычислить приближенное значение функции Бесселя	IsapS	Паскаль, Turbo Pascal, PascalABC.NET	5	17.01.2007 10:09