Дължина на кабел между два блока

Напишете програма, която при дадена височина на два блока и разстояние между тях пресмята дължината на кабела за Интернет, който ще е необходим, за да се свържат покривите им.

Публикувано в с етикети . Постоянна връзка.

3 Responses to Дължина на кабел между два блока

  1. Lubomir Dizela каза:
    program project1;
    var
    s1, kabel, razlika: real;
    h1, h2: real;
    begin
    WriteLn('Vuvedete visochinata na blokovete i razstoqnieto mejdu tqh.');
    ReadLn(h1, h2, s1);
    
    razlika:=h2-h1;
    kabel:=sqrt(s1*s1+razlika*razlika);
    
    WriteLn('Kabela trqbva da e dulug ', kabel:5:3, ' metra');
    ReadLn;
    
    end.  
  2. Violeta каза:
     program Project1;
    var
     Ha ,Hb ,Hc, S, x:real;
    begin
    Write ('Vavedete  Ha i Hb :');
    ReadLn(Ha,Hb);
    Hc:=Ha-Hb;
    Write ('Vavedete S;');
    ReadLn(S);
    x:=sqrt(Hc*Hc+S*S);
    WriteLn('Kabelat e' , x:5:2);
    ReadLn;
    
    end.
  3. Xboxx_ каза:
     program Project1;
    var
    h1 , h2 ,s1: Real;
    razlika, kabel: Real;
    begin
    WriteLn ('Vavedete razmerite (Visochinite na blokovete i razstoqnietio mejdu tqh)');
    ReadLn ( h1, h2 ,s1 );
    
    razlika := h2-h1 ;
    kabel:= sqrt (s1*s1+razlika*razlika);
    
    WriteLn ( 'Kabela trqbva da e dulug ' , kabel:5:3 ) ;
    Readln;
    
    
    end.                      

Вашият коментар