Площадь. Перевод с Паскаля на C#
Формулировка задачи:
Помогите перевести)
Var a,b,c,d,s,s1,s2,s3,p : real; function ploshad(x,y,z : real): real; begin p := (x+y+z)/2; result := sqrt(p*(p-x)*(p-y)*(p-z)); end; begin repeat write('1readln(a); until (a>1) and (a<3); repeat write ('0.5 readln(b); until (b>0.5) and (b<4.5); repeat writeln(c'c,d c +d>2.5'); readln(c); readln(d); until (c+d>2.5)and (2.5+c>d) and (2.5- d>c); s1:- ploshad (1,2,a); s2:- ploshad(2,2.5,b); s3 :- ploshad (2.5,c,d); s: - s1 + s2 - s3; writeln(s); readln; end
Решение задачи: «Площадь. Перевод с Паскаля на C#»
textual
Листинг программы
Var a,b,c,d,s,s1,s2,s3,p : real; function ploshad(x,y,z : real): real; begin p := (x+y+z)/2; result := sqrt(p*(p-x)*(p-y)*(p-z)); end; begin repeat write('1readln(a); until (a>1) and (a<3); repeat write ('0.5 readln(b); until (b>0.5) and (b<4.5); repeat writeln(c'c,d c +d>2.5'); readln(c); readln(d); until (c+d>2.5)and (2.5+c>d) and (2.5- d>c); s1:- ploshad (1,2,a); s2:- ploshad(2,2.5,b); s3 :- ploshad (2.5,c,d); s: - s1 + s2 - s3; writeln(s); readln; end
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д