===== PascalABC.NET =====
- 1 -
begin
foreach var x in Seq(2.1, 3.3, 4.125) do
Writeln(x:5:3, Sqrt(Abs(Sqr(Sin(x)) - Cos(x))) / (x - 1):13:9)
end.
- 2 -
begin
Writeln('Вычисление объема цилиндра.');
Writeln('Введите исходные данные:');
var r := ReadReal('Радиус основания (см) ---');
var h := ReadReal('Высота цилиндра (см) ---');
Writeln('Объем цилиндра: ', Pi * r * r * h:0:2, ' куб.см.')
end.
1-звуковой
2-графический
3-архив
9
код на vbscript
Sub Zadanie18007865()
A = 2
B = 3
A = A * B
B = A + B
C = 2 * B / A * 3
MsgBox c
End Sub
Call Zadanie18007865()
Узнаем, насколько сместится чертёжник после выполнения цикла (вторая и третья команда):
x = (3 + 1) × 3 = 12
y = (3 - 2) × 3 = 3
После выполнения всего алгоритма (без команды 1):
x = 12 - 6 = 6
y = 3 + 9 = 12
Чертёжник вернётся в исходную позицию, если задать команду так, чтобы при выполнении этой команды трижды (ведь цикл повторяется три раза) чертёжник сместился на (-6, -12).
x = -6 ÷ 3 = -2
y = -12 ÷ 3 = -4
Ответ: (-2, -4)
<em>Наверное так :З</em>
var x:real;
Begin
write('Введите число: '); read(x);
writeln('Целое число: '+floor(x));
var r:real := 1;
for var i := 1 to length(''+(x-floor(x)))-2 do
r := r * 10;
writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');
write('Округленно число: ', round(x));
End.