1.Найти меньшие корни квадратных уравнений: x^2-2x+a=0 и ax^2-bx+2=0 (считать, что все корни действительные).
program lol;
var a,b,x3,x4,y1,y2,Xmin,Ymin:real;
procedure Z(i,j,k:real;
var x1,x2:real);
var D:real;
begin
D:=sqrt(j)-(4*i*k);
if D>=0 then begin
x1:=(-j+sqrt(D))/(2*i);
x2:=(-j-sqrt(D))/(2*i);
end;
end;
begin
writeln('Vvesti a,b');
readln(a,b);
writeln('a=',a:0:0);
writeln('b=',b:0:0);
z(1,-2,a,x3,x4);
z(a,-b,2,y1,y2);
begin
if x3 < x4 then Xmin:=x3
else
Xmin:=x4;
if y1 < y2 then Ymin:=y1
else
Ymin:=y2;
end;
writeln('Naimenshie korni');
writeln('Xmin=',Xmin:4:3);
writeln('Ymin=',Ymin:4:3);
end.
1.Дана вещественная матрицы А размером 6х8. Сформировать одномерный массив В, состоящий из отрицательных значений матрицы в порядке следования по столбцам.
program lol;
type mat=array[1..20,1..20] of real;
mas=array[1..100] of real;
var A:mat;
k,n,m,i,j:integer;
b:mas;
begin
writeln('vvesti razmer');
readln(n,m);
writeln('vvesti elementi');
for i:=1 to n do
for j:=1 to m do begin write('A[',i,',',j,']=');
readln(A[i,j]);end;
for j:=1 to m do
for i:=1 to n do
begin
if (A[i,j]<0) or (A[i+1,j]<0) then
b[j]:=A[i,j];
end;
k:=n*m;
for j:=1 to k do
write(' ',b[j]:0:0);
end.
pechenka написал:
1.Дана вещественная матрицы А размером 6х8. Сформировать одномерный массив В, состоящий из отрицательных значений матрицы в порядке следования по столбцам.
program lol;
type mat=array[1..20,1..20] of real;
mas=array[1..100] of real;
var A:mat;
k,n,m,i,j:integer;
b:mas;
begin
writeln('vvesti razmer');
readln(n,m);
writeln('vvesti elementi');
for i:=1 to n do
for j:=1 to m do begin write('A[',i,',',j,']=');
readln(A[i,j]);end;
for j:=1 to m do
for i:=1 to n do
begin
if (A[i,j]<0) or (A[i+1,j]<0) then
b[j]:=A[i,j];
end;
k:=n*m;
for j:=1 to k do
write(' ',b[j]:0:0);
end.
Особо не проверял но должна работать:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
{ TODO -oUser -cConsole Main : Insert code here }
var A:array[1..20,1..20] of real;
k,n,m,i,j:integer;
b:array[1..100] of real;
begin
writeln('vvesti razmer');
readln(n,m);
writeln('vvesti elementi');
for i:=1 to n do
for j:=1 to m do begin write('A[',i,',',j,']=');
readln(A[i,j]);
end;
k:=0;
for j:=1 to m do
for i:=1 to n do
if a[i,j]<0 then
begin
inc(k);
b[k]:=a[i,j];
end;
for j:=1 to k do
write(' ',b[j]:2:1);
Readln;
end.
Я знаю, что ничего не знаю, но многие не знают и этого
Автор
RE: Люди помогите посмотрите скажите что подправить(
pechenka написал:
1.Найти меньшие корни квадратных уравнений: x^2-2x+a=0 и ax^2-bx+2=0 (считать, что все корни действительные).
program lol;
var a,b,x3,x4,y1,y2,Xmin,Ymin:real;
procedure Z(i,j,k:real;
var x1,x2:real);
var D:real;
begin
D:=sqrt(j)-(4*i*k);
if D>=0 then begin
x1:=(-j+sqrt(D))/(2*i);
x2:=(-j-sqrt(D))/(2*i);
end;
end;
begin
writeln('Vvesti a,b');
readln(a,b);
writeln('a=',a:0:0);
writeln('b=',b:0:0);
z(1,-2,a,x3,x4);
z(a,-b,2,y1,y2);
begin
if x3 < x4 then Xmin:=x3
else
Xmin:=x4;
if y1 < y2 then Ymin:=y1
else
Ymin:=y2;
end;
writeln('Naimenshie korni');
writeln('Xmin=',Xmin:4:3);
writeln('Ymin=',Ymin:4:3);
end.
Во первых тут:
D:=sqrt(j)-(4*i*k);
Должно быть sqr.
Я знаю, что ничего не знаю, но многие не знают и этого
Изменил(а) Kest, 08-12-2010 13:39
Перейти на форум:
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.