в турбо паскале

[natalialove]

ПОМОГИТЕ РЕШИТЬ В ТУРБО ПАСКАЛЕ СО СХЕМАМИ СРОЧНО ЗА ВОЗНАГРАЖДЕНИЕ, ОЧЕНЬ НАДО, НАДЕЮСЬ НА ВАС
Составить программу, в которой выдается на печать соответствующее сообщение в виде корней квадратного уравнения ax в квадрате+bx+c=0

Рассчитать при данных m,n,x значение функции T=x в степени m+x в степени n, если частное от деления m на n больше 2. В остальных случаях вычислить и напечатать Q=x в степени m+n.

вычислить по схеме Горнера
1)y=x в 10 степени+2х в 9 степени+3х в 8 степени+…+10х+11
2)y=11х в 10 степени +10х в 9 степени+9х в 8 степени+…+2х+1

3.Если количество нулей в массиве А(10) вещественных чисел равно количеству единиц в массиве С(10) целых чисел, то определить и распечатать максимальное значение каждого массива. В противном случае отсортировать массив С по возрастанию и распечатать. Распечатать полученные значения количеств нулей и единиц.

4.Дана матрица целых чисел Аik. Сформировать из максимальных элементов столбцов матрицы вектор Вk.

5.Найти наименьший элемент матрицы X(5,7)и записать 0 в ту строку и столбец, где он находился .

[sir.andrey]

Составить программу, в которой выдается на печать соответствующее сообщение в виде корней квадратного уравнения ax в квадрате+bx+c=0

program yravnenie;
uses crt;
var a,b,c:integer;
    x,x1,x2:real;
function D(a,b,c:integer):real;
 begin
 D:=b*b-4*a*c;
 end;
procedure vivod(a,b,c:integer);
 begin
 writeln (a,'x^2+',b,'x+',c,'=0');
 end;
begin
writeln('reshenie yravneniya ax^2+bx+c=0');
write('vvedite a='); readln(a);
write('vvedite b='); readln(b);
write('vvedite c='); readln(c);
clrscr;
if D(a,b,c)<0 then writeln ('korney net');
if D(a,b,c)=0 then begin
            vivod(a,b,c);
            x:=(-b)/(2*a);
            write('x=',x);
            end;
if D(a,b,c)>0 then begin
            vivod(a,b,c);
            x1:=(-b+sqrt(D(a,b,c)))/(2*a);
            x2:=(-b-sqrt(D(a,b,c)))/(2*a);
            writeln('x1=',x1);
            write('x2=',x2);
            end;
readln;
clrscr;
end.

[natalialove]

а остальные

спасибо большое

[sir.andrey]

Сообщение от natalialove

а остальные

Щас попробуем!!!

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=100368
tanyalove в чём прикол то?

[sir.andrey]

4.Дана матрица целых чисел Аik. Сформировать из максимальных элементов столбцов матрицы вектор Вk.

program vektor;
uses crt;
var A:array [1..50,1..50] of integer;
    b:array [1..50] of integer;
    i,j,m,n,max,k:integer;
begin
writeln('vvedite m,n');
readln(m,n);
randomize;
for i:=1 to m do begin
 for j:=1 to n do begin
                  A[m,n]:=random(9);
                  write(A[m,n],' ');
                  end;
                  writeln;
                end;
max:=A[1,1];
for j:=1 to n do begin
 for i:=1 to m do begin
                  if A[m,n]>max then max:=A[m,n];
                  end;
                 k:=k+1;
                 b[k]:=max;
                 max:=A[n+1,1];
                 end;
for i:=1 to k do write (b[k],' ');
readln;
end.

Не работает, ума не приложу почему...

[Don Karleone]

Конечно не будет работать. Вместо max:=A[n+1,1] должно быть
max:=A[1,j]

[ROMA2PVT]

вычислить по схеме Горнера
1)y=x в 10 степени+2х в 9 степени+3х в 8 степени+…+10х+11
2)y=11х в 10 степени +10х в 9 степени+9х в 8 степени+…+2х+1
http://programmersforum.ru/showthread.php?t=10321
Поиском пользуйтесь почаще.Ну и вторая там смехотворная просто.Сами то подумайте.

[QuadroX]

Если что-то будет нужно, то обращайтесь ICQ: 323787261. Сделаю недорого.