Помощь Студенту в Pascal

[Chvalov]

Здравствуйте, помогите решить контрольную по Pascal

1) Задано коефициенты a, b, c квадратного уравнения a*x^2+b*x+c=0. Найти его корни
2) Составить программу для вычисления значения функции y=x^2-3.3x+4x^3-2 sin 4x
3) Составить алгоритм и программу, которая вычисляет сумму (c1=a+b), разницу (c2=a-b), произведение (c3=a*b) двух заданных целых чисел
4) Решить линейное уравнение a*x=b
5) Найти сторону квадрата, если его площадь S=a^2

[ZX Spectrum-128]

А в чем помощь-то должна быть? Ваши попытки решать есть?

[Chvalov]

Я не програмирую в Pascal, Basic я веб разработчик, мое это php, css, html
Девушка принесла и на решай, а я хз как и что, а читать литературу и учить этот богом забитый язык как то не хочется, а здавать нужно в понидельник

дай с самой математикой я не дружу

[Аватар]

И что, на богом забытом языке богом забытые программисты должны делать? Да и с математикой не дружить программисту как то не с руки. Математики, кстати, как таковой в этих заданиях нет, так, элементы начал школьной алгебры. С этим тоже слабо? С русским вы тоже не дружите

[Chvalov]

и с русским не дружу, но хотелось бы видеть не реплику а ответы:

П.С.
5)
var
x, y : real;
begin
write('Введіть площу квадрату: ');
readln(x);
y := sqrt(x);
writeln('Сторона квадрата: ', y:0:4);
readln
end.

2)
var
x, y : real;
begin
write('x = ');
readln(x);
y := sqr(x) - 3.3 * x + 4 * sqr(x) * x - 2 * sin(4 * x);
writeln('y(', x, ') = ', y:0:4);
readln
end.

[Rififi]

Chvalov

Девушка принесла и на решай

дай девушке почитать: http://zadolba.li/story/13547

[Chvalov]

Послать ее лесом не выход, встречаюсь с ней ))
3)
var
c1, c2, a, b, c3 : real;
begin
write('a, b = ');
readln(a, b);
c1 := a + b;
c2 := a - b;
c3 := a * b;
writeln('c1 = a+b = ', c1:0:4);
writeln('c2 = a-b = ', c2:0:4);
writeln('c3 = a*b = ', c3:0:4);
readln
end.


4)
var
a, b, x : real;
begin
write('введите a и b: ');
readln(a, b);
if (a = 0) and (b = 0) then writeln('Рівняння має безкінечне колічиство рішень') else
if (a = 0) then writeln('ділення на нуль не можливе... помилка') else
begin
x := b / a;
writeln('Сторона квадрату: ', x:0:4)
end;
readln
end.

[Аватар]

5) не мешало бы проверить на знак введенной площади

И сразу знание паскаля прорезалось. Прибеднялись однако

[Chvalov]

помоги с первым

[Аватар]

http://www.kvadur.info/
Дискриминант проверить на знак >= 0