можно ли из сторон x , y , z составить треугольник.

@Zastiesto · Регистрация: 10.10.2010

Author24 — интернет-сервис помощи студентам

Написать программу в Turbo Pascal, проверяющую можно ли из сторон x , y , z составить треугольник. К ней же составить блок-схему(по возможности)!!!

@Puporev · 10.10.2010, 16:07

Pascal

uses crt;
var x,y,z:real;
begin
clrscr;
writeln('Введите длины сторон треугольника:');
readln(x,y,z);
if(abs(x-y)<z)and(x+y>z) then write('Можно')
else write('Нельзя');
readln
end.

@Zastiesto · 10.10.2010, 16:20 **[ТС]**

А что такое uses crt ? И clrscr ?

@Puporev · 10.10.2010, 16:22

А что такое uses crt ? И clrscr ?

Не знаешь, убери...

@Шутка · 10.10.2010, 16:23

Сообщение от Zastiesto

А что такое uses crt ? И clrscr ?

uses crt - модуль, включающий дисплей.
clrscr - clean screen = Очистка экрана.

@Zastiesto · 10.10.2010, 16:24 **[ТС]**

Pascal

x,y,z:real;
begin
write('vvedite x,y,z');
readln (x,y,z);
if x+y>z then
if x+z>y then
if y+z>x then
writeln('mozhno')
else writeln('nelzja');
end.

А не так случаем пишется?

Добавлено через 1 минуту
Блин, var забыл!!!

@Шутка · 10.10.2010, 16:26

Сообщение от Zastiesto

x,y,z:real;
begin
write('vvedite x,y,z');
readln (x,y,z);
if x+y>z then
if x+z>y then
if y+z>x then
writeln('mozhno')
else writeln('nelzja');
end. А не так случаем пишется?

Добавлено через 1 минуту
Блин, var забыл!!!

Да и с var программа правильно работать не будет.

@Zastiesto · 10.10.2010, 16:27 **[ТС]**

А как,помоги,пожалуйста....

@Puporev · 10.10.2010, 16:27

Сообщение от Zastiesto

А не так случаем пишется?

Если шибка умный, то зачем время отнимаешь?

@Zastiesto · 10.10.2010, 16:28 **[ТС]**

Я не умный,я всего лишь учусь на собственных ошибках!

@Шутка · 10.10.2010, 16:36

Сообщение от Zastiesto

Я не умный,я всего лишь учусь на собственных ошибках!

введите стороны 1 2 3
В вашем коде 3 then и 1 else =)
1 then = 1 else. У вас 3 => используйте And.
Получится if (x+y>z) And (y+z>x) And (x+z>y) then

@Шутка code code 128 / 123 / 77 Регистрация: 11.10.2009 Сообщений: 375
	10.10.2010, 16:36	11
	Сообщение от Zastiesto Я не умный,я всего лишь учусь на собственных ошибках! введите стороны 1 2 3 В вашем коде 3 then и 1 else =) 1 then = 1 else. У вас 3 => используйте And. Получится if (x+y>z) And (y+z>x) And (x+z>y) then 1

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
		1
	можно ли из сторон x , y , z составить треугольник. 10.10.2010, 15:46. Показов 1780. Ответов 10 Метки нет (Все метки) Написать программу в Turbo Pascal, проверяющую можно ли из сторон x , y , z составить треугольник. К ней же составить блок-схему(по возможности)!!! 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	10.10.2010, 16:20 [ТС]	3
	А что такое uses crt ? И clrscr ? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2010, 16:22	4
	А что такое uses crt ? И clrscr ? Не знаешь, убери... 0

@Шутка code code 128 / 123 / 77 Регистрация: 11.10.2009 Сообщений: 375
	10.10.2010, 16:23	5
	Сообщение от Zastiesto А что такое uses crt ? И clrscr ? uses crt - модуль, включающий дисплей. clrscr - clean screen = Очистка экрана. 0

@Шутка code code 128 / 123 / 77 Регистрация: 11.10.2009 Сообщений: 375
	10.10.2010, 16:26	7
	Сообщение от Zastiesto x,y,z:real; begin write('vvedite x,y,z'); readln (x,y,z); if x+y>z then if x+z>y then if y+z>x then writeln('mozhno') else writeln('nelzja'); end. А не так случаем пишется? Добавлено через 1 минуту Блин, var забыл!!! Да и с var программа правильно работать не будет. 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	10.10.2010, 16:27 [ТС]	8
	А как,помоги,пожалуйста.... 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2010, 16:27	9
	Сообщение от Zastiesto А не так случаем пишется? Если шибка умный, то зачем время отнимаешь? 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	10.10.2010, 16:28 [ТС]	10
	Я не умный,я всего лишь учусь на собственных ошибках! 0