Задание на картинке, в паскалеABC.
10-11 класс
|
var a,b,x,y,z:real;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
writeln('Введите z');
readln(z);
a:=(sqrt(abs(x-1))-sqrt(abs(y)))/(1+2*sqr(x)+cos(x));
b:=sqr(x)*(arctan(z)+y);
writeln('a= ',a);
writeln('b= ',b);
end.
Другие вопросы из категории
For i:=1 to 10 do
for k:=1 to 10 do
if i>K THEN
A[i,k]:=1
else A [i,k]:=0;
Чему равна сумма элементов массива после выполнения этого фрагмента программы?
значения аргумента на отрезке d [-3.3] с шагом h.
форму параллелепипеда A, B, C. Вычислить объем детали v, объем тары V, необходимое количество тары N для упаковки деталей количеством K штук. Если N>10, то вычислить отношение объема детали к объему тары .
Помогите пожалуйста написать это В Паскале.
Читайте также
2. Составить задание на разработку программы на разветвляющиеся структуры в QBASIC
3. Составить задание на разработку программы циклической структуры в QBASIC
Нужно задание + сама программа
он решил залить лист одним цветом. В редакторе есть инструмент "Залить здесь", который позволяет менять цвет области на выбранный кликом по ней. Для инструмента определены 4 цвета (1,2,3,4 на карте), которые активируются кликом на панели цветов. В начальный момент времени выбран инструмент "Залить здесь", для которого активен белый цвет. После каждого использования инструмента Знайка должен менять цвет на ранее НЕиспользовавшийся. Области с общим участком границы, у которых совпали цвета, далее рассматриваются как одна область. За какое минимальное количество кликов Знайка перекрасит карту в один цвет.
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))