Учеба и наука
Помогите составить блок схему к этому коду,пожалуйста. - вопрос №2256973
program lab9;
Var a,b,x:integer;
z1,z2:real;
p,v,y:integer;
Procedure menu;
Begin
Writeln(введите a,b');
Readln(a,b);
Writeln('введите y');
Readln(y);
Writeln(введите p? v');
Readln(p,v);
End;
Function fun1(x:integer):real;
begin
fun1:=sqrt+(1+sqr(x));
end;
Function fun2(p,v:integer):longint;
begin
fun2:=p*p+v*v;
end;
begin
menu;
z1:=ln(1+a*fun(x))/(b*fun(x));
Writeln('z1=',z1:2:2);
z2:=(1+x*x+y*y)/(3+sqrt(x*x+y*y));
Writeln('z2=',z2:2:2);
Readln;
end.
декабрь 22, 2016 г.
-
Всего ответов: 0
Похожие вопросы
Сегодня в классе Алисы турнир по игре в “Ирудтэ”. Правила игры довольно просты. Ребята случайно набирают по 10 черных фишек с буквами и выкладывают
декабрь 7, 2016 г.
В городе Бубликово 11 площадей. Между некоторыми площадями есть дороги с односторонним движением. Катя, живущая в Бубликово, решила составить матрицу
декабрь 12, 2016 г.
Назовем число новогодним, если его запись не содержит цифры 0, а сумма всех цифр этого числа равна 6. Найти сумму всех новогодних чисел
декабрь 4, 2016 г.