Технический форум - Нужно написать программы для Pascal

Цитата:

Сообщение от полли (Сообщение 344472)

напиши пожалуйста эти 3 программы
1. Треугольник задается длинами своих сторон. Определите тип треугольника. Указание: не забудьте убедиться в существовании такой фигуры.

Код:

VAR

 a,b,c,d:REAL;

BEGIN

 Write('a= ');

 ReadLn(a);

 Write('b= ');

 ReadLn(b);

 Write('c= ');

 ReadLn(c);

 If a<b then

  begin

   d:=a;

   a:=b;

   b:=d;

  end;

 If a<c then

  begin

   d:=a;

   a:=c;

   c:=d;

  end;

 If a>(b+c) then

  WriteLn('The triangular does not exist!')

 else

  begin

   If (b*b+c*c)>a*a then

    WriteLn('The triangular is acute-angled one') else

   If (b*b+c*c)<a*a then

    WriteLn('The triangular is obtuse-angled one') else

   WriteLn('The triangular is right-angled one');

  end;

 ReadLn;

END.

Цитата:

2. Вводится число, представленное в двоичной системе счисления. Если представление числа правильное, выведите инверсный и дополнительный коды этого числа.

Мало данных. Для однозначного решения задачи нужно знать длину слова, т.е. является ли вводимое число одно-, двух- или четырехбайтовым.

Цитата:

3. Рассчитайте и постройте таблицу квадратов для последовательности чисел 1, 16, 31, 46, ..., 436 в двух парах колонок

Код:

VAR

 a,b:LongInt;

 i:Integer;

BEGIN

 For i:=1 to 15 do

  begin

   a:=1+(i-1)*15;

   b:=1+(i+14)*15;

   WriteLn(a:3,a*a:8,b:16,b*b:8);

  end;

 ReadLn;

END.