07.10.2011, 22:55 | #1 (permalink) |
Новичок
Регистрация: 07.10.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помощь в переделывании кода
потом учитель сказал через процедуру Uses crt; Var x1,y1,x2,y2,x3,y3:integer; S1,s2,s3,p:real; procedure rast (a,b:real; var r:real); Begin R:=sqrt(sqr(a-b)+sqr(y2-y1)); End; Begin clrscr; Writeln('vvedite koordinaty tochki x1 i y1 dlya 1 treugolnika'); readln(x1,y1); Writeln('vvedite koordinaty tochki x2 i y2 dlya 1 treugolnika'); readln(x2,y2); Writeln('vvedite koordinaty tochki x3 i y3 dlya 1 treugolnika'); readln(x3,y3); P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2; S1:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2))); Writeln('plosshad` 1 treugolnika=',s1:4:2); Writeln('vvedite koordinaty tochki x1 i y1 dlya 2 treugolnika'); readln(x1,y1); Writeln('vvedite koordinaty tochki x2 i y2 dlya 2 treugolnika'); readln(x2,y2); Writeln('vvedite koordinaty tochki x3 i y3 dlya 2 treugolnika'); readln(x3,y3); P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2; S2:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2))); Writeln('plosshad` 2 treugolnika=',s2:4:2); Writeln('vvedite koordinaty tochki x1 i y1 dlya 3 treugolnika'); readln(x1,y1); Writeln('vvedite koordinaty tochki x2 i y2 dlya 3 treugolnika'); readln(x2,y2); Writeln('vvedite koordinaty tochki x3 i y3 dlya 3 treugolnika'); readln(x3,y3); P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2; S3:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2))); Writeln('plosshad` 3 treugolnoka=',s3:4:2); if (s1<s2) and (s3<s2) then if s1<s3 then writeln('samyy malenki 1 treugolnik') else writeln('samyy malenki 3 treugolnik') else writeln('samyy malenki 2 treugolnik'); Readln; End. извините код большой помогите плиз ато из технаря выкинут |
07.10.2011, 22:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию аналогичные обсуждения Требуется помощь Помощь по Pascal Помощь с Delphi Помощь Паскаль. помощь в компиляции моего кода Помогите с расшифровкой кода Цезаря |
08.10.2011, 17:06 | #2 (permalink) | ||
Новичок
Регистрация: 07.10.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ой сорри не в себе был((((((((((((((
проверьте, пожайлуста. вот что выдаёт Ссылка удалена
Последний раз редактировалось Fenix; 12.06.2013 в 15:36 Причина: Ссылка мертва |
||
08.10.2011, 20:46 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|