Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.10.2013, 19:39   #1
PASKAL12
Пользователь
 
Регистрация: 06.10.2013
Сообщений: 10
По умолчанию Где ошибка???Турбо Паскаль Ошибка 57

Написать программу для определения вида треугольника за сторонами и прямоугольный он или нет
Пишет ошибку 57.Турбо ПАСКАЛЬ
Код:
Program Zadagcha_2; 
var a,b,c,x,y,z:integer; 
Begin 
Writeln ('Число'); 
Read (a); 
Writeln ('1- вид за сторонами'); 
Writeln ('2- вид треугольника'); 
case a of 
1:begin 
If  x=y and y=z then 
Writeln ('Равносторонним') 
If x=y and y<>z  then 
Writeln ('Равнобедренным') 
If x<>y and y<>z and x<>z then 
Writeln ('Разносторонний') 
Else Writeln ('Нет') 
End; 
2:begin 
If c=90 then 
Writeln (' Прямоугольным') 
Else Writeln (' Не прямоугольным') 
end; 
end; 
end.

Последний раз редактировалось PASKAL12; 14.10.2013 в 19:48.
PASKAL12 вне форума Ответить с цитированием
Старый 14.10.2013, 20:07   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

А ошибок несколько:
Код:
...
1:begin 
If  x=y and y=z then 
Writeln ('Равносторонним') 
If x=y and y<>z  then 
Writeln ('Равнобедренным')
...
Точки с запятыми не ставим из принципа?
Условие надо брать в скобки:
Код:
if ((x=y) and (y<>z)) ...
Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 14.10.2013, 20:18   #3
PASKAL12
Пользователь
 
Регистрация: 06.10.2013
Сообщений: 10
По умолчанию

Не помогло
PASKAL12 вне форума Ответить с цитированием
Старый 14.10.2013, 21:19   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Код:
Program Zadagcha_2; 
var a,b,c,x,y,z:integer; 
Begin 
Writeln ('Число'); 
Read (a); 
Writeln ('1- вид за сторонами'); 
Writeln ('2- вид треугольника'); 
case a of 
1:begin 
If  (x=y) and (y=z) then 
Writeln ('Равносторонним') 
else If (x=y) and (y<>z)  then 
Writeln ('Равнобедренным') 
else If (x<>y) and (y<>z) and (x<>z) then 
Writeln ('Разносторонний') 
Else Writeln ('Нет') 
End; 
2:begin 
If c=90 then 
Writeln (' Прямоугольным') 
Else Writeln (' Не прямоугольным') 
end; 
end; 
end.
И что?
Кстати, турбо 7.0 - это древность, вообщем, кланяемся, говорим : "Спасибо, дедушка Турбо".. И идем качать Free Pascal.

Последний раз редактировалось Poma][a; 14.10.2013 в 21:22.
Poma][a вне форума Ответить с цитированием
Старый 14.10.2013, 21:34   #5
PASKAL12
Пользователь
 
Регистрация: 06.10.2013
Сообщений: 10
По умолчанию

Не помогло
PASKAL12 вне форума Ответить с цитированием
Старый 14.10.2013, 21:35   #6
PASKAL12
Пользователь
 
Регистрация: 06.10.2013
Сообщений: 10
По умолчанию

А нет помогло
PASKAL12 вне форума Ответить с цитированием
Старый 14.10.2013, 22:31   #7
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Вот только не спешите сдавать, так как кроме проверки на равенство/неравенство сторон надо проверять возможность построения треугольника. Это тогда, когда одна и более сторон неравные другим.
Треугольник можно построить, если сумма двух сторон больше третьей.


Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не пойму где ошибка(Паскаль) Tolya92 Помощь студентам 12 18.12.2012 19:51
Паскаль. скажите где ошибка lect111 Паскаль, Turbo Pascal, PascalABC.NET 2 03.10.2012 13:49
6 ошибка на турбо паскаль мария71 Помощь студентам 3 24.02.2012 08:19
Где ошибка?(строки,Паскаль) yr_4 Помощь студентам 0 22.12.2010 22:31
паскаль! скажите где ошибка? кусака Помощь студентам 3 09.06.2010 18:43