Turbo Pascal

[Vladimir B.]

лутче зделать так If (a+b<c) and (b+c<a) and (a+c<b) Then writeln('не существует')

Хм, оригинально...

Вообще-то, для того, чтобы определить факт того, что он неправилен - нужна похожая строка, но с OR, т.к. допустить одновременное выполнение всех трех условий - это что-то очень оригинальное.

P.S. Логика не имеет шатких вариантов.

 

[AkeL.php]

1.
program kelbas;
uses crt;
var
a,b,c :real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then
begin
if (a=b) or (b=c) or (a=c) then
writeln('Равнобедренный')
else if (a=b) and (b=c) and (a=c) then
writeln('Равносторонний')
else
writeln('Разносторонний');
end
else
writeln('треугольник не существет');
end.
RE:Я зедлал как ты написал и оно мну выбивало када йа ввоодил стороны 1 2 10-треугольник разносторонний...
2.
Грамматическая ошибка (скорее опечатка) в выводе. Надеюсь, сам найдешь.

 

[Ганнусик]

Cумма двух любых сторон должна быть больше третьей-условие существования треугольника. Пример:
Program some;
Var a, b, c: real;
Begin
Writeln ('дите длины трёх сторон треугольника');
Readln (a, b, С);
Write ('треугольник со сторонами ', a, b, c);
If (a+b>c) and (b+c>a) and (a+c>b)
Then writeln ('существуют')
Else writeln ('не существуюет');
Readln
End.

Молодец, вот это правильно.
когда-то я эту задачу тоже писала.

 

[AkeL.php]

Спасибо! 2 дня решал.

 

[CHERRY]

Помогите написать программу, плизз!:color_:
Найти произведение четных элементов массива, стоящих на нечетных местах.

 

[Шальная]

Люди,пожалуста,помогите сложить програму для выведения на экран любимого животного на любом фоне и в любом цвете,плизз,я ваще не могу понять как это....

 

[AkeL.php]

program color;
uses Crt;
begin
Window(1,1,80,3);
TextColor(Yellow);
TextBackGround (BLACK) ;
GotoXY(40,1);
Write('Любимое животное');
end.

TextBackGround (BLACK) цвет фона текста.
Как задавать цвет фона - не помню.
Если хочешь, чтобы текст и его фон выводило каждый раз другими цветами, используй

TextColor(random(15));
TextBackGround (random(15)) ;

 

[AkeL.php]

Тестировалось на

You must be registered for see links

 

[FEOFAN]

Помогите написать программу, плизз!:color_:
Найти произведение четных элементов массива, стоящих на нечетных местах.

program m;
uses crt;
m:array[1..255] of byte;
i,p:integer;
begin
{тут код, где вводится массив}
i:=1;
p:=1;
while i<256 do begin
if ((mas mod 2) = 0) then p:=p*mas;
i:=i+2;
end;

writeln('Произведение: ',p);
end.

 

[FEOFAN]

а проверку на наличие хотя бы одного четного элемента?

if ((mas mod 2) = 0)
А это по-вашему что?