Вторник, 12.12.2017, 20:09

HARDTECHNO
Неофициальный форум студентов Винницкого Политеха

Привет, Гость | RSS
Главная | Гороскопы | Рефераты | Web-камера | Регистрация | Войти
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Beauty 
HARDTECHNO - Неофициальный форум студентов ВНТУ » Политех » Обменник » Помогите с задачей.
Помогите с задачей.
ARMANIДата: Пятница, 05.09.2008, 19:09 | Сообщение # 1
Рядовой
Группа: Участники
Сообщений: 13
Репутация: 0
Статус: Offline
Нужно здлеать задачу с помощю паскаля помогите плиз, я паскалем никогда непользовалсо sad

Нехай дано координати трьох точок на площині. Якщо вони можуть бути вершинами рівнобедреного трикутнього трикутника обчисліть цого площу. Виведіть довжини сторін і площу у порядку зростання значень.

зарание спасибо.


Если хочеш быть здоров - УБЕГАЙ ОТ МУСОРОВ!

З.Ы.
Что у вас с ВВ-кодом нечитаетсо

 
ТОССДата: Суббота, 06.09.2008, 17:42 | Сообщение # 2
Полковник
Группа: Участники
Сообщений: 185
Репутация: 2
Статус: Offline
задачка конечно хорошая, но думаю тебе никто не поможет dry
могу дать примерные с триугольником, но не такую же smile
 
ARMANIДата: Суббота, 06.09.2008, 20:11 | Сообщение # 3
Рядовой
Группа: Участники
Сообщений: 13
Репутация: 0
Статус: Offline
клас блин 1 курс biggrin

Если хочеш быть здоров - УБЕГАЙ ОТ МУСОРОВ!

З.Ы.
Что у вас с ВВ-кодом нечитаетсо

 
hunter_07Дата: Воскресенье, 07.09.2008, 00:33 | Сообщение # 4
Генерал-полковник
Группа: Участники
Сообщений: 1168
Репутация: 11
Статус: Offline
ТЫ де учишся и что ето за задачи ? тчо за предмет ? что за препод ?
 
ARMANIДата: Воскресенье, 07.09.2008, 13:59 | Сообщение # 5
Рядовой
Группа: Участники
Сообщений: 13
Репутация: 0
Статус: Offline
Програмна Інженерія, ОП та ОМ, неповню как препода зовут тотка каето.... happy

Если хочеш быть здоров - УБЕГАЙ ОТ МУСОРОВ!

З.Ы.
Что у вас с ВВ-кодом нечитаетсо

 
hunter_07Дата: Воскресенье, 07.09.2008, 14:45 | Сообщение # 6
Генерал-полковник
Группа: Участники
Сообщений: 1168
Репутация: 11
Статус: Offline
хз как делать ...
 
jasashkaДата: Вторник, 16.09.2008, 22:41 | Сообщение # 7
Рядовой
Группа: Участники
Сообщений: 13
Репутация: -1
Статус: Offline
Var x1,x2,x3,y1,y2,y3,i:integer;
d: array [1..4] of real;
temp:real;

begin
readln(x1,y1,x2,y2,x3,y3);

d[1]:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
d[2]:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
d[3]:=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));

If (d[1]=d[2]) and (d[2]=d[3]) and (d[3]=d[1]) then
d[4]=d[1]*d[1]*sqrt(3)/4;
else d[4]:=0;

while true do
begin
for i:=1 to 4 do
if d[i+1]<d[i] then
begin
temp:=d[i];
d[i]:=d[i+1];
d[i+1]:=temp;
end; //for

if (d[1]<d[2])and(d[2]<d[3])and(d[3]<d[4]) then false;

end; //while

writeln (d[1],d[2],d[3],d[4]);

end.

Проверь и добавь текстуху, я Паскаль не запускал :D).

Сообщение отредактировал jasashka - Вторник, 16.09.2008, 22:43
 
hunter_07Дата: Вторник, 16.09.2008, 23:09 | Сообщение # 8
Генерал-полковник
Группа: Участники
Сообщений: 1168
Репутация: 11
Статус: Offline
Я уже давно забыл что ето такое biggrin biggrin biggrin
 
HARDTECHNO - Неофициальный форум студентов ВНТУ » Политех » Обменник » Помогите с задачей.
Страница 1 из 11
Поиск:

Партнёры Реклама Статистика
  Яндекс цитирования СтудЗона: рефераты, преподаватели, студенты... be number one Rambler's Top100 рефераты Топ Україна, Рейтинг та каталог українських веб-сайтів Топ Суперраскрутка 1
Copyright © 2017 by MCF Studio
Хостинг от uCoz