Площадь. Перевод с Паскаля на 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5