лабы. Delphi

[Студень]

В принципе для знающих лабы очень легкие.
В первой нужно написать код для рассчета уравнения
SIN(X•Pi/180)
-------------— • e^-ABS(Y+Z)=S
Y^2 + Z^2

а во второй:
1.Создайте консольное приложение, предназначенное для получения решения
квадратного уравнения вида ax^2+bx+c=0.
Приложение должно использовать ПОЛНУЮ ФОРМУ УСЛОВНОГО ОПЕРАТОРА
и выполнять следующие действия:
а) ввод значений вещественных коэффициентов a, b и c;
б) если значение дискриминанта D=b^2-4ac≥0, то вычисление значений корней
квадратного уравнения по формулам
-b-D^1/2
---------- =x1
2a

-b+D^1/2
---------=x2 и вывод результатов;
2a
в) если значение дискриминанта D=b^2-4ac<0 (что говорит об отсутствии
у уравнения действительных корней), то вывод текста "D<0".

2.Создайте консольное приложение, выполняющее те же действия,
что и приложение из п.1, но использующее
СОКРАЩЕННУЮ ФОРМУ УСЛОВНОГО ОПЕРАТОРА и ОПЕРАТОР ПЕРЕХОДА с МЕТКОЙ
и работающее таким образом, чтобы оно после вывода результатов снова
переходило бы на ввод значений коэффициентов квадратного уравнения.

За написанные коды был бы очень благодарен.Если не сможете написать коды, то дайте тогда хотябы ссылку, где про это понятно расписано или название книг и авторов

[sergey31]

2-я задача(подпункт 1), правда писал под Pascal, но исправить под Delphi совсем не тяжело.

var
 a,b,c,:integer;
 d,x1,x2:real;
begin
writeln(' Введите коэфициенты уравнения a,b,c'); 
readln(a,b,c);
d:=(sqr(b)-4*a*c);
if d>=0 then
 begin
 x1:=(-b-sqrt(d))/(2*a); 
 x2:=(-b+sqrt(d))/(2*a);
writeln('x1=',x1, 'x2=',x2);
else writeln('D<0');
end;
end.