Информатика, решение задач

Я так понял, что надо написать программы на языке "Паскаль" (Pascal). Только вопрос: как вводится x (в 1-ой задаче) и a, b и c (во 2-ой)? Вручную с клавиатуры или генерируются генератором случайных чисел? Ладно, напишу все варианты. Программы обозначаю как P1 (Program P1;) и P2 - соответственно P1 - это к №1, а P2 - это к №2.

1) Вариант ввода с клавиатуры (после ввода x нужно нажать Enter):

Program P1;
uses crt;
var x, y: real;
begin
clrscr;
write ('Введите значение переменной x: x=');
readln (x);
if x>0 then y:=0 else y:=1000;
write ('Ответ: y=', y);
readkey;
end.

Вариант с генератором случайных чисел:

Program P1;
uses crt;
var x, y: real;
begin
clrscr;
randomize;
x:=random (-10)+20;
writeln ('Сгенерированное значение x: ', x);
if x>0 then y:=0 else y:=1000;
write ('Ответ: y=', y);
readkey;
end.

2) Да, а какой двоечник писАл задание? Ни языка "Паскаль" не знает, ни математику. D=(b^2)-4*a*c ( (b квадрат) минус 4 ac, а не плюс). Да и зачем b умножать на b таким способом, когда в Паскале есть уже готовая команда, которой пользуются профессионалы для вычисления квадрата числа (sqr ({число}), например, sqr (a) или sqr (5))?

Вариант ввода с клавиатуры (после ввода каждой из переменных (коэффициентов a, b и c) нужно нажимать Enter):

Program P2;
uses crt;
var a, b, c, D, x, x1, x2: real;
begin
clrscr;
write ('Введите значение коэффициента a: a=');
readln (a);
write ('Введите значение коэффициента b: b=');
readln (b);
write ('Введите значение коэффициента c: c=');
readln (c);
D:=sqr(b)-4*a*c;
if D>0 then begin
writeln ('Дискриминант положительный (D>0). Уравнение имеет 2 корня:');
x1:=(-b+sqrt (D))/(2*a);
x2:=(-b-sqrt (D))/(2*a);
writeln ('x1=', x1);
write ('x2=', x2);
end else if D=0 then begin
writeln ('Дискриминант равен 0 (D=0). Уравнение имеет 1 корень:');
x:=-b/(2*a);
write ('x=', x);
end else write ('Нет решений. Дискриминант отрицательный (D<0).');
readkey;
end.

Вариант с генератором случайных чисел:

Program P2;
uses crt;
var a, b, c, D, x, x1, x2: real;
begin
clrscr;
randomize;
a:=random (-100)+200;
b:=random (-100)+200;
c:=random (-100)+200;
writeln ('Были сгенерированы следующие значения:');
writeln ('a=', a);
writeln ('b=', b);
writeln ('c=', c);
D:=sqr(b)-4*a*c;
if D>0 then begin
writeln ('Дискриминант положительный (D>0). Уравнение имеет 2 корня:');
x1:=(-b+sqrt (D))/(2*a);
x2:=(-b-sqrt (D))/(2*a);
writeln ('x1=', x1);
write ('x2=', x2);
end else if D=0 then begin
writeln ('Дискриминант равен 0 (D=0). Уравнение имеет 1 корень:');
x:=-b/(2*a);
write ('x=', x);
end else write ('Нет решений. Дискриминант отрицательный (D<0).');
readkey;
end.

А где задачи-то?