Программы-функции, процедуры

@modzmey · Регистрация: 25.04.2010

Студворк — интернет-сервис помощи студентам

@Puporev · 05.09.2010, 08:22

modzmey, Извини, но на "сральных" бумажках не принимаем. Или оформи должным образом, или удалю тему за нарушение.

Добавлено через 17 часов 49 минут
Короче, первый и последний раз.

Pascal

uses crt;
procedure F(a,b,x:real;var y:real);
var t,t1,t2:real;
begin
t:=sin(x)/cos(x);
t1:=sqrt(abs(a-t));
t2:=exp(ln(abs(b-t))/3);
y:=t1+t2;
write('При a=',a:0:3,' b=',b:0:3,' x=',x:0:3,'  Y=',y:0:3);
end;
var result:real;
begin
clrscr;
F(3e-2,4e-3,1,result);
readln
end.

@modzmey 0 / 0 / 0 Регистрация: 25.04.2010 Сообщений: 53
		1
	Программы-функции, процедуры 04.09.2010, 12:31. Показов 1078. Ответов 1 Метки нет (Все метки) Программы-функции, процедуры Миниатюры 0

	05.09.2010, 08:22

Опции темы

Программы-функции, процедуры

Решение