В стандартном Паскале нет функции десятичного логарифма, поэтому воспользуемся соотношением lg(x) = ln(x) / ln(10).
Кроме того, показатель степени у числа "е" (-x² / 2xy) можно упростить до -x / 2y.
var
a,x,y:real;
begin
Write('Введите x и у через пробел: '); Read(x,y);
a:=1e5*Ln(Abs(0.8*x))/Ln(10)*Exp(-x/(2*y));
Writeln('a=',a)
end.
Координата С (столбец) задана абсолютно, поэтому она останется неизменной.
Координата 5 (строка) задана относительно, поэтому при увеличении номера строки на 1 (с 4 на 5) она тоже увеличится на 1.
Формула будет =$C6+3
// сойдет?
uses graphAbc;
const
d = 40;
w = d*12;
h = d*8;
x0 = d div 2;
y0 = d div 2;
begin
setwindowsize(w,h);
arc(x0+2*d,h-y0,2*d,180,90);
line(x0+2*d,h-y0-2*d,x0+10*d,h-y0-2*d);
rectangle(x0+10*d,h-y0-2*d,x0+11*d,h-y0-2*d-d div 4);
rectangle(x0+3*d,h-y0-2*d,x0+5*d,h-y0-3*d div 2);
rectangle(x0+7*d,h-y0-2*d,x0+9*d,h-y0-3*d div 2);
arc(x0+6*d,h-y0-2*d,4*d,180,0);
circle(x0+8*d,h-y0-4*d,d div 2);
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
#include <iostream>
using namespace std;
void main()
{
setlocale(NULL, "russian");
int n,
summa = 0;
cout << "Введите количество чисел " << endl;
cin >> n;
for (int i = 0, temp; i < n; i++){
cout << "Введите " << i + 1 << " элемент" << endl;
cin >> temp;
summa += temp;
}
cout << "Сумма " << n << " элементов равна: " << summa << endl;
system("pause");
};