Цитата:
Сообщение от полли
напиши пожалуйста эти 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.