Question

Помогите решить задачи по Информатике в Паскале!!! Все 3 задачи.

Answer 1

Первая:

Var X:real;
Begin
Write('X = ');ReadLn(X);
if X<6 then WriteLn(X*X);
if (X>=-6)and(X<6) then WriteLn(Abs(X)+4);
if X>=6 then WriteLn(X*(X+1))
End.

Вторая:

Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if ((A>=0)and(A<=15))or((B>=0)and(B<=15)) then WriteLn(A*A+B*B)
else WriteLn((A+B)/2)
End.

Третья:

Var A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
D:=B*B-4*A*C;
if D>=0 then
Begin
WriteLn('X1 = ',(-B+sqrt(D))/(2*A));
WriteLn('X2 = ',(-B-sqrt(D))/(2*A));
End
else WriteLn('Корней нет')
End.

Answer 2

подумайте какими графическими образами можно проиллюстрировать виды информации и свойства информации

Answer 3

помоги

Answer 4

Спасибо, Физикъ555.

Answer 5

Физикъ555, можно стать вашем учеником!?

Answer 6

задача 2
var a,b:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>=0) and (a <=15) or (b>=0) and (b<=15) then
 writeln(sqr(a)+sqr(b))
else
writeln ((a+b)/2);
readln;
end.

задача 1


var x:real;
begin
write('x= ');
readLn(x);
if x<6 then WriteLn(sqr(x));
if (x>=-6)and(x<6) then
WriteLn(Abs(x)+4);
if x>=6 then
writeLn(x*(x+1))
end.

задача 3
Var a,b,c,d:real;
x1,x2:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
d:=sqr(b)-4*a*c;
if D>0 then begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
end;
if d=0 then writeln('koren=',-b/2*a);
if d<0 then writeln 
('kornei net')
End.

Answer 7

Что сам пойму - объясню=)) Хотя с трудом...

Answer 8

Но давай в ЛС перейдёт=))

Answer 9

)) простите ......

Answer 10

Как же весело будет антиспамеру, когда он всё это удалять будет=D

Answer 11

))).....