Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 07.10.2011, 22:55   #1 (permalink)
ipost
Новичок
 
Регистрация: 07.10.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Red face Помощь в переделывании кода

помогите пожайлуста программу сделал через функцию.
потом учитель сказал через процедуру

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.


извините код большой
помогите плиз ато из технаря выкинут
ipost вне форума   Ответить с цитированием

Старый 07.10.2011, 22:55
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

К вашему вниманию аналогичные обсуждения

Требуется помощь
Помощь по Pascal
Помощь с Delphi
Помощь
Паскаль. помощь в компиляции моего кода
Помогите с расшифровкой кода Цезаря

Старый 08.10.2011, 17:06   #2 (permalink)
ipost
Новичок
 
Регистрация: 07.10.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ой сорри не в себе был((((((((((((((
проверьте, пожайлуста.
вот что выдаёт
Ссылка удалена

Предупреждение:
Тега [img] у нас на форуме нет. Примечание модератора.

Последний раз редактировалось Fenix; 12.06.2013 в 15:36 Причина: Ссылка мертва
ipost вне форума   Ответить с цитированием
Старый 08.10.2011, 20:46   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от ipost Посмотреть сообщение
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
Нет, с процедурой так нельзя обращаться.
Можно, например, так:
В разделе описания переменных (Var) добавить, например
R1, R2, R3:Real;
Далее:
Rast(x1,y1,R1);
Rast(x2,y2,R2);
Rast(x3,y3,R3);
P:=R1+R2+R3;
Вот так.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 03:06.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.