IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Условный оператор
Guest
сообщение 7.06.2005 19:05
Сообщение #1


Гость






program test; uses crt;
label m1, m2, m3;
var
a,b,c:real;
begin clrscr;
writeln('Введите числа');readln(a,b,c);
if (a+b>0) and (a+c>0) and (b+c>0) then
if (sqr(a)+sqr(B)=sqr©) or (sqr(a)+sqr©=sqr(B)) or (sqr(B)+sqr©=sqr(a)) then
begin
writeln('Прямоугольный');
goto m1;
end;
if (sqr(a)+sqr(B)<sqr©) or (sqr(a)+sqr©<sqr(B)) or (sqr(B)+sqr©<sqr(a)) then
begin
writeln('Тупоугольный');
goto m3;
end;
if (sqr(a)+sqr(B)>sqr©) or (sqr(a)+sqr©>sqr(B)) or (sqr(B)+sqr©>sqr(a)) then
begin
writeln('Остроугольный');
goto m2;
end;
end
else
begin
writeln('Такого треугольника нет');
end;
readkey;
m1: m2: m3:
end.


Не подскажите в чем ошибка выдает Undefined label in preceding statement part (m2)
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 17:21
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"