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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2007, 18:16   #1
vitekbest
Пользователь
 
Регистрация: 16.12.2007
Сообщений: 18
По умолчанию программа в Паскале

Уважаемые программисты, помогите, пожалуйста написать листинг двух программ:
1. доказать тождество(условие во вложенном файле);
2. написать программу для решения следующей задачи: по координатам трёх вершин некоторого трейгольника найти его площадь и периетр.
Заранее благодарен вам!
Вложения
Тип файла: doc ТОЖДЕСТВО.doc (20.0 Кб, 13 просмотров)

Последний раз редактировалось vitekbest; 16.12.2007 в 19:13.
vitekbest вне форума Ответить с цитированием
Старый 16.12.2007, 18:50   #2
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

Цитата:
написать программу для решения следующей задачи: по координатам трёх вершин некоторого трейгольника найти его площадь и периетр.
Длина отрезка ноходиться по этой формуле: a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
периметр: p:=a+b+c;
Площадь: s:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/a-c));
Я не маюсь бездельем, я от него тащусь!

Последний раз редактировалось Tayfun; 16.12.2007 в 18:54.
Tayfun вне форума Ответить с цитированием
Старый 16.12.2007, 19:12   #3
vitekbest
Пользователь
 
Регистрация: 16.12.2007
Сообщений: 18
По умолчанию

спасибо большое!
vitekbest вне форума Ответить с цитированием
Старый 17.12.2007, 08:20   #4
vitekbest
Пользователь
 
Регистрация: 16.12.2007
Сообщений: 18
По умолчанию

помогите кто-нибудь решить первую прогу, пожалуйста! а то завтра сдавать уже надо! Мне бы полностью листинг проги и если можно ко второ тоже целиком решение, а то что то не получается!
vitekbest вне форума Ответить с цитированием
Старый 17.12.2007, 08:33   #5
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Код:
program zadacha2;
uses crt;
var 
     x1,x2,x3,y1,y2,y3;integer;
     a,b,c:integer;
     s:real;
     p:real;
begin
     clrscr;
     writeln('vvedite x1:');
     readln(x1);
       writeln('vvedite x2:');
     readln(x2);
  writeln('vvedite x3:');
     readln(x3);
     writeln('vvedite y1:');
     readln(y1);
      writeln('vvedite y2:');
     readln(y2);
       writeln('vvedite y3:');
     readln(y3);
    a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
    b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
    c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
    p:=a+b+c;
    s:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/a-c));
    write('s=',s);
   readln;
end.
I like WPF
kommunist вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
интересная программа на паскале kaka Общие вопросы Delphi 7 28.05.2008 22:23
Подскажите где ошибки? Не работает программа на Паскале ЯншинаВера Помощь студентам 1 21.05.2008 19:47
ДОС в паскале nikleb Паскаль, Turbo Pascal, PascalABC.NET 2 07.03.2008 22:50
Программа по матрицам в паскале. drakon803 Помощь студентам 1 12.12.2007 20:11