Вкажіть вірні оголошення змінних X:=12; Var X:=12; Var X: real; Var Real: x; Var A: string Var B: Boolian; Var Log. bulean , Vari: boolean Vart text Vart text Var Logik boolean Naziz integer
Const x0=-10; xk=13; h=0.5; var x,y:real; i,n:integer; begin n:=round((xk-x0)/h)+1; x:=x0-h; for i:=1 to n do begin x:=x+h; if x<>7 then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,' ',y:8:3); end else writeln(x:5:1,' функция не определена'); end; end.
using namespace std;
typedef unsigned short int USI;
int main() {
/* инициализация */
USI n;
cout << "Количество учеников: ";
cin >> n;
USI a[n], g[n], f[n];
/* заполнение массивов */
size_t i;
for(i = 0; i < n; i++) {
cout << "Оценки ученика "
<< (i+1) << ":\n\n";
cout << "Алгебра: ";
cin >> a[i];
cout << "Геометрия: ";
cin >> g[i];
cout << "Физика: ";
cin >> f[i];
cout << "\n\n\n";
}
cout << "\n\nРЕЗУЛЬТАТЫ\n\n\n";
/* Средняя оценка по алгебре */
USI sum = 0;
for(i = 0; i < n; i++) {
sum += a[i];
}
cout << "Средняя оценка по алгебре: "
<< (sum/n) << '\n';
/* Количество учеников без двоек */
USI notwo = 0;
for(i = 0; i < n; i++) {
if ( (a[i] <= 2)
|| (g[i] <= 2)
|| (f[i] <= 2)
) {
continue;
}
else {
notwo++;
}
}
cout << "Учеников без двоек: "
<< notwo << '\n';
return 0;
}
var x,y:real; i,n:integer;
begin
n:=round((xk-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
begin
x:=x+h;
if x<>7
then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,' ',y:8:3); end
else writeln(x:5:1,' функция не определена');
end;
end.
Результат (для h=1.0):
-10.0 62.235
-9.0 48.875
-8.0 37.333
-7.0 27.571
-6.0 19.538
-5.0 13.167
-4.0 8.364
-3.0 5.000
-2.0 2.889
-1.0 1.750
0.0 1.143
1.0 0.333
2.0 -2.000
3.0 -8.500
4.0 -25.333
5.0 -71.000
6.0 -238.000
7.0 функция не определена
8.0 544.000
9.0 383.000
10.0 347.333
11.0 344.500
12.0 356.000
13.0 375.667