Разработать программу для вычисления мат. функции (Delphi 7)

[PaTaTau]

Здравствуйте!
В университете начали учить Delphi 7, сразу дали кучу заданий ничего не пояснив, я "все понял", и вот к модулю увидел задания.
Буду максимально благодарен если дадите хоть малейшие пояснения к этому, или же ссылочку на обучение именно такого направления)
И да, в консольном виде нид.
delphi forum.png

[digitalis]

Ну для начала - хоть какую-нибудь книжечку по Паскалю для 8 класса открывал ? (открою тайну - Delphi - это тоже ObjectPascal). Что непонятно? If? Присваивание? Функции? Все вместе?
Набрав в поиске "delphi для начинающих" - много интересного можно найти. Хотя бы
http://www.delphi-manual.ru/ п.6
А вот про консольные приложения в среде Delphi
http://www.codenet.ru/progr/delphi/stat/console.php
"Не учите меня жить, вы мне программу накорябайте!"

[PaTaTau]

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

Ну для начала - хоть какую-нибудь книжечку по Паскалю для 8 класса открывал ? (открою тайну - Delphi - это тоже ObjectPascal). Что непонятно? If? Присваивание? Функции? Все вместе?
Набрав в поиске "delphi для начинающих" - много интересного можно найти. Хотя бы
http://www.delphi-manual.ru/ п.6
А вот про консольные приложения в среде Delphi
http://www.codenet.ru/progr/delphi/stat/console.php
"Не учите меня жить, вы мне программу накорябайте!"

Понял, пасиб, если сделаю, на форуме или сюда же можно вкинуть что бы кто-то проверил?

[Вадим Мошев]

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

Понял, пасиб, если сделаю, на форуме или сюда же можно вкинуть что бы кто-то проверил?

Да.

[PaTaTau]

program zavd3test1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
 a=3  ;
var
 x,z,g,k,h: real;
 y: real;
begin
  writeln('Vvedite x=');
  readln(x);
  if (x>a) then
begin
z:=pi+a*x;
   h:=abs(sin(a)*sqr(x));
   y:=x*x*x*sqrt(abs(x-a*a))+sqr(ln(h))/(sqr(cos(z)));
   writeln('Vidpovid y=',y);
   readln;
end
else
begin
 g:=exp(x)-x*exp((-pi));
 k:=sqrt(x+sqrt(a*x*sqr(x)));
 y:=ln(abs(g/k));
 writeln('Vidpovid y=',y);
 readln;
end;
end.

Сделал, если вдруг кому-то нужно будет.

[Serge_Bliznykov]

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

Сделал

да.

я только одну ошибку увидел:

h:=abs(sin(a*sqr(x)));

p.s. а ешё забавно, что квадрат и куб Вы в разных местах вычисляете по разному.
начиная от x*x*x
и заканчивая x*sqr(x)
впрочем, это не ошибка.

[digitalis]

Неужели вот так, с нуля, получив небольшую подсказку от Яндекса - и такая вполне ничего себе прога ? Вспомогательные переменные применил. Кстати, g и k можно было бы совместить с z и h, а вывод y= делать один, уже после ветвления. PaTaTau, признайся, однокурсник за пиво помог ? А в общем, успехов в науке!