Даны координаты трех вершин некоторого треугольника. Найти его площадь и периметр.

23.05.2011, 21:08. **Показов** 9443. **Ответов** 4

Студворк — интернет-сервис помощи студентам

привет! люди добрые помогите незнающему информатику человеку получить зачет! ="((
оч оч нада это решить:

1. Даны координаты трех вершин некоторого треугольника. Найти его площадь и периметр.
2. В одномерном массиве C, состоящем из 25 вещественных чисел, заменить все отрицательные числа нулем.
3. Дана строка символов длиной не более 80 символов. Определить сколько слов начинаются с буквы «м».

при этом нужно еще и привести пример и что получилось =(((
человеки!!на вас вся надежда!!!
буду оч благодарна!)

go · 23.05.2011, 21:29

2.

Pascal
1
2
3
4
5
6
7
procedre zamena (var mas : array [1..25] of real);
var i : byte;
begin
 for i:=1 to 25 Do
   if mas[i]<0 then mas[i]:=0.0;
 
End;

Добавлено через 8 минут

Сообщение от mur3i4ka

Даны координаты трех вершин некоторого треугольника. Найти его площадь и периметр.

1. записать уравнение прямой с помощью двух точек, подставить и вычислить длины сторон, а потом можно по формуле герона плозадь
3.смотря как представляются слова, если через пробел

Pascal
1
2
3
4
5
6
7
8
9
procedre slovo (s:string);
var i,count : byte;
begin
 count:= 0;
 for i:=1 to 80 do
   if (s[i-1]=' ') or (i=1) then 
       if s[i]='м' then Inc (count);
 writeln ('kol-vo =',count);
end;

23.05.2011, 21:42

вот я че та понажимала...но думаю неправильно...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program zadacha 1;  
    var 
     a:real;                                                             
     b:real;                                                             
     c:real;                                                              
     x1,x2,x3:integer;                                            
     y1,y2,y3:integer;                                             
     p:real;                                                              
     s:real;                                                              
    begin 
       writeln('Vvedite pervuyu koordinatu x '); 
       readln(x1); 
       writeln('Vvedite vtoruyu koordinatu x '); 
       readln(x2); 
       writeln('Vvedite tretyu koordinatu x '); 
       readln(x3); 
       writeln('Vvedite pervuyu koordinatu y '); 
       readln(y1); 
       writeln('Vvedite vtoruyu koordinatu y '); 
       readln(y2); 
       writeln('Vvedite tretyu koordinatu y '); 
       readln(y3); 
       a:=sqrt(x2-x1)+ (y2-y1);                     
       b:=sqrt(x3-x2)+(y3-y2);                              
       c:=sqrt(x3-x1)+(y3-y1); 
       p:=a+b+c;                                                       
       s:=sqrt(p*(p-a)*(p-b)*(p-c));                         
       writeln('PERIMETR RAVEN = ',p:2:0);         
       writeln('PLOSHAD RAVNA=',s:1:2); 
       readln; 
    end.

Проверка:
Vvedite pervuyu koordinatu x
2
Vvedite vtoruyu koordinatu x
3
Vvedite tretyu koordinatu x
4
Vvedite pervuyu koordinatu y
2
Vvedite vtoruyu koordinatu y
3
Vvedite tretyu koordinatu y
4
Perimrtr raven= 7
Ploshad ravna= 29. 48

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program zadacha 2;
  var c: array [0..24] of real;
         i: integer; 
begin
i: = 0; 
for i: = 0 to 24 do
begin 
c [i] : = random;
i: = i+1; 
end; 
for i: = 0 to 24 do
begin 
writeln (c [i]);
i: = i+1; 
end; 
for i: = 0 to 24 do
begin 
if c [i] < 0 then c [i] : = 0; 
i: = i+1; 
end; 
for i: = 0 to 24 do
begin 
writeln (c [i]) ;
i: = i+1; 
end; 
readln; 
end.

а как вторую проверить (там ниче не вылазит) и третью сделать не знаю(((

@maxon56 · 23.05.2011, 22:54

Вторая:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a:array[1..25] of real;
i:integer;
begin
clrscr;
for i:=1 to 25 do
begin
writeln('vvedite a[',i,']');
readln(a[i]);
end;
writeln;
writeln;
for i:=1 to 25 do
if a[i]<0 then
a[i]:=0;
for i:=1 to 25 do
begin
write(a[i]:2);
end;
end.

19.06.2012, 15:49

a:=sqrt(x2-x1)+ (y2-y1);
b:=sqrt(x3-x2)+(y3-y2);
c:=sqrt(x3-x1)+(y3-y1);

Тут Вы просчитались. Над скобками ещё квадраты должны стоять. И в Вашей проге корень будет извлечен только с первой скобки.
Примерно так надо:
a:=sqrt((x2-x1)+ (y2-y1));

Новые блоги и статьи Все статьи Все блоги /
Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .

mur3i4ka

	Даны координаты трех вершин некоторого треугольника. Найти его площадь и периметр. 23.05.2011, 21:08. Показов 9443. Ответов 4 Метки нет (Все метки) привет! люди добрые помогите незнающему информатику человеку получить зачет! ="(( оч оч нада это решить: 1. Даны координаты трех вершин некоторого треугольника. Найти его площадь и периметр. 2. В одномерном массиве C, состоящем из 25 вещественных чисел, заменить все отрицательные числа нулем. 3. Дана строка символов длиной не более 80 символов. Определить сколько слов начинаются с буквы «м». при этом нужно еще и привести пример и что получилось =((( человеки!!на вас вся надежда!!! буду оч благодарна!)

Энди
	19.06.2012, 15:49
	a:=sqrt(x2-x1)+ (y2-y1); b:=sqrt(x3-x2)+(y3-y2); c:=sqrt(x3-x1)+(y3-y1); Тут Вы просчитались. Над скобками ещё квадраты должны стоять. И в Вашей проге корень будет извлечен только с первой скобки. Примерно так надо: a:=sqrt((x2-x1)+ (y2-y1));

Опции темы