Информатика, опубликовано 27.03.2019 23:40
Языки программирования установите соответствие. 1.c++ 2.python 3.action script 3.0 4.java 5.html перетащите элементы на пустые поля сверху a.wingide b.powerflasher fdt c.codeblocks d.webstorm e.lemur
Ответ оставил: Гость
2)#include<iostream>#include <stdlib.h>#include<math.h>using namespace std;int main(){int c=0, b;do{
b = pow( c, 2); c++; cout << b << " ";} while(c<51); system("pause");
}
1)#include<iostream>#include <stdlib.h>#include<math.h>using namespace std;int main(){int c=0, b;
while(c<51){
b = pow( c, 2); c++; cout << b << " ";} system("pause");
}
3)#include<iostream>#include <stdlib.h>#include<math.h>using namespace std;int main(){int c=0, b;
for(c; c<51; c++){
b = pow( c, 2); cout << b << " ";} system("pause");
}
b = pow( c, 2); c++; cout << b << " ";} while(c<51); system("pause");
}
1)#include<iostream>#include <stdlib.h>#include<math.h>using namespace std;int main(){int c=0, b;
while(c<51){
b = pow( c, 2); c++; cout << b << " ";} system("pause");
}
3)#include<iostream>#include <stdlib.h>#include<math.h>using namespace std;int main(){int c=0, b;
for(c; c<51; c++){
b = pow( c, 2); cout << b << " ";} system("pause");
}
Ответ оставил: Гость
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x,z:real;
for var i:=0 to 18 do begin
x:=-3+0.5*i;
if (Abs(x)<>2) and (x<>5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8)
end;
end.
Результат
-3.0 0.02603404
-2.5 0.05396053
-2.0 0.05396053
-1.5 0.15941934
-1.0 0.15783283
-0.5 0.11009307
0.0 0.10000000
0.5 0.16817855
1.0 0.21459633
1.5 0.16205869
2.0 0.16205869
2.5 -0.47852157
3.0 -0.48851066
3.5 -0.38218382
4.0 -0.18498749
4.5 0.00385685
5.0 0.00385685
5.5 0.30151270
6.0 0.23243357
№2
begin
var x,z:real;
x:=-3;
while x<=6.01 do begin
if (Abs(x)<>2) and (x<>5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8);
x+=0.5
end;
end.
№3
begin
var x,z:real;
x:=-3;
repeat
if (Abs(x)<>2) and (x<>5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8);
x+=0.5
until x>6.01
end.
// Внимание! Если программа не работает, обновите версию!
begin
var x,z:real;
for var i:=0 to 18 do begin
x:=-3+0.5*i;
if (Abs(x)<>2) and (x<>5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8)
end;
end.
Результат
-3.0 0.02603404
-2.5 0.05396053
-2.0 0.05396053
-1.5 0.15941934
-1.0 0.15783283
-0.5 0.11009307
0.0 0.10000000
0.5 0.16817855
1.0 0.21459633
1.5 0.16205869
2.0 0.16205869
2.5 -0.47852157
3.0 -0.48851066
3.5 -0.38218382
4.0 -0.18498749
4.5 0.00385685
5.0 0.00385685
5.5 0.30151270
6.0 0.23243357
№2
begin
var x,z:real;
x:=-3;
while x<=6.01 do begin
if (Abs(x)<>2) and (x<>5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8);
x+=0.5
end;
end.
№3
begin
var x,z:real;
x:=-3;
repeat
if (Abs(x)<>2) and (x<>5) then
z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
Writeln(x:4:1,z:15:8);
x+=0.5
until x>6.01
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01