Turbo Pascal...Need help....

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by eworld.uz, 13 Nov 2009.

  1. eworld.uz

    eworld.uz Elder - Старейшина

    Joined:
    18 Jan 2008
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    привет всем...не могу решит одну задачку (простую) в Турбо Паскале...кто может помогите пож...Дано треугольник...Большой радиус=2.5..Алфа=п/6..бета=п/3... надо найти гамму,периметр,а,б,с, S,r..

    Code:
    program 1;
    uses crt;
    const R1=2.5, alfa=pi/6; beta=pi/3;
    var a,b,c,s,p,gamma,R2:real;
    begin clrscr;
    gamma:=pi-(alfa+gamma);
    {все отсальные параметры тоже нащел}
    writeln('gamma=');
    end.
    
    чета нехочеть работать...что делать?? где ощибься??
     
    #1 eworld.uz, 13 Nov 2009
    Last edited by a moderator: 13 Nov 2009
  2. Thenno

    Thenno Member

    Joined:
    3 Jul 2009
    Messages:
    77
    Likes Received:
    21
    Reputations:
    0
    1. program 1; - уже неправильно. Нужно хотя-бы program p1 писать
    2. Исправь R1=2.5; alfa=pi/6; beta=pi/3;
    3. И самое главное. Наверное, стоит писать так writeln('gamma=', gamma);
     
    #2 Thenno, 13 Nov 2009
    Last edited: 13 Nov 2009
  3. eworld.uz

    eworld.uz Elder - Старейшина

    Joined:
    18 Jan 2008
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    да...все понял.....спасибо....)))