НРКмания
https://nrkmania.ru/

Задача по информатике (в паскале)
https://nrkmania.ru/topic661.html		 Страница 1 из 1
Автор:  Флэшка [ 29 ноя 2007, 23:04 ]
Заголовок сообщения:  Задача по информатике (в паскале)
Изображение


Помогите пожалуйста!!!
Автор:  Федор [ 30 ноя 2007, 02:26 ]
Заголовок сообщения: 
Что-то такое?
----------------------

program zfunc;
function ufunct(u, t:real ):real;
begin
if u>0 then
begin
ufunct := u+sin(t);
end
else
begin
ufunct := u+t;
end;
end; { ufunc }
var a,b,z : real;
begin
a := -3.14;
b := 31.2;
z := ufunct(sin(b), a)+ufunct(sin(b)*sin(b),a-1)+ufunct(sin(b), a*a-1)
+ ufunct(sin(a)*sin(a)-1, cos(b)+a);
writeln('The result is ', z);
end. { zfunc }
Автор:  Флэшка [ 30 ноя 2007, 21:07 ]
Заголовок сообщения: 
очень похожее)
Автор:  Федор [ 30 ноя 2007, 21:44 ]
Заголовок сообщения: 
Этот код компилируется FreePascal'ем и работает нормально, насколько я могу судить. У Паскаля есть несколько диалектов, Вы не сказали, какой Вам нужен. Мой код -- на классическом Паскале Вирта.
Кроме того, есть несколько неясностей в постановке задачи. Вот например, в формуле для функции
"... sin квадратный a - 1" -- это sin^2(a-1) или sin^2(a) - 1?

Но, я думаю, Вы поправите, если что. Удачи! :)
Автор:  Флэшка [ 01 дек 2007, 22:14 ]
Заголовок сообщения: 
Это turbo Pascal =)) Мы уже сделали на уроке, спасибо за помощь!
Страница 1 из 1 Часовой пояс: UTC + 4 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/