Надо дополнить программу, чтобы он искал решение в x столбце . program a1; var c: array[1..100, 1..100] of integer; a, b: array[1..100] of integer; i, j, m, n, k, d: integer; begin d: =0; k: =0; writeln('введите кол-во строк в массиве'); readln(n); writeln('введите кол-во cтолбцов в массиве'); readln(m); for i : = 1 to n do begin for j : = 1 to m do begin c[i, j] : = random(50); write(c[i, j]: 4); end; writeln; end; writeln; for i : = 1 to n do for j : = 1 to m do if (c[i, j] mod 2 = 0) and (c[i, j] mod 2 = 0) and (c[i, j] mod 3 = 0) then begin inc(k); a[k] : = c[i, j]; end; for i : = 1 to k do write(a[i]: 4); writeln; for i : = 1 to n do for j : = 1 to m do writeln; for i : = 1 to d do write(b[i]: 4); end.
Ответы
#include <iostream>
#include <cassert>
using namespace std;
void pie_price(int a, int b, int n)
{
assert((a >= 0) && (a <= 1000));
assert((b >= 0) && (b <= 99));
assert((n >= 1) && (n <= 1000));
double price = a * 1.0 + b / 100.0;
float res = price * n;
int kop = res * 100;
cout << "Rubles " << res << endl;
cout << "Kopeyks " << kop << endl;
}
int main()
{
int a, b, n;
cin >> a >> b >> n;
pie_price(a, b, n);
}
#include <cassert>
using namespace std;
void pie_price(int a, int b, int n)
{
assert((a >= 0) && (a <= 1000));
assert((b >= 0) && (b <= 99));
assert((n >= 1) && (n <= 1000));
double price = a * 1.0 + b / 100.0;
float res = price * n;
int kop = res * 100;
cout << "Rubles " << res << endl;
cout << "Kopeyks " << kop << endl;
}
int main()
{
int a, b, n;
cin >> a >> b >> n;
pie_price(a, b, n);
}
Var
a,b,c,D,x1,x2:double;
begin
Write('Введите коэффициенты квадратного уравнения А В С: ');
Read(a,b,c);
if a=0 then
Writeln('А не может равняться нулю: уравнение не будет квадратным')
else begin
D:=sqr(b)-4*a*c;
if D<0 then Writeln('Нет корней')
else
if D=0 then Writeln('x=',-b/(2*a))
else begin
D:=sqrt(D);
x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a);
Writeln('x1=',x1,', x2=',x2)
end
end
end.
Тестовое решение:
Введите коэффициенты квадратного уравнения А В С: 2 -5 3
x1=1, x2=1.5
a,b,c,D,x1,x2:double;
begin
Write('Введите коэффициенты квадратного уравнения А В С: ');
Read(a,b,c);
if a=0 then
Writeln('А не может равняться нулю: уравнение не будет квадратным')
else begin
D:=sqr(b)-4*a*c;
if D<0 then Writeln('Нет корней')
else
if D=0 then Writeln('x=',-b/(2*a))
else begin
D:=sqrt(D);
x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a);
Writeln('x1=',x1,', x2=',x2)
end
end
end.
Тестовое решение:
Введите коэффициенты квадратного уравнения А В С: 2 -5 3
x1=1, x2=1.5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
В программе - ошибки.