ответ:
program calc1;
var
m, k, x, y: double;
begin
write ('введите m, k, x: ');
readln (m, k, x);
if m * k - x > = 2 then
y : = sqr (x) + sin (6 * x) - (k + 1)
else
y : = power (x, 3) - m * k + 3;
writeln ('y = ', y : 20 : 10);
readln;
end.
program calc2;
const
e = 1;
f = -2;
var
x, y: double;
begin
write ('введите x: ');
readln (x);
if x > pi then
y : = sqr (pi) + e * x * ln (x)
else if x < 0 then
y : = 0
else
y : = pi / 4 - f * x;
writeln ('y = ', y : 20 : 10);
readln;
end.
ответ:
program arraysumma;
procedure arrfill (a: array of integer);
var
i: integer;
begin
for i : = low (a) to high (a) do begin
a [i] : = random (100);
write (a [i], ' ');
end;
end;
var
a1, a2: array of integer;
n1, n2: integer;
begin
write ('введите размерность двух массивов: ');
readln (n1, n2);
setlength (a1, n1);
setlength (a2, n2);
randomize;
writeln;
writeln ('первый массив: ');
arrfill (a1);
writeln;
writeln ('второй массив: ');
arrfill (a2);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу (turbo pascal) вычисления величины дохода по вкладу. процентная ставка (в процентах годовых) и время хранения (в днях) во время работы программы. ниже представлен рекомендуемый вид диалога во время работы программы. данные, вводимые пользователем, выделены жирным шрифтом. величина вклада (р.) - 25000 срок вклада (дней) - 30 годовая процентная ставка (%) - 12 доход: 252 р. 80 коп. сумма по окончании срока вклада: 25252 р. 80 коп.