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

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

Форум программистов > Центр помощи > [Delphi]Линейные алгоритмы.

Автор: ЮрисСалимов 30.4.2009, 18:35

Здравствуйте! Помогите, пожалуйста, составить программу. Задача напечатана вM.Word (Microsoft Equation 3.0). Заранее СПАСИБО!!!

Автор: THandle 30.4.2009, 18:37

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Neox_GeForce 30.4.2009, 18:57

Детское задание.

Автор: kami 30.4.2009, 19:13

Цитата(Neox_GeForce @ 30.4.2009, 18:57

)

Детское задание.

+1.
Скорее младенческое.
Даже неинтересно - 15 минут и задача решена.

Автор: Neox_GeForce 30.4.2009, 19:36

какие 15 минут??????
там формулу подсчитать и вывесть и всё. 5 максимум

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  x,y:real;
function Formula(var x1,y1:real):real ;
begin
 Formula:=1+sin(sqrt(x+1))/cos(12*y-4)    ;
end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 writeln('Input x and y:');
readln(x,y);

y:=Formula(x,y);
writeln('result=',y:8:4);
readln;

end.