Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
writeln(y);
readkey;
end.