1. Какие из следующих операторов ввода записаны неверно? Объясните свой ответ. а)- INPUT X б)- INPUT “X =”; X в)- INPUT “X =” г)- INPUT “X, Y”; X , Y д)- INPUT “X,Y”; X е)- INPUT “X =” ; X , “Y =” ; Y
Function SolveX(a,b,c:real; var x1,x2:real):integer; { Возвращает: -1 - нет вещественных корней 0 - один корень х1 1 - два корня х1,х2 } var D:real; begin D:=b*b-4*a*c; if D<0 then SolveX:=-1 else if D=0 then begin x1:=(1+b*c0)/(2*c); if x1=b then SolveX:=-1 else SolveX:=0 end else begin D:=sqrt(D); x1:=(1+b*c-D)/(2*c); x2:=(1+b*c+D)/(2*c); if x1=b then begin SolveX:=0; x1:=x2 end else if x2=b then SolveX:=0 else SolceX:=1 end end;
#include <iostream> int main(){ int arr[3][7]; /*for (int* i = *arr; (i - *arr) < 21; i++) *i = i-*arr;*/ const int VALUE = 11; // int max; int count = 0; for (int x = 0; x < 7; x++) { max = arr[0][x]; for (int y = 0; y < 3; y++) { if (max < arr[y][x]) max = arr[y][x]; } if (max < VALUE) { std::cout << "Наибольший элемент столбца " << x + 1 << " меньше заданной величины." << std::endl; count++; } } std::cout << count << " столбцов не соответсвуют условию." << std::endl; return 0; }
{
Возвращает:
-1 - нет вещественных корней
0 - один корень х1
1 - два корня х1,х2
}
var D:real;
begin
D:=b*b-4*a*c;
if D<0 then SolveX:=-1
else
if D=0 then begin
x1:=(1+b*c0)/(2*c);
if x1=b then SolveX:=-1 else SolveX:=0
end
else begin
D:=sqrt(D);
x1:=(1+b*c-D)/(2*c);
x2:=(1+b*c+D)/(2*c);
if x1=b then begin SolveX:=0; x1:=x2 end
else
if x2=b then SolveX:=0
else SolceX:=1
end
end;
int main(){
int arr[3][7]; /*for (int* i = *arr; (i - *arr) < 21; i++) *i = i-*arr;*/
const int VALUE = 11;
//
int max; int count = 0;
for (int x = 0; x < 7; x++) {
max = arr[0][x];
for (int y = 0; y < 3; y++) {
if (max < arr[y][x]) max = arr[y][x];
}
if (max < VALUE) {
std::cout << "Наибольший элемент столбца " << x + 1 << " меньше заданной величины." << std::endl;
count++;
}
}
std::cout << count << " столбцов не соответсвуют условию." << std::endl;
return 0;
}