Паскаль - Помощь студентам - Страница 2

yura19925 · 29.03.2010, 22:09

Где, не вижу?

Chudo4258 · 29.03.2010, 22:19

Цитата:

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

Где, не вижу?

Код:

function uslovie(x:real):real;
begin
 if x < 15 //вот тут условие
   then uslovie := 7 * x + tg(x)
   else uslovie := sqrt(4 * x - 4);
end;

const x1=12.9;
        x2=159; 
begin
writeln(uslovie(x1),'   ',uslovie(x2));
end.

yura19925 · 29.03.2010, 23:13

большое спасибо!!!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница???	Vremya-Dengy	Паскаль, Turbo Pascal, PascalABC.NET	13	31.05.2011 18:23
Паскаль	mistertvister	Помощь студентам	4	04.11.2009 22:33
Паскаль	Vanta11a	Помощь студентам	2	28.05.2008 16:27
паскаль	фамил	Паскаль, Turbo Pascal, PascalABC.NET	3	17.05.2008 23:23

29.03.2010, 22:09	#11
yura19925 Регистрация: 24.03.2010 Сообщений: 6	Где, не вижу?

29.03.2010, 23:13	#13
yura19925 Регистрация: 24.03.2010 Сообщений: 6	большое спасибо!!!