Program yravnenie;
Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
Writeln('x1 = ',-p/2-Sqrt(D):0:5);
Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.
1)
var
a:array [1..5,1..10] of integer;
i,j,p:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50)+1;
write(a[i,j]:3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j:=1 to 10 do
begin
p:=a[1,j];
a[1,j]:=a[5,j];
a[5,j]:=p;
end;
for i:=1 to 5 do
begin
for j:=1 to 10 do
write(a[i,j]:3);
writeln;
end;
end.
2)
var
a: array [1..5, 1..10] of integer;
i, j: integer;
p: real;
begin
for i := 1 to 5 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(50) + 1;
write(a[i, j]:3);
end;
writeln;
end;
writeln('произведения элементов строк');
for i := 1 to 5 do
begin
p := 1;
for j := 1 to 10 do
p := p * a[i, j];
writeln(p:25:0);
end;
end.
var
a, b, c: integer;
begin
write('введите номер месяца - ');
readln(a);
case a of
1, 2, 12:
begin
writeln('время года - зима');
if (a = 1) or (a = 12) then write('кол-во дней - 31') else write('кол-во дней - 28')
end;
3, 4, 5:
begin
writeln('время года - весна');
if (a = 3) or (a = 5) then write('кол-во дней - 31') else write('кол-во дней - 30')
end;
6, 7, 8:
begin
writeln('время года - лето');
if (a = 7) or (a = 8) then write('кол-во дней - 31') else write('кол-во дней - 30')
end;
9, 10, 11:
begin
writeln('время года - осень');
if (a = 9) or (a = 11) then write('кол-во дней - 30') else write('кол-во дней - 31')
end;
else write('введен неправильный номер месяца');
end;
end.