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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2015, 17:21   #1
Siusarna
Пользователь
 
Регистрация: 15.10.2015
Сообщений: 11
По умолчанию Написал програму но она не работает

Массыви не учил поэтому делал розветлением.. Програма запускаеться но ответ не показывает можете сказать где ошыбка?
Код:
Program gfg2;
var S1,S2,S3,p1,p2,p3:real;
a,b,c,d,e,f,x,z,g,y,h,j,q,q1,q2,q3,q4,m,k,u,i,o,u1,i1,o1,l1,m1,r1,v1,t1,s4,l:integer;
Begin
writeln('vvedity kilkisty trikutnikiv 2 abo 3');
readln(k);
if k=2 then begin
writeln('storoni trikutnika ABC');
readln(a,b,c);
writeln('storoni trikutnika DEF');
readln(d,e,f);
p1:=(a+b+c)/2;
p2:=(d+e+f)/2;
S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
S2:=sqrt(p2*(p2-d)*(p2-e)*(p3-f));
if (frac(S1)=0) and (frac(S2)=0) then begin
if a>b then u:=a else u:=b;
if u>c then o:=u else o:=c;
if o>d then i:=o else i:=d;
if i>e then l:=i else l:=e;
if l>f then m:=l else m:=f;
if b>e then q:=(b-e) else q:=(e-b);
if b<e then q1:=b else q1:=e;
y:=a+d;
x:=m;
randomize;
z:=random(y-q)+q1;
end;
if (frac(S1)<>0) and (frac(S2)<>0) then writeln('trikutnik ne isnue');
end;
if k=3 then begin
writeln('vvedity storony trikutnika ADC');
readln(a,b,c);
writeln('vvedity storony trikutnika DEF');
readln(d,e,f);
writeln('vvedity storony trikutnika GHJ');
readln(g,h,j);
p1:=(a+b+c)/2;
p2:=(d+e+f)/2;
p3:=(g+h+j)/2;
S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
S2:=sqrt(p2*(p2-d)*(p2-e)*(p2-f));
S3:=sqrt(p3*(p3-g)*(p3-h)*(p3-f));
if (frac(S1)=0) and (frac(S2)=0) and (frac(S3)=0) then begin
if a>b then u1:=a else u1:=b;
if u1>c then i1:=u1 else i1:=c;
if i1>d then o1:=i1 else o1:=d;
if o1>e then l1:=o1 else l1:=e;
if l1>f then m1:=l1 else m1:=f;
if m1>g then r1:=m1 else r1:=g;
if r1>h then v1:=r1 else v1:=h;
if v1>j then t1:=v1 else t1:=j;
if b>e then s4:=b else s4:=e;
if s4>h then q2:=s4 else q2:=h;
if b<e then q3:=b else q3:=e;
if q3<h then q4:=q3 else q4:=h;
z:=random(y-q2)+q4;
x:=t1;
y:=a+d+g;
end;
if (frac(S1)<>0) and (frac(S2)<>0) and (frac(S3)<>0) then writeln('trikutnika ne isnue');
end;
writeln(x,y,z);
readln
end.

Последний раз редактировалось Stilet; 18.10.2015 в 18:12.
Siusarna вне форума Ответить с цитированием
Старый 18.10.2015, 17:35   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
можете сказать где ошыбка?
это шутка, да?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 18.10.2015, 17:37   #3
Siusarna
Пользователь
 
Регистрация: 15.10.2015
Сообщений: 11
По умолчанию

Цитата:
это шутка, да?[
почему? ладно где ошибка
Siusarna вне форума Ответить с цитированием
Старый 18.10.2015, 18:14   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
p1:=(a+b+c)/2;
p2:=(d+e+f)/2;
S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
S2:=sqrt(p2*(p2-d)*(p2-e)*(p3-f));
А где вычисляется p3?
Поменяв p3 на p2 я получил следующее:
Цитата:
vvedity kilkisty trikutnikiv 2 abo 3
2
vvedity storony trikutnika ADC
1
1
1
vvedity storony trikutnika DEF
2
2
2
trikutnika ne isnue
000
I'm learning to live...

Последний раз редактировалось Stilet; 18.10.2015 в 18:16.
Stilet вне форума Ответить с цитированием
Старый 18.10.2015, 18:32   #5
Siusarna
Пользователь
 
Регистрация: 15.10.2015
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А где вычисляется p3?
Поменяв p3 на p2 я получил следующее:
не понимаю о чем ты... можеш кинуть код?
Siusarna вне форума Ответить с цитированием
Старый 18.10.2015, 18:49   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Кинуть? Лови:
Код:
S2:=sqrt(p2*(p2-d)*(p2-e)*(p2-f));
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.10.2015, 18:57   #7
Siusarna
Пользователь
 
Регистрация: 15.10.2015
Сообщений: 11
По умолчанию

огромное спасибо
Siusarna вне форума Ответить с цитированием
Старый 18.10.2015, 19:50   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Пожалуйста )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Шифрование ГОСТ 28147-89 в Delphi. Написал, но не работает munthrekosh Общие вопросы Delphi 2 22.12.2013 16:06
Написал задачу, но она не компилируется. Есть пара ошибок Suarez777 Помощь студентам 9 12.09.2013 06:57
Написал программу,работает,но не так как нужно( С++ ) Diwolf Помощь студентам 0 21.12.2011 19:47
Написал прогу на делфях 7-х, а она у меня на делфях 2010 неидет serg268 Помощь студентам 2 06.10.2010 20:41