|
Вопрос # 4 844/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Мне нужно составить программу по такому условию:
ввести 3 стороны одного треугольника и 3 стороны другого. Будут ли они подобны?
Приложение: Переключить в обычный режим-
- var a,b,c:integer;
- x,y,z:integer;
- k,d:real;
- begin
-
-
-
-
-
-
- if (a=x) or (b=y) or (c=z) then
- k:=a/x=b/y=c/z;
-
- else
- if (a<>x) or (b<>y) or (c<>z) then
- d:=a/x<>b/y<>c/z
-
- readln
- end.
 |
Вопрос задала: Чурилова Алена (статус: Посетитель)
Вопрос отправлен: 20 декабря 2010, 18:55
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 20 декабря 2010, 19:37; участников в обсуждении: 3.
|
AlexMPEI (статус: 1-ый класс), 20 декабря 2010, 19:12 [#1]:
да, у тебя неправильно. нет ввода значений (readln), в if else нет бегинов и эндов, а k:=a/x=b/y=c/z; я вообще не понял что тут делается и зачем это.
|
|
|
AlexMPEI (статус: 1-ый класс), 20 декабря 2010, 19:14 [#2]:
если уберешь k:=a/x=b/y=c/z; и d:=a/x<>b/y<>c/z
и добавишь после каждго writeln ('введите ,...') readline этого значения, то должно заработать
|
|
min@y™ (статус: Доктор наук), 20 декабря 2010, 19:15 [#3]:
А причём тут С++?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Чурилова Алена (статус: Посетитель), 20 декабря 2010, 19:37 [#4]:
Спасибо большое. У меня получилось
|
21 декабря 2010, 10:05: Вопрос перемещён из тематического раздела C++ в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
